Tienson Qin 4 年之前
父節點
當前提交
4c9b29e02d
共有 1 個文件被更改,包括 4 次插入2 次删除
  1. 4 2
      src/main/frontend/handler/extract.cljs

+ 4 - 2
src/main/frontend/handler/extract.cljs

@@ -115,7 +115,7 @@
                                                              (remove string/blank?))]
                                                (swap! ref-tags set/union (set tags))
                                                (map (fn [tag] {:block/name (string/lower-case tag)
-                                                               :block/original-name tag})
+                                                              :block/original-name tag})
                                                  tags)))))
           pages (->> (concat
                       [page-entity]
@@ -153,7 +153,9 @@
            properties (let [properties (and (property/properties-ast? first-block)
                                             (->> (last first-block)
                                                  (map (fn [[x y]]
-                                                        [x (property/parse-property x y)]))
+                                                        [x (if (string? y)
+                                                             (property/parse-property x y)
+                                                             y)]))
                                                  (into {})
                                                  (walk/keywordize-keys)))]
                         (when (and properties (seq properties))