?d ?start)] [(< ?d ?next)] [(contains? #{"NOW" "LATER" "DOING" "TODO"} ?marker)]] :inputs [:today :4d-after] :result-transform (fn [result] (sort-by (fn [b] (get b :block/priority "Z")) result)) :breadcrumb-show? "> ?d ?start)] [(< ?d ?next)] [(contains? #{"NOW" "LATER" "DOING" "TODO"} ?marker)]] :inputs [:today :4d-after] :result-transform (fn [result] (sort-by (fn [b] (get b :block/priority "Z")) result)) :breadcrumb-show? "> ?d ?start)] [(< ?d ?next)] [(contains? #{"NOW" "LATER" "DOING" "TODO"} ?marker)]] :inputs [:today :4d-after] :result-transform (fn [result] (sort-by (fn [b] (get b :block/priority "Z")) result)) :breadcrumb-show? ">
;; The app will show those queries in today's journal page,
;; the "NOW" query asks the tasks which need to be finished "now",
;; the "NEXT" query asks the future tasks.
:default-queries
{:journals
[
{:title "🔨 DOING"
:query [:find (pull ?b [*])
:where
[?b :block/marker ?marker]
[(contains? #{"NOW" "DOING"} ?marker)]]
:result-transform (fn [result]
(sort-by (fn [b]
(get b :block/priority "Z")) result))
:breadcrumb-show? false
:collapsed? false}
{:title "🐦 未来3天的计划"
:query [:find (pull ?b [*])
:in $ ?start ?next
:where
[?b :block/scheduled ?d]
[?b :block/marker ?marker]
[(> ?d ?start)]
[(< ?d ?next)]
[(contains? #{"NOW" "LATER" "DOING" "TODO"} ?marker)]]
:inputs [:today :4d-after]
:result-transform (fn [result]
(sort-by (fn [b]
(get b :block/priority "Z")) result))
:breadcrumb-show? false
:collapsed? false}
{:title "⏰ 未来7天的DDL"
:query [:find (pull ?b [*])
:in $ ?start ?next
:where
[?b :block/deadline ?d]
[?b :block/marker ?marker]
[(> ?d ?start)]
[(< ?d ?next)]
[(contains? #{"NOW" "LATER" "DOING" "TODO"} ?marker)]]
:inputs [:today :8d-after]
:result-transform (fn [result]
(sort-by (fn [b]
(get b :block/deadline "Z")) result))
:breadcrumb-show? false
:collapsed? false}
{:title "👿 过期DeadLine"
:query [:find (pull ?b [*])
:in $ ?start
:where
[?b :block/deadline ?d]
[?b :block/marker ?marker]
[(< ?d ?start)]
[(contains? #{"NOW" "LATER" "DOING" "TODO"} ?marker)]]
:inputs [:today]
:result-transform (fn [result]
(sort-by (fn [b]
(get b :block/deadline "A")) result))
:breadcrumb-show? false
:collapsed? true}
]}