feat: first pass on queries for tasks

.gitignore

@@ -14,7 +14,10 @@
 
 # shadow-cljs cache, port files
 /.shadow-cljs/
+
+# Intelli-j files
 .idea/
+athens.iml
 
 # local caches
 .clj-kondo/.cache

src/cljs/athens/reactive.cljs

@@ -185,6 +185,21 @@
                  (:block/string e))))))
 
 
+(defn get-reactive-instances-of-key-value
+  "Find all blocks that have key-value matching where
+  key is a string and value is a string, then find that property block's parent."
+  [k v]
+  (->> @(p/q '[:find [?parent ...]
+               :in $ ?key ?value
+               :where
+               [?eid :block/key ?k]
+               [?k :node/title ?key]
+               [?eid :block/string ?value]
+               [?eid :block/property-of ?parent]]
+             athens.db/dsdb k v)
+       (mapv get-reactive-block-document)))
+
+
 (comment
   ;; Print what ratoms are active.
   (-> (ratoms) utils/spy))

src/cljs/athens/types/dispatcher.cljs

@@ -3,7 +3,8 @@
 
 (defn if-not-disabled
   [block-type feature-flags]
-  (let [type->ff {"[[athens/task]]" :tasks}]
+  (let [type->ff {"[[athens/task]]" :tasks
+                  "[[athens/query]]" :queries}]
     (if-let [ff (type->ff block-type)]
       (and (feature-flags ff) block-type)
       block-type)))