fix: slide bugs

close #4799
This commit is contained in:
Tienson Qin
2022-10-29 07:24:47 +08:00
parent 223b62de28
commit ef7e3d2fa4
4 changed files with 27 additions and 12 deletions

View File

@@ -3089,9 +3089,15 @@
(when (state/editing?)
(keydown-backspace-handler false e)))
(defn- slide-focused?
[]
(some-> (first (dom/by-class "reveal"))
(dom/has-class? "focused")))
(defn shortcut-up-down [direction]
(fn [e]
(when-not (auto-complete?)
(when (and (not (auto-complete?))
(not (slide-focused?)))
(util/stop e)
(cond
(state/editing?)