improve init and sway

3 files changed, 24 insertions, 0 deletions

diff --git a/.config/emacs/lisp/proj b/.config/emacs/lisp/proj
-Subproject b84a1feb35a528d6bcfa4e807c0b416d23dfeeb
+Subproject 2c3e7050a2cf6d51dd274f7a03721d1fdb8fbf3
diff --git a/.config/emacs/lisp/toggle-window.el b/.config/emacs/lisp/toggle-window.el
new file mode 120000
index 0000000..1da50be
--- /dev/null
+++ b/.config/emacs/lisp/toggle-window.el
@@ -0,0 +1 @@
+toggle-window/toggle-window.el
\ No newline at end of file
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)