mirror of https://github.com/logseq/logseq
fix: add selection direction
parent
4f6809768b
commit
3751689b9e
|
@ -1066,12 +1066,12 @@
|
||||||
|
|
||||||
(defn highlight-selection-area!
|
(defn highlight-selection-area!
|
||||||
[end-block]
|
[end-block]
|
||||||
(when-let [start-block (:selection/start-block @state/state)]
|
(when-let [start-block (state/get-selection-start-block)]
|
||||||
(clear-selection! nil)
|
(clear-selection! nil)
|
||||||
(let [blocks (util/get-nodes-between-two-nodes start-block end-block "ls-block")
|
(let [blocks (util/get-nodes-between-two-nodes start-block end-block "ls-block")
|
||||||
|
|
||||||
direction (util/get-direction-between-two-nodes start-block end-block "ls-block")]
|
direction (util/get-direction-between-two-nodes start-block end-block "ls-block")]
|
||||||
(exit-editing-and-set-selected-blocks! blocks))))
|
(exit-editing-and-set-selected-blocks! blocks direction))))
|
||||||
|
|
||||||
(defn on-select-block
|
(defn on-select-block
|
||||||
[direction]
|
[direction]
|
||||||
|
|
Loading…
Reference in New Issue