From f7d2e9e4459270c568d670c449ad92cc5a46063e Mon Sep 17 00:00:00 2001
From: noa@gaiwan.org
Date: Sun, 28 Jul 2024 08:17:46 +0000
Subject: Remove exwm configuration

---
 config.org | 54 ------------------------------------------------------
 1 file changed, 54 deletions(-)

(limited to 'config.org')

diff --git a/config.org b/config.org
index 2f64258..c708403 100644
--- a/config.org
+++ b/config.org
@@ -1970,57 +1970,3 @@ Just a few settings i haven't put into another category yet.
 	  ediff-window-setup-function 'ediff-setup-windows-plain)
 #+end_src
 
-* Window management
-** Exwm
-#+begin_src elisp
-  (package-ensure 'exwm)
-  (require 'exwm)
-  (require 'exwm-config)
-
-  ;; Set the initial workspace number.
-  (unless (get 'exwm-workspace-number 'saved-value)
-    (setq exwm-workspace-number 4))
-
-  ;; Make class name the buffer name
-  (add-hook 'exwm-update-class-hook
-            (lambda ()
-              (exwm-workspace-rename-buffer exwm-class-name)))
-
-  ;; Global keybindings.
-  (unless (get 'exwm-input-global-keys 'saved-value)
-    (setq exwm-input-global-keys
-          `(
-            ;; 's-r': Reset (to line-mode).
-            ([?\s-r] . exwm-reset)
-            ;; 's-w': Switch workspace.
-            ([?\s-w] . exwm-workspace-switch)
-            ;; 's-&': Launch application.
-            ([?\s-&] . (lambda (command)
-                         (interactive (list (read-shell-command "$ ")))
-                         (start-process-shell-command command nil command)))
-            ;; 's-N': Switch to certain workspace.
-            ,@(mapcar (lambda (i)
-                        `(,(kbd (format "s-%d" i)) .
-                          (lambda ()
-                            (interactive)
-                            (exwm-workspace-switch-create ,i))))
-                      (number-sequence 0 9)))))
-
-  ;; Line-editing shortcuts
-  (unless (get 'exwm-input-simulation-keys 'saved-value)
-    (setq exwm-input-simulation-keys
-          '(([?\C-b] . [left])
-            ([?\C-f] . [right])
-            ([?\C-p] . [up])
-            ([?\C-n] . [down])
-            ([?\C-a] . [home])
-            ([?\C-e] . [end])
-            ([?\M-v] . [prior])
-            ([?\C-v] . [next])
-            ([?\C-d] . [delete])
-            ([?\C-k] . [S-end delete]))))
-
-  ;; Enable EXWM
-  (exwm-enable)
-#+end_src
-
-- 
cgit 1.4.1-2-gfad0