1 files changed, 59 insertions, 0 deletions
diff --git a/kolwynia/home/bdunahu/files/.config/emacs/modules/bd--window.el b/kolwynia/home/bdunahu/files/.config/emacs/modules/bd--window.el
new file mode 100644
index 0000000..bdc173b
--- /dev/null
+++ b/kolwynia/home/bdunahu/files/.config/emacs/modules/bd--window.el
@@ -0,0 +1,59 @@
+;;; -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
+
+
+(require 'transient)
+
+(setopt switch-to-buffer-obey-display-actions t
+        switch-to-buffer-in-dedicated-window 'pop)
+;; C-u C-h a ^display-buffer-[^-]
+(add-to-list 'display-buffer-alist
+             '("^\\*Async Shell Command\\*.*$"
+               (display-buffer-no-window)))
+
+(defun bd/layout--do-with-haste (f)
+  (let* ((args (transient-args 'bd/layout-dispatcher))
+         (haste (if (member "haste" args) 3 1)))
+    (funcall f haste)))
+(transient-define-prefix bd/layout-dispatcher ()
+  ["Dispatcher > Layout\n"
+   ["Infixes"
+    ("s" "haste" "haste")]]
+  [["Commands"
+    ("-" "text decrease"
+     (lambda () (interactive) (bd/layout--do-with-haste #'text-scale-decrease))
+     :transient t)
+    ("=" "text increase"
+     (lambda () (interactive) (bd/layout--do-with-haste #'text-scale-increase))
+     :transient t)
+    ("b" "narrow"
+     (lambda () (interactive) (bd/layout--do-with-haste #'shrink-window-horizontally))
+     :transient t)
+    ("f" "widen"
+     (lambda () (interactive) (bd/layout--do-with-haste #'enlarge-window-horizontally))
+     :transient t)
+    ("p" "shrink"
+     (lambda () (interactive) (bd/layout--do-with-haste #'shrink-window))
+     :transient t)
+    ("n" "enlarge"
+     (lambda () (interactive) (bd/layout--do-with-haste #'enlarge-window))
+     :transient t)
+    ("|" "balance" balance-windows)]
+   [""
+    ("N" "shift down" windmove-swap-states-down :transient t)
+    ("P" "shift up" windmove-swap-states-up :transient t)
+    ("F" "shift right" windmove-swap-states-right :transient t)
+    ("B" "shift left" windmove-swap-states-left :transient t)]
+   [""
+    ("a" "alpha" bd/set-frame-alpha)
+    ("w" "wallpaper" bd/set-bg)
+    ("t" "theme" load-theme)]
+   [""
+    ("z" "widen gaps" exwm-outer-gaps-increment :transient t)
+    ("x" "shrink gaps" exwm-outer-gaps-decrement :transient t)]])
+(keymap-global-set "C-c w" #'bd/layout-dispatcher)
+
+
+(provide 'bd--window)
+;;; bd--window.el ends here