fix: don't parse quoted string as page references for properties

This commit is contained in:
Tienson Qin
2021-07-27 22:57:30 +08:00
parent c394534e48
commit cc948b5a23
5 changed files with 28 additions and 17 deletions

View File

@@ -185,9 +185,7 @@
(update :roam_tags (constantly roam-tags))
(update :filetags (constantly filetags)))
properties (medley/filter-kv (fn [k v] (not (empty? v))) properties)
properties (medley/map-vals (fn [v] (if (and (string? v) (>= (count v) 2) (= (first v) (last v) "\""))
(subs v 1 (dec (count v)))
v)) properties)]
properties (medley/map-vals util/unquote-string-if-wrapped properties)]
(if (seq properties)
(cons [["Properties" properties] nil] other-ast)
original-ast))