guix: full refactor of configuration structure

1 files changed, 0 insertions, 115 deletions

diff --git a/.config/emacs/modules/bd--exwm.el b/.config/emacs/modules/bd--exwm.el
deleted file mode 100644
index 1738ebe..0000000
--- a/.config/emacs/modules/bd--exwm.el
+++ /dev/null
@@ -1,115 +0,0 @@
-;;; -*- lexical-binding: t; -*-
-;;; Commentary:
-;;; Code:
-
-
-(use-package exwm
-  :demand t
-  :config
-
-  (require 'exwm-randr)
-  (setopt exwm-randr-workspace-monitor-plist '(0 "HDMI-1" 1 "eDP-1")
-          exwm-workspace-number 10)
-  (add-hook 'exwm-randr-screen-change-hook
-            (lambda ()
-              (start-process-shell-command
-               "xrandr" nil
-               "xrandr --output HDMI-1 --mode 2560x1440 --primary --auto --left-of eDP-1 --output eDP-1 --mode 1920x1080")
-              (bd/set-bg)))
-  (exwm-randr-mode)
-
-  (defun bd/exwm-update-title ()
-    "Changes the buffer name to reflect the class name for
-that buffer."
-    (exwm-workspace-rename-buffer exwm-title))
-  (add-hook 'exwm-update-title-hook #'bd/exwm-update-title)
-  (define-key exwm-mode-map [?\C-q] 'exwm-input-send-next-key)
-  (exwm-enable)
-  (setopt exwm-replace nil
-          exwm-manage-force-tiling nil
-          exwm-input-prefix-keys
-          `([?\C-x]
-            [?\C-u]
-            [?\C-g]
-            [?\C-h]
-            [?\C-z]
-            [?\C-`]
-            [?\M-x]
-            [?\M-`]
-            [?\M-&]
-            [?\M-:]
-            [?\M-!]
-            ,@(mapcar (lambda (i)
-                        (kbd (concat "s-" (number-to-string i))))
-                      (number-sequence 0 9)))
-
-          exwm-input-global-keys
-          `(([?\s-n] . other-window)
-            ([?\s-p] . (lambda ()
-                         (interactive)
-                         (other-window -1)))
-            ([?\s-L] . bd/lock)
-            ([f2] . bd/toggle-mute)
-            ([f5] . bd/decrement-volume)
-            ([f6] . bd/increment-volume)
-            ([f7] . bd/decrement-brightness)
-            ([f8] . bd/increment-brightness)
-            ([f9] . emms-previous)
-            ([f10] . emms-next)
-            ([print] . bd/shoot-part)
-            ([S-print] . bd/shoot-full)
-            ([?\s-O] . bd/browse-dispatcher)
-            ([?\s-P] . bd/password)
-            ([?\s-r] . exwm-reset)
-            ([?\s-d] . toggle-window-dedicated)
-            ([?\s-t] . bd/toggle-tab-bar)
-            ([?\s-q] . kill-current-buffer)
-            ([?\s-x] . (lambda (command)
-                         (interactive (list (read-shell-command "s-x ")))
-                         (start-process-shell-command command nil command)))
-            ,@(mapcar (lambda (i)
-                        `(,(kbd (format "s-%s" (car i))) .
-                          (lambda ()
-                            (interactive
-                             (exwm-workspace-switch-create ,(car (cdr i)))))))
-                      '((! 0) (@ 1) (\# 2) ($ 3) (% 4) (^ 5) (& 6) (* 7) (\( 8) (\) 9))))
-
-          exwm-input-simulation-keys
-          '(([?\C-b] . [left])
-            ([?\C-f] . [right])
-            ([?\C-p] . [up])
-            ([?\C-n] . [down])
-            ([?\C-a] . [home])
-            ([?\C-e] . [end])
-            ([?\C-j] . [S-return])
-            ([?\C-m] . [return])
-            ([?\M-v] . [prior])
-            ([?\C-v] . [next])
-            ([?\C-d] . [delete])
-            ([?\C-k] . [S-end delete])
-            ([?\M-w] . [C-c])
-            ([?\C-y] . [C-v])
-            ([?\C-s] . [C-g])
-            ([?\C-r] . [C-S-g])
-            ([?\M-d] . [C-delete])
-            ([?\M-b] . [C-left])
-            ([?\M-f] . [C-right]))))
-
-(use-package exwm-outer-gaps
-  :defer 1
-  :config
-  (setopt exwm-outer-gaps-mode 1
-          exwm-outer-gaps-width 10)
-  (exwm-outer-gaps-apply))
-
-(use-package server
-  :defer 1
-  :config
-  (setopt server-client-instructions nil)
-  (unless (server-running-p)
-    (server-start)))
-
-(setopt tab-bar-select-tab-modifiers '(super))
-
-(provide 'bd--exwm)
-;;; bd--exwm.el ends here