From a9cb653949fdab6fd1bb95af57fe86f41daf2a2b Mon Sep 17 00:00:00 2001 From: Tim McCarthy Date: Thu, 26 Sep 2024 22:20:20 -0700 Subject: [PATCH] Zooming for popper windows --- thoom-emacs/init.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/thoom-emacs/init.el b/thoom-emacs/init.el index 61c16c5..dbfb064 100644 --- a/thoom-emacs/init.el +++ b/thoom-emacs/init.el @@ -450,9 +450,10 @@ (defun thoom/zoom-window () "Delete other windows, or restore the saved window configuration if available." (interactive) + ;; Clean up if the saved config isn't valid anymore. (if (and thoom/zoom-saved-windows (not (window-configuration-p thoom/zoom-saved-windows))) - ;; Clean up if the saved config isn't valid anymore. + (setq thoom/zoom-saved-windows nil)) (if thoom/zoom-saved-windows @@ -460,7 +461,9 @@ (set-window-configuration thoom/zoom-saved-windows) (setq thoom/zoom-saved-windows nil)) (setq thoom/zoom-saved-windows (current-window-configuration)) - (delete-other-windows))) + (if (window-parameter (selected-window) 'window-side) + (shrink-window -100) + (delete-other-windows)))) ;;; Dired (use-package dired