summary refs log tree commit diff
diff options
context:
space:
mode:
authornoa@gaiwan.org2024-07-28 08:17:46 +0000
committernoa@gaiwan.org2024-07-28 08:17:46 +0000
commitf7d2e9e4459270c568d670c449ad92cc5a46063e (patch)
treed14101e3e300414a2236b69cfb0bdef02c8a1776
parent6d955039325a3230ea0351149cc5e6deea9dc374 (diff)
Remove exwm configuration
-rw-r--r--config.org54
1 files changed, 0 insertions, 54 deletions
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
-