|
|
@@ -2554,19 +2554,21 @@
|
|
|
[el]
|
|
|
(some? (dom/closest el ".single-block")))
|
|
|
|
|
|
-(defn keydown-new-block-handler [state e]
|
|
|
- (if (or (state/doc-mode-enter-for-new-line?) (inside-of-single-block (rum/dom-node state)))
|
|
|
- (keydown-new-line)
|
|
|
- (do
|
|
|
- (.preventDefault e)
|
|
|
- (keydown-new-block state))))
|
|
|
-
|
|
|
-(defn keydown-new-line-handler [state e]
|
|
|
- (if (and (state/doc-mode-enter-for-new-line?) (not (inside-of-single-block (rum/dom-node state))))
|
|
|
- (keydown-new-block state)
|
|
|
- (do
|
|
|
- (.preventDefault e)
|
|
|
- (keydown-new-line))))
|
|
|
+(defn keydown-new-block-handler [e]
|
|
|
+ (let [state (get-state)]
|
|
|
+ (if (or (state/doc-mode-enter-for-new-line?) (inside-of-single-block (rum/dom-node state)))
|
|
|
+ (keydown-new-line)
|
|
|
+ (do
|
|
|
+ (.preventDefault e)
|
|
|
+ (keydown-new-block state)))))
|
|
|
+
|
|
|
+(defn keydown-new-line-handler [e]
|
|
|
+ (let [state (get-state)]
|
|
|
+ (if (and (state/doc-mode-enter-for-new-line?) (not (inside-of-single-block (rum/dom-node state))))
|
|
|
+ (keydown-new-block state)
|
|
|
+ (do
|
|
|
+ (.preventDefault e)
|
|
|
+ (keydown-new-line)))))
|
|
|
|
|
|
(defn- select-first-last
|
|
|
"Select first or last block in viewpoint"
|
|
|
@@ -3271,13 +3273,13 @@
|
|
|
nil))
|
|
|
|
|
|
(defn editor-delete
|
|
|
- [_state e]
|
|
|
+ [e]
|
|
|
(when (state/editing?)
|
|
|
(util/stop e)
|
|
|
(keydown-delete-handler e)))
|
|
|
|
|
|
(defn editor-backspace
|
|
|
- [_state e]
|
|
|
+ [e]
|
|
|
(when (state/editing?)
|
|
|
(keydown-backspace-handler false e)))
|
|
|
|