From 1c523abf12901d72b48e2e8a70ae03a8c4ea0818 Mon Sep 17 00:00:00 2001 From: Rutherther Date: Sun, 1 Feb 2026 15:34:06 +0100 Subject: [PATCH] feat: add k + to expand the popper --- init.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/init.el b/init.el index fee10c1b87cb19ab9515f2d4b97ea57555cb0429..5f46479fa6d540952d0a3e536dfbc9adda2caef9 100644 --- a/init.el +++ b/init.el @@ -554,6 +554,12 @@ (window-list)))) (window-resize popup-win (- height (window-height popup-win)))))) +(defun my/expand-popper-popup () + "Expand the popper popup window to half the frame height." + (interactive) + (let ((target-height (/ (frame-height) 2))) + (my/shrink-popper-popup target-height))) + (my-use-package popper :ensure t :demand t @@ -568,7 +574,8 @@ "k t" '(popper-toggle-type :wk "Popper toggle popup") "k j" '(popper-cycle :wk "Popper cycle") "k J" '(popper-cycle-backwards :wk "Popper cycle backwards") - "k -" '(my/shrink-popper-popup :wk "Shrink poopper")) + "k +" '(my/expand-popper-popup :wk "Expand popper") + "k -" '(my/shrink-popper-popup :wk "Shrink popper")) :custom (popper-mode-line '(:eval (propertize " POP " 'face 'mode-line-emphasis))) (popper-echo-dispatch-keys '(?q ?w ?e ?r ?t ?y ?u ?i ?o ?p))