fix: page blanks when saving a block which has block refs

pull/3240/head
Tienson Qin 2021-11-23 11:57:50 +08:00
parent 1e7d42a4ed
commit dae7c66f23
2 changed files with 4 additions and 2 deletions

View File

@ -1442,7 +1442,8 @@
[{:keys [repo pages empty-ref-f]
:or {repo (state/get-current-repo)
empty-ref-f (fn [page] (zero? (count (:block/_refs page))))}}]
(let [pages (or pages (get-pages repo))
(let [pages (->> (or pages (get-pages repo))
(remove nil?))
built-in-pages (set (map string/lower-case default-db/built-in-pages-names))
orphaned-pages (->>
(map

View File

@ -90,7 +90,8 @@
old-pages (->> (map :db/id old-refs)
(db-model/get-entities-by-ids)
(remove (fn [e] (contains? new-refs (:block/name e))))
(map :block/name))
(map :block/name)
(remove nil?))
orphaned-pages (db-model/get-orphaned-pages {:pages old-pages
:empty-ref-f (fn [page]
(let [refs (:block/_refs page)]