From 795ba7a9ce5987c6d74f36235bdfe948bf522b84 Mon Sep 17 00:00:00 2001 From: cage Date: Fri, 23 Jul 2021 21:44:05 +0200 Subject: [PATCH] - implemented cut line from point (using "^K") in command window. --- src/command-window.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/command-window.lisp b/src/command-window.lisp index 40a7724..7f855e0 100644 --- a/src/command-window.lisp +++ b/src/command-window.lisp @@ -467,7 +467,8 @@ command line." (info-message info-message) (prompt prompt) (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) (when (and new-id new-input) @@ -478,6 +479,8 @@ command line." (set-history-most-recent command-window prompt))) (remove-messages command-window) (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) (move-suggestion-page-left command-window)) ((eq :alt-right event)