guix: full refactor of configuration structure

1 files changed, 0 insertions, 59 deletions

diff --git a/.config/emacs/modules/bd--window.el b/.config/emacs/modules/bd--window.el
deleted file mode 100644
index bdc173b..0000000
--- a/.config/emacs/modules/bd--window.el
+++ /dev/null
@@ -1,59 +0,0 @@
-;;; -*- 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