• autokludge@programming.dev
    link
    fedilink
    English
    arrow-up
    1
    ·
    edit-2
    2 months ago

    I did a lot of tinkering around recently to get an advanced query working for me which ended up being quite tricky to work through. I have Project pages (eg [[12335]] ) and on journal pages I have job note blocks for specific jobs ie #12335 Notes with a :job property so the block title can change if needed. There are multiple levels of notes / subnotes / tasks here and I was attempting to do the below query before I learned or-join, but the query was fragile & failing if tasks weren’t at a specific indent level. I ended up spending a Sunday afternoon deep diving into this stuff to figure this out.


    • As I understand it, the datomic data model is just a HUUGE list of ‘datoms’ which are super basic [element-id|attribute|value] rows for everything.
    • There is some concept of ‘unifying’ which is a variable that appears twice in a :where represents the same value across all clauses.
    • Something like (or-join) allows you to control this unification to selected sub items.
      • My visualization on the query is a graph of conditions
      • The :find (?task) element is absolutely required
      • There are ‘facts’ you want to satisfy [(get ?prop :job) ?job] [(contains? #{"TODO" "WAITING" "DOING"} ?marker)].
      • ?task → ?prop (through or-join) → ?prop must contain :job with value :current-page
      • . ↳ ?marker -> must be one of TODO / WAITING / DOING
    #+BEGIN_QUERY
    {
      :title [:h3 "📅 Outstanding Tasks"]
      :inputs [:current-page]
      :query [
        :find (pull ?task [*])
        :in $ ?job
        :where
          (or-join [?task ?prop]        ; only care that ?task and ?prop are 'unified' with rest of clauses
           (and
            [?task :block/page ?page]
            [?page :block/properties-text-values ?prop]    ; does page have :job property?
            )
           (and
            [?task :block/parent ?tp]
            [?tp :block/properties-text-values ?prop]    ; does task parent have :job property?
            )
           (and
            [?task :block/parent ?tp]
            [?tp :block/parent ?tpp]
            [?tpp :block/properties-text-values ?prop]    ; does task grand-parent contain :job prop?
            )
           (and
            [?task :block/parent ?tp]
            [?tp :block/parent ?tpp]
            [?tpp :block/parent ?tppp]
            [?tppp :block/properties-text-values ?prop]    ; does task great-grand-parent contain :job prop?
            )
          )
          [(get ?prop :job) ?job]                           ; does one-of ?props from above contain :job <%current page%>?
          [?task :block/marker ?marker]                                   
          [(contains? #{"TODO" "WAITING" "DOING"} ?marker)]  ; ?task:block/marker must match one of these
      ]
      :table-view? false
      :result-transform (fn [result]
          (sort-by (fn [m]
                    (get m :block/marker)) > result
          )
          )
      :breadcrumb-show? false
      :collapsed? false
    }
    #+END_QUERY