From 8c4e09dff83847ac7f07bf1da7751e9328006c4d Mon Sep 17 00:00:00 2001 From: Jack Jamison Date: Thu, 30 Jul 2026 20:09:00 -0400 Subject: actual final changes and get rid of junk in lisp dir actually works fine --- .config/emacs/lisp/toggle-window/toggle-window.el | 27 ----------------------- 1 file changed, 27 deletions(-) delete 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 deleted file mode 100644 index c518159..0000000 --- a/.config/emacs/lisp/toggle-window/toggle-window.el +++ /dev/null @@ -1,27 +0,0 @@ -(defvar toggle-window-configuration nil - "Stores the window configuration") - -(defun toggle-window () - (interactive) - (if (count-windows) - (if (one-window-p) - ;; reset configuration if single window - (if toggle-window-configuration - (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)) - ;; delete current or other window - (if (derived-mode-p 'compilation-mode) - (delete-window) - (delete-other-windows))))) - -(provide 'toggle-window) -- cgit v1.2.3