Untitled

mail@pastecode.io avatar
unknown
clojure
3 years ago
2.3 kB
22
Indexable
Never
:default-queries
 {:journals
  [{:title            "🔨 NOW"
    :query            [:find (pull ?h [*])
                       :in $ ?start ?today
                       :where
                       [?h :block/marker ?marker]
                       [(contains? #{"NOW" "DOING"} ?marker)]
                       [?h :block/page ?p]
                       [?p :block/journal? true]
                       [?p :block/journal-day ?d]
                       [(>= ?d ?start)]
                       [(<= ?d ?today)]]
    :inputs           [:14d :today]
    :result-transform (fn [result]
                        (sort-by (fn [h]
                                   (get h :block/priority "Z")) result))
    :collapsed?       false}

{:title "❓ Random Block"
 :query [:find (pull ?b [*])
         :where
         [?b :block/content ?content]
         (not [(empty? ?content)])]
 :result-transform (fn [result]
                     [(rand-nth result)])
 :collapsed? false}
   {:title         "🔥 OVERDUE"
    :query         [:find (pull ?b [*])
                :in $ ?start ?next
                :where
                [?b :block/marker ?marker]
                (or [?b :block/scheduled ?d]
                [?b :block/deadline ?d])
                [(contains? #{"TODO" "DOING" "NOW" "LATER" "WAITING"} ?marker)]
                [(>= ?d ?start)]
                [(<= ?d ?next)]]
    :inputs [:365d :1d]
    :result-transform (fn [result]
                             (sort-by (fn [h]
                                   (get h :block/priority "Z")) result))
    :collapsed? false
    :breadcrumb-show? false}

   {:title      "📅 NEXT"
    :query      [:find (pull ?p [*])
                 :in $ ?start ?next
                 :where
                 [?p :block/marker ?marker]
                 (or [?p :block/scheduled ?d]
                  [?p :block/deadline ?d]
                 [?p :block/journal-day ?d])
                 [(contains? #{"NOW" "LATER" "TODO" "WAITING"} ?marker)]
                 [(> ?d ?start)]
                 [(< ?d ?next)]]
    :inputs     [:today :7d-after]
    :result-transform (fn [result]
                             (sort-by (fn [h]
                                   (get h :block/priority "Z")) result))
    :collapsed? false
    :breadcrumb-show? false}
]}