cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2024-12-14 22:54:02 +01:00
Code Issues

- implemented cut line from point (using "^K") in command window.

Browse Source
This commit is contained in:
cage 2021-07-23 21:44:05 +02:00
parent 04e33e88f5
commit 795ba7a9ce
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/command-window.lisp
View File

@ -467,7 +467,8 @@ command line."
(info-message info-message) (info-message info-message)
(prompt prompt) (prompt prompt)
(history-position history-position) (history-position history-position)
(suggestions-win suggestions-win)) command-window (suggestions-win suggestions-win)
(point-position point-position)) command-window
(flet ((set-history (new-id new-input) (flet ((set-history (new-id new-input)
(when (and new-id (when (and new-id
new-input) new-input)
@ -478,6 +479,8 @@ command line."
(set-history-most-recent command-window prompt))) (set-history-most-recent command-window prompt)))
(remove-messages command-window) (remove-messages command-window)
(cond (cond
((string= (decode-key-event event) "^K")
(setf command-line (safe-subseq command-line 0 (no-prompt-point-pos command-window))))
((eq :alt-left event) ((eq :alt-left event)
(move-suggestion-page-left command-window)) (move-suggestion-page-left command-window))
((eq :alt-right event) ((eq :alt-right event)