diff options
| author | JD Smith <93749+jdtsmith@users.noreply.github.com> | 2022-12-04 14:10:03 -0500 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2022-12-04 22:44:39 +0100 |
| commit | dfc31349d25552e3c64b2a4e05a3779ad2b5dac8 (patch) | |
| tree | f6c8b033c4125a660c0c71e1ca75c921be954ab4 | |
| parent | 712f2617b06665efde477d664422d4392929b86b (diff) | |
popupinfo: Remap beg/end-other-window (#270)
| -rw-r--r-- | extensions/corfu-popupinfo.el | 25 |
1 files changed, 24 insertions, 1 deletions
diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el index c55ea1f..4a4938c 100644 --- a/extensions/corfu-popupinfo.el +++ b/extensions/corfu-popupinfo.el @@ -119,6 +119,8 @@ popup can be requested manually via `corfu-popupinfo-toggle', (define-key map "\M-t" #'corfu-popupinfo-toggle) (define-key map [remap scroll-other-window] #'corfu-popupinfo-scroll-up) (define-key map [remap scroll-other-window-down] #'corfu-popupinfo-scroll-down) + (define-key map [remap end-of-buffer-other-window] #'corfu-popupinfo-end) + (define-key map [remap beginning-of-buffer-other-window] #'corfu-popupinfo-beginning) map) "Additional keymap activated in popupinfo mode.") @@ -378,11 +380,32 @@ form (X Y WIDTH HEIGHT DIR)." "Clear the info popup buffer content and hide it." (corfu--hide-frame corfu-popupinfo--frame)) +(defun corfu-popupinfo-end (&optional n) + "Scroll text of info popup window to its end. + +If arg N is omitted or nil, scroll to end. If a numerical value, +put point N/10 of the way from the end. If the info popup is not +visible, the other window is moved to beginning or end." + (interactive "P") + (if (corfu-popupinfo--visible-p) + (with-selected-frame corfu-popupinfo--frame + (with-current-buffer " *corfu-popupinfo*" + (with-no-warnings + (end-of-buffer n)))) + (end-of-buffer-other-window n))) + +(defun corfu-popupinfo-beginning (&optional n) + "Scroll text of info popup window to beginning of buffer. + +See `corfu-popupinfo-end-of-buffer' for the argument N." + (interactive "P") + (corfu-popupinfo-end (- 10 (if (numberp n) n 0)))) + (defun corfu-popupinfo-scroll-up (&optional n) "Scroll text of info popup window upward N lines. If ARG is omitted or nil, scroll upward by a near full screen. -See `scroll-up' for details. If the info popup is not visible, +See `scroll-up' for details. If the info popup is not visible, the other window is scrolled." (interactive "p") (if (corfu-popupinfo--visible-p) |