From 6ad4d3dfd32b569f9485d24f80a768ed3ca19e46 Mon Sep 17 00:00:00 2001 From: Jack Jamison Date: Thu, 29 Jan 2026 00:47:07 -0500 Subject: improve init and sway --- .config/emacs/lisp/toggle-window/toggle-window.el | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 .config/emacs/lisp/toggle-window/toggle-window.el (limited to '.config/emacs/lisp/toggle-window/toggle-window.el') diff --git a/.config/emacs/lisp/toggle-window/toggle-window.el b/.config/emacs/lisp/toggle-window/toggle-window.el new file mode 100644 index 0000000..28c7c62 --- /dev/null +++ b/.config/emacs/lisp/toggle-window/toggle-window.el @@ -0,0 +1,23 @@ +(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)) + (message "No previous window layout to restore.")) + ;; if multiple windows save configuration + (setq toggle-window-configuration (current-window-configuration)) + ;; delete current or other window + (if (derived-mode-p 'compilation-mode) + (delete-window) + (delete-other-windows))))) + +(provide 'toggle-window) -- cgit v1.2.3