fix: hard to reverse right swipe

This commit is contained in:
llcc
2022-06-09 14:18:33 +08:00
committed by Tienson Qin
parent 1f788d6420
commit c1822f3ed1

View File

@@ -172,7 +172,8 @@
(when-let [touches (.-targetTouches event)]
(let [selection-type (.-type (.getSelection js/document))]
(when-not (= selection-type "Range")
(when (< (- (js/Date.now) @*touch-start) 600)
(when (or (not (state/sub :editor/editing?))
(< (- (js/Date.now) @*touch-start) 600))
(when (and (= (.-length touches) 1) @*swipe)
(let [{:keys [x0 xi direction]} @*swipe
touch (aget touches 0)