fix: selection with reversed direction

pull/11433/head
Tienson Qin 2024-07-25 21:59:29 +08:00
parent 0eaf10cacc
commit 1fa2fef5ad
1 changed files with 3 additions and 11 deletions

View File

@ -1250,19 +1250,11 @@ Similar to re-frame subscriptions"
(defn drop-last-selection-block!
[]
(let [direction @(:selection/direction @state)
up? (= direction :up)
blocks @(:selection/blocks @state)
last-block (if up?
(first blocks)
(peek (vec blocks)))
blocks' (-> (if up?
(rest blocks)
(pop (vec blocks)))
vec)]
(let [blocks @(:selection/blocks @state)
blocks' (vec (butlast blocks))]
(set-state! :selection/mode true)
(set-selection-blocks-aux! blocks')
last-block))
(last blocks)))
(defn hide-custom-context-menu!
[]