greatbody
/
logseq
mirror of https://github.com/logseq/logseq
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

fix(ux): ordered list conditions for checking the moved blocks

pull/9269/head
charlie 2023-04-27 16:13:07 +08:00
parent ee81de9b85
commit 04c0e500c1
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -12,6 +12,7 @@
[frontend.modules.outliner.utils :as outliner-u]
[frontend.state :as state]
[frontend.util :as util]
[frontend.util.property :as property]
[logseq.graph-parser.util :as gp-util]
[cljs.spec.alpha :as s]))
@ -415,11 +416,12 @@
(letfn [(list-type-fn [b] (some-> b :block/properties :logseq.order-list-type))]
(if-let [list-type (and target-block (list-type-fn target-block))]
(mapv
(fn [block]
(fn [{:block/keys [content format] :as block}]
(cond-> block
(and (some? (:block/uuid block))
(nil? (list-type-fn block)))
(update :block/properties #(assoc % :logseq.order-list-type list-type))))
(-> (update :block/properties #(assoc % :logseq.order-list-type list-type))
(assoc :block/content (property/insert-property format content :logseq.order-list-type list-type)))))
blocks)
blocks))))