From 3dccd39c656f8e6908ccd4d76b81566b7beac595 Mon Sep 17 00:00:00 2001
From: Mountain Man <43313373+MountainMan1312@users.noreply.github.com>
Date: Sun, 4 Jun 2023 22:41:30 -0400
Subject: Fix window management keybinds for EXWM

---
 init.el | 25 ++++++++++++++++++++++++-
 1 file changed, 24 insertions(+), 1 deletion(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index 6ec24f6..76cc321 100644
--- a/init.el
+++ b/init.el
@@ -167,7 +167,30 @@
   :straight t
   :config
   (require 'exwm-config)
-  (setq exwm-workspace-number 1)
+  (setq exwm-workspace-number 1
+        exwm-input-prefix-keys '(?\C-h
+                                 ?\C-u
+                                 ?\C-x
+                                 ?\M-x
+                                 ?\M-`
+                                 ?\M-:
+                                 ?\M-&)
+        exwm-input-global-keys '(;; Reset EXWM to line-mode to regain control
+                                 ([?\s-r] . exwm-reset)
+                                 ;; Move between windows with Super + ESDF
+                                 ([?\s-e] . windmove-up)
+                                 ([?\s-d] . windmove-down)
+                                 ([?\s-s] . windmove-left)
+                                 ([?\s-f] . windmove-right)
+                                 ;; Launch applications via shell command
+                                 ([?\s-x] . (lambda (command)
+                                              (interactive (list (read-shell-command "$ ")))
+                                              (start-process-shell-command
+                                               command nil command)))
+                                 ;; Switch workspace
+                                 ([?\s-w] . exwm-workspace-switch)
+                                 ([?\s-`] . (lambda () (interactive)
+                                              (exwm-workspace-switch-create 0)))))
   (exwm-enable))
 
 
-- 
cgit v1.2.3