fix: query dsl

This commit is contained in:
Tienson Qin
2021-05-25 20:12:50 +08:00
parent 1f17da3b1f
commit e7879c5388
6 changed files with 144 additions and 139 deletions

View File

@@ -183,29 +183,7 @@
k)
v (if (coll? v)
v
(let [v (string/trim v)
v (cond
(= v "true")
true
(= v "false")
false
(util/safe-re-find #"^\d+$" v)
(util/safe-parse-int v)
(and (= "\"" (first v) (last v))) ; wrapped in ""
(string/trim (subs v 1 (dec (count v))))
(contains? @non-parsing-properties (string/lower-case k))
v
:else
(if (and k v
(contains? config/markers k)
(util/safe-parse-int v))
(util/safe-parse-int v)
(text/split-page-refs-without-brackets v true)))]
v))
(property/parse-property k v))
k (keyword k)
v (if (and
(string? v)