refactor: db migrate wip

This commit is contained in:
Tienson Qin
2021-03-13 20:43:04 +08:00
parent 6f689631f8
commit d29b265e28
32 changed files with 371 additions and 362 deletions

View File

@@ -52,9 +52,9 @@
(map :source links)
(map :target links)]))
(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 (:page/name x))) names))
names (db/pull-many '[:block/name :block/original-name] (mapv (fn [page] [:block/name page]) all-pages))
names (zipmap (map :block/name names)
(map (fn [x] (get x :block/original-name (:block/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)
@@ -66,7 +66,7 @@
(defn build-global-graph
[theme show-journal?]
(let [dark? (= "dark" theme)
current-page (:page/name (db/get-current-page))]
current-page (:block/name (db/get-current-page))]
(when-let [repo (state/get-current-repo)]
(let [relation (db/get-pages-relation repo show-journal?)
tagged-pages (db/get-all-tagged-pages repo)
@@ -105,9 +105,9 @@
(let [dark? (= "dark" theme)]
(when-let [repo (state/get-current-repo)]
(let [page (string/lower-case page)
page-entity (db/entity [:page/name page])
original-page-name (:page/original-name page-entity)
tags (:tags (:page/properties page-entity))
page-entity (db/entity [:block/name page])
original-page-name (:block/original-name page-entity)
tags (:tags (:block/properties page-entity))
tags (remove #(= page %) tags)
ref-pages (db/get-page-referenced-pages repo page)
mentioned-pages (db/get-pages-that-mentioned-page repo page)