refactor: remove both :block/scheduled-ast and :block/deadline-ast

This commit is contained in:
Tienson Qin
2021-03-23 14:55:01 +08:00
parent 9a08353037
commit 4dddaa66ab
5 changed files with 63 additions and 31 deletions

View File

@@ -120,7 +120,7 @@
(vector? block)
(= "Hiccup" (first block))))
(defn- timestamp-block?
(defn timestamp-block?
[block]
(and
(vector? block)
@@ -382,7 +382,7 @@
(paragraph-timestamp-block? block)
(let [timestamps (extract-timestamps block)
timestamps' (merge timestamps timestamps)
other-body (->> (remove timestamp-block? (second block))
other-body (->> (second block)
(drop-while #(= ["Break_Line"] %)))]
(recur headings (conj block-body ["Paragraph" other-body]) (rest blocks) timestamps' properties last-pos last-level children))
@@ -463,8 +463,6 @@
blocks)]
(with-path-refs blocks))))
(defn parse-block
([block format]
(parse-block block format nil))