update pasting external text strategy

This commit is contained in:
rcmerci
2021-05-17 21:17:11 +08:00
committed by Tienson Qin
parent 89edb70682
commit e0112f8e0f

View File

@@ -2543,24 +2543,22 @@
(do
;; from external
(let [format (or (db/get-page-format (state/get-current-page)) :markdown)
editing-block-content (:block/content (db/entity (:db/id (state/get-edit-block))))]
(when (empty? editing-block-content)
(match [format
(nil? (re-find #"^\s*(?:[-+*]|#+)\s+" text))
(nil? (re-find #"^\s*\*+\s+" text))]
[:markdown false _]
(paste-text-parseable format text)
(let [format (or (db/get-page-format (state/get-current-page)) :markdown)]
(match [format
(nil? (re-find #"^\s*(?:[-+*]|#+)\s+" text))
(nil? (re-find #"^\s*\*+\s+" text))]
[:markdown false _]
(paste-text-parseable format text)
[:org _ false]
(paste-text-parseable format text)
[:org _ false]
(paste-text-parseable format text)
[:markdown true _]
(paste-segmented-text format text)
[:markdown true _]
(paste-segmented-text format text)
[:org _ true]
(paste-segmented-text format text))
(util/stop e)))))))
[:org _ true]
(paste-segmented-text format text))
(util/stop e))))))
(defn editor-on-paste!
[id]