fix: hard to reverse right swipe

src/main/frontend/handler/block.cljs

@@ -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)