diff options
| author | JD Smith <93749+jdtsmith@users.noreply.github.com> | 2022-12-04 14:10:03 -0500 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-12-04 20:10:03 +0100 |
| commit | 218315a12ad3e01545a52784785457140af54934 (patch) | |
| tree | 8c2b16e49db1dc209ad6be2721b78ef83a605b9b /extensions/corfu-popupinfo.el | |
| parent | 4e5d7b360c88756a7b1aaf134dfb5114f906ecab (diff) | |
popupinfo: Remap beg/end-other-window (#270)
Diffstat (limited to 'extensions/corfu-popupinfo.el')
| -rw-r--r-- | extensions/corfu-popupinfo.el | 24 |
1 files changed, 23 insertions, 1 deletions
diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el index c55ea1f..264d5bb 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-of-buffer) + (define-key map [remap beginning-of-buffer-other-window] #'corfu-popupinfo-beginning-of-buffer) map) "Additional keymap activated in popupinfo mode.") @@ -378,11 +380,31 @@ 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-of-buffer (&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*" + (end-of-buffer n))) + (end-of-buffer-other-window n))) + +(defun corfu-popupinfo-beginning-of-buffer (&optional n) + "Scroll text of info popup window to beginning of buffer. + +See `corfu-popupinfo-end-of-buffer' for more details." + (interactive "P") + (corfu-popupinfo-end-of-buffer (- 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) |