diff options
Diffstat (limited to '.config/emacs/lisp/toggle-window/toggle-window.el')
| -rw-r--r-- | .config/emacs/lisp/toggle-window/toggle-window.el | 27 |
1 files changed, 0 insertions, 27 deletions
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) |