diff options
| -rw-r--r-- | piem-lei.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/piem-lei.el b/piem-lei.el index 6c53733..22814c7 100644 --- a/piem-lei.el +++ b/piem-lei.el @@ -375,6 +375,16 @@ line's message, scroll its text downward, passing ARG to (arg (- arg)) (t '-)))) +(defun piem-lei-query-quit-window (&optional kill) + "Call `quit-window' on the selected window. +If there is a visible `piem-lei-show-mode' buffer, first call +`quit-window' on its window. The prefix argument KILL is passed +to both underlying `quit-window' calls." + (interactive "P") + (when-let ((msg-win (piem-lei-query--get-visible-message-window))) + (quit-window kill msg-win)) + (quit-window kill)) + (defvar piem-lei-query-mode-map (let ((map (make-sparse-keymap))) (define-key map (kbd "RET") #'piem-lei-query-show) @@ -384,6 +394,7 @@ line's message, scroll its text downward, passing ARG to (define-key map "p" #'piem-lei-query-previous-line) (define-key map "s" #'piem-lei-q) (define-key map "t" #'piem-lei-mid-thread) + (define-key map "q" #'piem-lei-query-quit-window) map) "Keymap for `piem-lei-query-mode'.") |