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

fix: replace-block-reference-with-content-at-point not working

Browse Source
This commit is contained in:
Peng Xiao
2022-03-16 14:16:49 +08:00
committed by Tienson Qin
parent 6b935a8d58
commit 4ea3d6eef8
2 changed files with 76 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -3619,19 +3619,18 @@
(defn replace-block-reference-with-content-at-point
[]
(when-let [{:keys [content start end]} (thingatpt/block-ref-at-point)]
(let [block-ref-id (subs content 2 (- (count content) 2))]
(when-let [block (db/pull [:block/uuid (uuid block-ref-id)])]
(let [block-content (:block/content block)
format (or (:block/format block) :markdown)
block-content-without-prop (-> (property/remove-properties format block-content)
(drawer/remove-logbook))]
(when-let [input (state/get-input)]
(when-let [current-block-content (gobj/get input "value")]
(let [block-content* (str (subs current-block-content 0 start)
block-content-without-prop
(subs current-block-content end))]
(state/set-block-content-and-last-pos! input block-content* 1)))))))))
(when-let [{:keys [start end link]} (thingatpt/block-ref-at-point)]
(when-let [block (db/pull [:block/uuid link])]
(let [block-content (:block/content block)
format (or (:block/format block) :markdown)
block-content-without-prop (-> (property/remove-properties format block-content)
(drawer/remove-logbook))]
(when-let [input (state/get-input)]
(when-let [current-block-content (gobj/get input "value")]
(let [block-content* (str (subs current-block-content 0 start)
block-content-without-prop
(subs current-block-content end))]
(state/set-block-content-and-last-pos! input block-content* 1))))))))
(defn copy-current-ref
[block-id]