fix: use set to match condition

pull/10389/head
Andelf 2023-10-19 10:26:50 +08:00
parent 13a59d922d
commit 7c1b23163c
1 changed files with 4 additions and 6 deletions

View File

@ -2644,10 +2644,9 @@
;; handle DataTransfer ;; handle DataTransfer
(let [repo (state/get-current-repo) (let [repo (state/get-current-repo)
data-transfer (.-dataTransfer event) data-transfer (.-dataTransfer event)
transfer-types (js->clj (.-types data-transfer)) transfer-types (set (js->clj (.-types data-transfer)))]
transfer-type (first transfer-types)]
(cond (cond
(= transfer-type "text/plain") (contains? transfer-types "text/plain")
(let [text (.getData data-transfer "text/plain")] (let [text (.getData data-transfer "text/plain")]
(editor-handler/api-insert-new-block! (editor-handler/api-insert-new-block!
text text
@ -2656,7 +2655,7 @@
:sibling? (= @*move-to :sibling) :sibling? (= @*move-to :sibling)
:before? (= @*move-to :top)})) :before? (= @*move-to :top)}))
(= transfer-type "Files") (contains? transfer-types "Files")
(let [files (.-files data-transfer) (let [files (.-files data-transfer)
format (:block/format target-block)] format (:block/format target-block)]
;; When editing, this event will be handled by editor-handler/upload-asset(editor-on-paste) ;; When editing, this event will be handled by editor-handler/upload-asset(editor-on-paste)
@ -2685,8 +2684,7 @@
:before? false})))))))) :before? false}))))))))
:else :else
(prn ::unhandled-drop-data-transfer-type transfer-types))) (prn ::unhandled-drop-data-transfer-type transfer-types))))))
)))
(block-drag-end event *move-to)) (block-drag-end event *move-to))
(defn- block-mouse-over (defn- block-mouse-over