clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-05-04 10:56:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix: pasting md text remove common prefix spaces

Browse Source
This commit is contained in:
rcmerci
2021-05-19 23:57:23 +08:00
parent 06a8cf9de9
commit 3e7d2fd700
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -2523,10 +2523,13 @@
[format text]
(let [tree (->>
(block/extract-blocks
(mldoc/->edn text (mldoc/default-config format)) text true format)
(mapv #(assoc % :level (:block/level %)))
(blocks-vec->tree))]
(paste-block-tree-at-point tree [])))
(mldoc/->edn text (mldoc/default-config format)) text true format))
min-level (apply min (mapv #(:block/level %) tree))
prefix-level (if (> min-level 1) (- min-level 1) 0)
tree* (->> tree
(mapv #(assoc % :level (- (:block/level %) prefix-level)))
(blocks-vec->tree))]
(paste-block-tree-at-point tree* [])))
(defn- paste-segmented-text
[format text]