clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-05-03 18:36:43 +00:00
Code Issues Packages Projects Releases Wiki Activity

disable gesture on query table and logbook

Browse Source 
fix #5783
This commit is contained in:
llcc
2022-06-22 11:26:28 +08:00
committed by Tienson Qin
parent 292bda9f8b
commit cf7528ee71
1 changed files with 15 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
src/main/frontend/handler/block.cljs
View File

@@ -150,22 +150,29 @@
(def *swipe (atom nil))
(def *touch-start (atom nil))
(defn- target-disable-swipe?
[target]
(or (.closest target ".dsl-query")
(.closest target ".drawer")))
(defn on-touch-start
[event uuid]
(let [input (state/get-input)
(let [target (.-target event)
input (state/get-input)
input-id (state/get-edit-input-id)
selection-type (.-type (.getSelection js/document))]
(reset! *touch-start (js/Date.now))
(when-not (and input
(string/ends-with? input-id (str uuid)))
(state/clear-edit!))
(when (not= selection-type "Range")
(when-let [touches (.-targetTouches event)]
(when (= (.-length touches) 1)
(let [touch (aget touches 0)
x (.-clientX touch)
y (.-clientY touch)]
(reset! *swipe {:x0 x :y0 y :xi x :yi y :tx x :ty y :direction nil})))))))
(when-not (target-disable-swipe? target)
(when (not= selection-type "Range")
(when-let [touches (.-targetTouches event)]
(when (= (.-length touches) 1)
(let [touch (aget touches 0)
x (.-clientX touch)
y (.-clientY touch)]
(reset! *swipe {:x0 x :y0 y :xi x :yi y :tx x :ty y :direction nil}))))))))
(defn on-touch-move
[event block uuid edit? *show-left-menu? *show-right-menu?]