|
@@ -63,8 +63,8 @@
|
|
|
[text e html]
|
|
[text e html]
|
|
|
(util/stop e)
|
|
(util/stop e)
|
|
|
(let [copied-blocks (state/get-copied-blocks)
|
|
(let [copied-blocks (state/get-copied-blocks)
|
|
|
- copied-graph (:copy/graph copied-blocks)
|
|
|
|
|
input (state/get-input)
|
|
input (state/get-input)
|
|
|
|
|
+ text (string/replace text "\r\n" "\n") ;; Fix for Windows platform
|
|
|
internal-paste? (and
|
|
internal-paste? (and
|
|
|
(seq (:copy/blocks copied-blocks))
|
|
(seq (:copy/blocks copied-blocks))
|
|
|
;; not copied from the external clipboard
|
|
;; not copied from the external clipboard
|
Andelf