clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-04-26 15:15:01 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix tag

Browse Source
This commit is contained in:
Tienson Qin
2020-06-30 22:50:48 +08:00
parent b1827ec5fc
commit 7b05112bc9
2 changed files with 14 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
web/src/main/frontend/format/block.cljs
View File

@@ -88,11 +88,11 @@
(defn ->tags
[tags]
(->> (map (fn [tag]
(let [tag (-> (string/lower-case tag)
(string/replace #"\s+" "-"))]
(if (util/tag-valid? tag)
{:db/id tag
:tag/name tag})))
(let [tag (-> (string/lower-case tag)
(string/replace #"\s+" "-"))]
(if (util/tag-valid? tag)
{:db/id tag
:tag/name tag})))
(remove nil? tags))
(remove nil?)
vec))
@@ -106,7 +106,8 @@
(when-let [page (get-page-reference form)]
(swap! ref-pages conj (string/lower-case page)))
(when-let [tag (get-tag form)]
(swap! ref-pages conj (string/lower-case tag)))
(when (util/tag-valid? tag)
(swap! ref-pages conj (string/lower-case tag))))
form)
(concat title body))
(let [ref-pages (remove string/blank? @ref-pages)]