mirror of
https://github.com/logseq/logseq.git
synced 2026-05-05 03:16:37 +00:00
Allow advanced queries to pull in dsl rules as needed
- Remove unused query' and when checks from custom-query - Update bb command to use correct watch - Provide $EXAMPLE mode in query dsl test to document rule usage
This commit is contained in:
committed by
Tienson Qin
parent
a7b230d71d
commit
79bbf21f7d
@@ -15,10 +15,25 @@
|
||||
|
||||
;; Test helpers
|
||||
;; ============
|
||||
|
||||
(def dsl-query*
|
||||
"When $EXAMPLE set, prints query result of build query. Useful for
|
||||
documenting examples and debugging"
|
||||
(if (some? js/process.env.EXAMPLE)
|
||||
(fn dsl-query-star [& args]
|
||||
(let [old-build-query query-dsl/build-query]
|
||||
(with-redefs [query-dsl/build-query
|
||||
(fn [& args']
|
||||
(let [res (apply old-build-query args')]
|
||||
(println "EXAMPLE:" (pr-str (:query res)))
|
||||
res))]
|
||||
(apply query-dsl/query args))))
|
||||
query-dsl/query))
|
||||
|
||||
(defn- dsl-query
|
||||
[s]
|
||||
(db/clear-query-state!)
|
||||
(when-let [result (query-dsl/query test-helper/test-db s)]
|
||||
(when-let [result (dsl-query* test-helper/test-db s)]
|
||||
(map first (deref result))))
|
||||
|
||||
(defn- custom-query
|
||||
|
||||
Reference in New Issue
Block a user