This commit is contained in:
Tienson Qin
2020-06-19 21:16:18 +08:00
parent 2a1262573a
commit da1fc1ca1d
6 changed files with 90 additions and 46 deletions

View File

@@ -114,8 +114,10 @@
(defn ->tags
[tags]
(mapv (fn [tag]
{:db/id tag
:tag/name (string/lower-case tag)})
(let [tag (-> (string/lower-case tag)
(string/replace #"\s+" "-"))]
{:db/id tag
:tag/name tag}))
tags))
(defn collect-heading-tags