clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-05-28 14:39:48 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix: the first character of a page is altered into small letter when

Browse Source 
there is new block above it

Addresses #3691
This commit is contained in:
Tienson Qin
2022-01-04 21:22:28 +08:00
parent 419f499c34
commit e1cc4b537c
1 changed files with 11 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
src/main/frontend/modules/outliner/core.cljs
View File

@@ -66,28 +66,27 @@
block (cond->
(assoc block :block/updated-at updated-at)
(nil? (:block/created-at block))
(assoc :block/created-at updated-at))
;; content (property/insert-properties (:block/format block)
;; (or (:block/content block) "")
;; {:created-at (:block/created-at block)
;; :updated-at (:block/updated-at block)})
]
(assoc :block/created-at updated-at))]
block))
(defn- remove-orphaned-page-refs!
[db-id txs-state old-refs new-refs]
(when (not= old-refs new-refs)
(let [new-refs (set (map :block/name new-refs))
(let [new-refs (set (map (fn [ref]
(or (:block/name ref)
(and (:db/id ref)
(:block/name (db/entity (:db/id ref)))))) new-refs))
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)
(remove nil?))
orphaned-pages (db-model/get-orphaned-pages {:pages old-pages
:empty-ref-f (fn [page]
(let [refs (:block/_refs page)]
(or (zero? (count refs))
(= #{db-id} (set (map :db/id refs))))))})]
orphaned-pages (when (seq old-pages)
(db-model/get-orphaned-pages {:pages old-pages
:empty-ref-f (fn [page]
(let [refs (:block/_refs page)]
(or (zero? (count refs))
(= #{db-id} (set (map :db/id refs))))))}))]
(when (seq orphaned-pages)
(let [tx (mapv (fn [page] [:db/retractEntity (:db/id page)]) orphaned-pages)]
(swap! txs-state (fn [state] (vec (concat state tx)))))))))