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

enhance: copy replace block-ref and embeds

Browse Source
This commit is contained in:
rcmerci
2021-07-21 17:01:18 +08:00
committed by Tienson Qin
parent aa9bfd45f5
commit 4f8723790a
1 changed files with 5 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -26,6 +26,7 @@
[frontend.handler.repo :as repo-handler]
[frontend.handler.route :as route-handler]
[frontend.handler.ui :as ui-handler]
[frontend.handler.export :as export]
[frontend.image :as image]
[frontend.modules.outliner.core :as outliner-core]
[frontend.modules.outliner.tree :as tree]
@@ -1045,28 +1046,10 @@
level-blocks-uuid-map (into {} (mapv (fn [b] [(:block/uuid b) b]) (vals level-blocks-map)))
level-blocks (mapv (fn [uuid] (get level-blocks-uuid-map uuid)) block-ids*)
tree (blocks-vec->tree level-blocks)
contents
(mapv (fn [block]
(let [header
(if (= format :markdown)
(str (string/join (repeat (- (:level block) 1) "\t")) "-")
(string/join (repeat (:level block) "*")))]
(str header " " (:block/content block) "\n")))
level-blocks)
content-without-properties
(mapv
(fn [content]
(let [ast (mldoc/->edn content (mldoc/default-config format))
properties-loc
(->> ast
(filterv (fn [[[type _] loc]] (= type "Property_Drawer")))
(mapv second)
first)]
(if properties-loc
(utf8/delete! content (:start_pos properties-loc) (:end_pos properties-loc))
content)))
contents)]
[(string/join content-without-properties) tree]))
top-level-block-uuids (mapv :block/uuid (filterv #(not (vector? %)) tree))
exported-md-contents (mapv #(export/export-blocks-as-markdown repo % "spaces")
top-level-block-uuids)]
[(string/join "\n" (mapv string/trim-newline exported-md-contents)) tree]))
(defn copy-selection-blocks
[]