feat: add namespace query support

This commit is contained in:
Tienson Qin
2021-09-15 11:28:39 +08:00
parent 4f1402ea42
commit d965394be2
5 changed files with 56 additions and 34 deletions

View File

@@ -317,10 +317,18 @@
nil))
(= 'page fe)
(let [page-name (string/lower-case (first (rest e)))
(let [page-name (string/lower-case (str (first (rest e))))
page-name (text/page-ref-un-brackets! page-name)]
[['?b :block/page [:block/name page-name]]])
(and (= 'namespace fe)
(= 2 (count e)))
(let [page-name (string/lower-case (str (first (rest e))))
page (text/page-ref-un-brackets! page-name)]
(when-not (string/blank? page)
[['?p :block/namespace '?parent]
['?parent :block/name page]]))
(= 'page-property fe)
(let [[k v] (rest e)
k (string/replace (name k) "_" "-")]