cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- remove the root of the keychord tree when hitting :backspace.

This commit is contained in:
cage 2022-03-02 21:04:04 +01:00
parent 674ee6b59a
commit 4dd530edb7
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/command-window.lisp
View File

@ -258,10 +258,12 @@ be either `:keybinding' or `:string'. the former for key command the latter for
((eq :control-right decoded-event) ; suggestion win pagination ((eq :control-right decoded-event) ; suggestion win pagination
(move-suggestion-page-right command-window)) (move-suggestion-page-right command-window))
((eq :backspace decoded-event) ; delete last command or char ((eq :backspace decoded-event) ; delete last command or char
(when-let ((command-before-last (safe-all-but-last-elt command-line))) (let ((command-before-last (safe-all-but-last-elt command-line)))
(setf command-line nil) (setf command-line nil)
(if command-before-last
(loop for i in command-before-last do (loop for i in command-before-last do
(enqueue-command command-window i nil)))) (enqueue-command command-window i nil))
(win-hide (suggestions-win command-window)))))
(t (t
(enqueue-command command-window event t)))))) (enqueue-command command-window event t))))))