fix: introduce more page-name sanity

This commit is contained in:
Junyi Du
2022-01-07 02:31:08 +08:00
committed by Tienson Qin
parent 43da23eecd
commit 7505b0dde6
14 changed files with 45 additions and 45 deletions

View File

@@ -160,7 +160,7 @@
page-ref?
(let [page-name (-> (text/page-ref-un-brackets! e)
(string/lower-case))]
(util/page-name-sanity-lc))]
[['?b :block/path-refs [:block/name page-name]]])
(string? e) ; block content full-text search, could be slow
@@ -330,8 +330,8 @@
nil))
(= 'page fe)
(let [page-name (string/lower-case (str (first (rest e))))
page-name (text/page-ref-un-brackets! page-name)]
(let [page-name (text/page-ref-un-brackets! (str (first (rest e))))
page-name (util/page-name-sanity-lc page-name)]
[['?b :block/page [:block/name page-name]]])
(and (= 'namespace fe)