diff options
| author | Jack Jamison <jackqjamison@gmail.com> | 2026-05-05 21:53:16 -0400 |
|---|---|---|
| committer | Jack Jamison <jackqjamison@gmail.com> | 2026-05-05 21:53:16 -0400 |
| commit | be8c956b0e819f2db0c6ae3598b6590b62982a83 (patch) | |
| tree | 9de8204882f8894776bd34f83af2800130bb87b5 /.config/emacs/lisp/toggle-window/toggle-window.el | |
| parent | 6ad4d3dfd32b569f9485d24f80a768ed3ca19e46 (diff) | |
been a while
Diffstat (limited to '.config/emacs/lisp/toggle-window/toggle-window.el')
| -rw-r--r-- | .config/emacs/lisp/toggle-window/toggle-window.el | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/.config/emacs/lisp/toggle-window/toggle-window.el b/.config/emacs/lisp/toggle-window/toggle-window.el index 28c7c62..c518159 100644 --- a/.config/emacs/lisp/toggle-window/toggle-window.el +++ b/.config/emacs/lisp/toggle-window/toggle-window.el @@ -1,17 +1,21 @@ (defvar toggle-window-configuration nil "Stores the window configuration") -;; should rewrite to not do the save configuration thing - (defun toggle-window () (interactive) (if (count-windows) (if (one-window-p) ;; reset configuration if single window (if toggle-window-configuration - (progn - (set-window-configuration toggle-window-configuration) - (setq toggle-window-configuration nil)) + (let* ((current-window (selected-window)) + (current-buffer (window-buffer current-window))) + (progn + (set-window-configuration toggle-window-configuration) + (set-window-buffer current-window current-buffer) + ;; make sure current window keeps state + (window-state-put current-window-state) + (setq toggle-window-configuration nil)) + ) (message "No previous window layout to restore.")) ;; if multiple windows save configuration (setq toggle-window-configuration (current-window-configuration)) |