From 21dc56539f7641fcde434e25099034e786b633b7 Mon Sep 17 00:00:00 2001
From: Riyyi <riyyi3@gmail.com>
Date: Mon, 22 Aug 2022 16:39:25 +0200
Subject: [PATCH] Emacs: User winner-mode instead of a custom function to undo
 windows

---
 .config/emacs/config.org | 30 +++++++++---------------------
 1 file changed, 9 insertions(+), 21 deletions(-)

diff --git a/.config/emacs/config.org b/.config/emacs/config.org
index 2fbec6f..94551e5 100644
--- a/.config/emacs/config.org
+++ b/.config/emacs/config.org
@@ -399,6 +399,7 @@ Setup file backups versioning.
 ;; https://www.emacswiki.org/emacs/IndentingC
 (setq-default c-basic-offset 4
 			  sgml-basic-offset 4
+			  sh-basic-offset 4
 			  c-default-style "linux")
 #+END_SRC
 
@@ -443,6 +444,12 @@ Set UTF-8 encoding as default.
 		))
 #+END_SRC
 
+Allow 'undo' and 'redo' changes in Window Configuration.
+
+#+BEGIN_SRC emacs-lisp
+(winner-mode)
+#+END_SRC
+
 * Functions
 ** General Functions
 
@@ -553,23 +560,6 @@ Functions that only use built-in Emacs functionality.
 	  (set-fringe-mode '(nil . 0))
 	(set-fringe-mode 0)))
 
-;; Reference: https://gist.github.com/mads-hartmann/3402786#gistcomment-4263171
-(defun dot/toggle-window-maximize ()
-  "Toggle window maximize."
-  (interactive)
-  (save-excursion
-    (if (and (= 1 (length (cl-remove-if
-                           (lambda (w)
-                             (or (and (fboundp 'treemacs-is-treemacs-window?)
-                                      (treemacs-is-treemacs-window? w))
-                                 (and (bound-and-true-p neo-global--window)
-                                      (eq neo-global--window w))))
-                           (window-list))))
-             (assoc ?_ register-alist))
-        (jump-to-register ?_)
-      (window-configuration-to-register ?_)
-      (delete-other-windows))))
-
 (defun dot/M-x (command)
   "Prompt and execute COMMAND."
   (interactive "CCommand: ")
@@ -1081,7 +1071,6 @@ General.el ~leader key binds.
   "t j" '(centaur-tabs-select-end-tab               :which-key "Tab select first")
   "t k" '(centaur-tabs-select-beg-tab               :which-key "Tab select last")
   "t l" '(centaur-tabs-forward-group                :which-key "Tab forward group")
-  "t m" '(dot/toggle-window-maximize                :which-key "Toggle window maximize")
   "t n" '(neotree-toggle-in-project-root            :which-key "Toggle Neotree")
   "t s" '(dot/flyspell-toggle                       :which-key "Toggle spell checker")
   "t w" '(visual-line-mode                          :which-key "Toggle line wrapping")
@@ -1126,18 +1115,17 @@ General.el ~leader key binds.
   "w j"       '(windmove-down                           :which-key "Focus window down")
   "w k"       '(windmove-up                             :which-key "Focus window up")
   "w l"       '(windmove-right                          :which-key "Focus window right")
-  "w m"       '(dot/toggle-window-maximize              :which-key "Toggle window maximize")
   "w o"       '(delete-other-windows                    :which-key "Close other windows")
   "w s"       '(split-follow-horizontally               :which-key "Split horizontal")
   "w v"       '(split-follow-vertically                 :which-key "Split vertical")
   "w w"       '(other-window                            :which-key "Focus other window")
   "w q"       '(dot/centaur-tabs-kill-buffer-or-window  :which-key "Close window")
+  "w r"       '(winner-redo                             :which-key "Redo window configuration")
+  "w u"       '(winner-undo                             :which-key "Undo window configuration")
   "w <left>"  '(windmove-left                           :which-key "Focus window left")
   "w <right>" '(windmove-right                          :which-key "Focus window right")
   "w <up>"    '(windmove-up                             :which-key "Focus window up")
   "w <down>"  '(windmove-down                           :which-key "Focus window down")
-  ;; winner-redo (built-in window history)
-  ;; winner-undo
   )
 #+END_SRC