Don't convert a raw link to html when paste

This commit is contained in:
Tienson Qin
2020-07-07 14:17:35 +08:00
parent b39373fd59
commit 37d2a02f43
2 changed files with 9 additions and 8 deletions

View File

@@ -559,11 +559,12 @@
(defn- append-paste-doc!
[format event]
(when-let [html (util/get-clipboard-as-html event)]
(let [doc-text (html-parser/parse format html)]
(when-not (string/blank? doc-text)
(util/stop event)
(state/append-current-edit-content! doc-text)))))
(let [[html text] (util/get-clipboard-as-html event)]
(when-not (string/starts-with? (string/trim text) "http")
(let [doc-text (html-parser/parse format html)]
(when-not (string/blank? doc-text)
(util/stop event)
(state/append-current-edit-content! doc-text))))))
(rum/defc box < rum/reactive
(mixins/event-mixin

View File

@@ -678,8 +678,8 @@
(defn- get-clipboard-as-html
[event]
(if-let [c (gobj/get event "clipboardData")]
(.getData c "text/html")
[(.getData c "text/html") (.getData c "text")]
(if-let [c (gobj/getValueByKeys event "originalEvent" "clipboardData")]
(.getData c "text/html")
[(.getData c "text/html") (.getData c "text")]
(if-let [c (gobj/get js/window "clipboardData")]
(.getData c "Text")))))
[(.getData c "Text") (.getData c "Text")]))))