fix: display original page name

This commit is contained in:
Tienson Qin
2021-01-19 20:46:18 +08:00
parent 86e2f8eb77
commit d53ed3fb69
4 changed files with 17 additions and 33 deletions

View File

@@ -51,7 +51,7 @@
(map string/lower-case))
names (db/pull-many '[:page/name :page/original-name] (mapv (fn [page] [:page/name page]) all-pages))
names (zipmap (map :page/name names)
(map (fn [x] (get x :page/original-name (util/capitalize-all (:page/name x)))) names))
(map (fn [x] (get x :page/original-name (:page/name x))) names))
nodes (mapv (fn [node] (assoc node :id (get names (:id node)))) nodes)
links (mapv (fn [{:keys [source target]}]
{:source (get names source)