fix: scheduled not working

close #1700
This commit is contained in:
Tienson Qin
2021-05-04 15:57:52 +08:00
parent 043cc2a9ad
commit 9c59fa2b65

View File

@@ -214,7 +214,8 @@
(defn- paragraph-timestamp-block?
[block]
(and (paragraph-block? block)
(timestamp-block? (first (second block)))))
(or (timestamp-block? (first (second block)))
(timestamp-block? (second (second block))))))
(defn extract-timestamps
[block]
@@ -236,11 +237,9 @@
(cond->
(case k
:scheduled
{:scheduled day
:scheduled-ast v}
{:scheduled day}
:deadline
{:deadline day
:deadline-ast v})
{:deadline day})
repetition
(assoc :repeated? true))))))]
(apply merge m)))