#+BEGIN_QUERY
{:query [
 :find (count ?b)
 :where
 [task ?b #{"TODO" "WAIT"}]
]}
#+END_QUERY

#+BEGIN_QUERY
{:query [
 :find (count ?b)
 :where
 [task ?b #{"WAITING" "WAIT"}]
]
:view (fn [r] (str "There are currently " (nth r 0) " open loop items."))
:collapsed? false
}
#+END_QUERY

#+BEGIN_QUERY
{
    :title [:h2 "pages finished in May 2023"]
    :inputs ["May 1st, 2023" "May 31st, 2023"] ;
    :query [
        :find (pull ?b [*])
        :in $ ?start ?end;
        :where
            (property ?b :type "my-page")
            (property ?b :is-done true)
            [?b :block/properties ?properties]
            [(get ?properties :done-date) ?done-date]
            [?b :block/ref-pages ?p]      ; find the page references
            [?p :block/journal? true]      ; which are journal pages
            [?p :block/journal-day ?d]   ; extract their date
            [(>= ?d ?start)]                ; 
            [(<= ?d ?end)]
      ]
  }
}
#+END_QUERY

#+BEGIN_QUERY
{
 :query [:find (pull ?b [*])
         :in $ ?start ?end
         :where
              [?b :block/properties ?properties]
              [(get ?properties :type) ?type]
              [(= ?type "my-page")]
              [(get ?properties :is-done) ?done]
              [(= ?done true)]
              [(get ?properties :done-date) ?d]
              [?j :block/journal? true]
              [?j :block/original-name ?jn]
              [(contains? ?d ?jn)]
              [?j :block/journal-day ?d-num]
              [(< ?d-num ?end)]
              [(> ?d-num ?start)]
 ]
 :inputs [20230501 20230531]
}
#+END_QUERY