1 files changed, 8 insertions(+), 1 deletions(-)

M 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))