Update

2025-12-22 10:51:46 +11:00
parent 697231fdec
commit e116a6b576
9 changed files with 247 additions and 11 deletions
--- a/lisp/init-window.el
+++ b/lisp/init-window.el
@@ -0,0 +1,59 @@
+;; -*- lexical-binding: t; -*-
+;; Restore old window configurations
+
+(use-package winner
+  :ensure nil
+  :commands (winner-undo winner-redo)
+  :hook elpaca-after-init
+  :init (setq winner-boring-buffers '("*Completions*"
+                                      "*Compile-Log*"
+                                      "*inferior-lisp*"
+                                      "*Fuzzy Completions*"
+                                      "*Apropos*"
+                                      "*Help*"
+                                      "*cvs*"
+                                      "*Buffer List*"
+                                      "*Ibuffer*"
+                                      "*esh command on file*")))
+
+(use-package ace-window
+  :hook (emacs-startup . ace-window-display-mode)
+  :bind (([remap other-window] . ace-window)
+         ("C-c C-w" . ace-window-hydra/body))
+  :pretty-hydra
+  (
+   ;; (:title (pretty-hydra-title "Window Management" 'faicon "nf-fa-th")
+   ;;         :foreign-keys warn :quit-key ("q" "C-g"))
+   ("Actions"
+    (("TAB" other-window "switch")
+     ("x" ace-delete-window "delete")
+     ("X" ace-delete-other-windows "delete other" :exit t)
+     ("s" ace-swap-window "swap")
+     ("a" ace-select-window "select" :exit t)
+     ("m" toggle-frame-maximized "maximize" :exit t)
+     ("u" toggle-frame-fullscreen "fullscreen" :exit t))
+    "Resize"
+    (("h" shrink-window-horizontally "←")
+     ("j" enlarge-window "↓")
+     ("k" shrink-window "↑")
+     ("l" enlarge-window-horizontally "→")
+     ("n" balance-windows "balance"))
+    "Split"
+    (("r" split-window-right "horizontally")
+     ("R" split-window-horizontally-instead "horizontally instead")
+     ("v" split-window-below "vertically")
+     ("V" split-window-vertically-instead "vertically instead")
+     ("t" toggle-window-split "toggle"))
+    "Zoom"
+    (("+" text-scale-increase "in")
+     ("=" text-scale-increase "in")
+     ("-" text-scale-decrease "out")
+     ("0" (text-scale-increase 0) "reset"))
+    "Misc"
+    (("o" set-frame-font "frame font")
+     ("f" make-frame-command "new frame")
+     ("d" delete-frame "delete frame")
+     ("<left>" winner-undo "winner undo")
+     ("<right>" winner-redo "winner redo")))))
+
+(provide 'init-window)