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: Cmd-v sometimes pastes wrong content

Browse Source
This commit is contained in:
Tienson Qin
2022-04-22 04:05:45 +08:00
parent cb9fde5b12
commit 192eab6a09
1 changed files with 11 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -2884,19 +2884,22 @@
(recur (remove (set (map :block/uuid result)) (rest ids)) result))
result)))
(defn- paste-text
(defn- paste-copied-blocks-or-text
[text e]
(let [copied-blocks (state/get-copied-blocks)
copied-block-ids (:copy/block-ids copied-blocks)
input (state/get-input)
*stop-event? (atom true)]
(cond
(or (seq copied-block-ids)
(seq (:copy/full-blocks copied-blocks))
(and text
(:copy/content copied-blocks)
(= (string/replace (string/trim text) "\r" "")
(string/replace (string/trim (:copy/content copied-blocks)) "\r" ""))))
;; Internal blocks by either copy or cut blocks
(and
(or (seq copied-block-ids)
(seq (:copy/full-blocks copied-blocks)))
text
(or (:copy/content copied-blocks) "")
;; not copied from the external clipboard
(= (string/replace (string/trim text) "\r" "")
(string/replace (string/trim (:copy/content copied-blocks)) "\r" "")))
(let [blocks (or
(:copy/full-blocks copied-blocks)
(get-all-blocks-by-ids (state/get-current-repo) copied-block-ids))]
@@ -2970,7 +2973,7 @@
(when-not (mobile-util/native-ios?)
(util/stop e)
(paste-text-in-one-block-at-point))
(paste-text text e))
(paste-copied-blocks-or-text text e))
(let [_handled
(let [clipboard-data (gobj/get e "clipboardData")
files (.-files clipboard-data)]