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

@@ -175,7 +175,7 @@
(date/journal-name))]
(when page
(let [page-name (util/url-decode (string/lower-case page))]
(db-utils/entity [:page/name page-name])))))
(db-utils/entity [:block/name page-name])))))
(defn get-current-priority
[]
@@ -240,7 +240,7 @@
(apply concat
(for [{:block/keys [ref-pages]} blocks]
(map (fn [page]
(when-let [page (db-utils/entity [:page/name (:page/name page)])]
(when-let [page (db-utils/entity [:block/name (:block/name page)])]
[:page/refed-blocks (:db/id page)]))
ref-pages)))