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

fix: allow deleting blocks from embeds

pull/10016/head
Tienson Qin 2023-06-26 16:16:38 +08:00
parent 87b2b42309
commit 4409554bea
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/main/frontend/handler/editor.cljs
View File

@ -751,6 +751,7 @@
block (first blocks)
block-parent (get uuid->dom-block (:block/uuid block))
sibling-block (when block-parent (util/get-prev-block-non-collapsed-non-embed block-parent))]
(prn {:blocks blocks})
(outliner-tx/transact!
{:outliner-op :delete-blocks}
(outliner-core/delete-blocks! blocks {}))
@ -954,13 +955,9 @@
[copy?]
(when copy? (copy-selection-blocks true))
(when-let [blocks (seq (get-selected-blocks))]
;; remove embeds, references and queries
;; remove queries
(let [dom-blocks (remove (fn [block]
(or (= "true" (dom/attr block "data-transclude"))
(= "true" (dom/attr block "data-query")))) blocks)
dom-blocks (if (seq dom-blocks) dom-blocks
(remove (fn [block]
(= "true" (dom/attr block "data-transclude"))) blocks))]
(= "true" (dom/attr block "data-query"))) blocks)]
(when (seq dom-blocks)
(let [repo (state/get-current-repo)
block-uuids (distinct (map #(uuid (dom/attr % "blockid")) dom-blocks))