From b5b1792e8159da69c12cfe5cc6e80d31564d251f Mon Sep 17 00:00:00 2001
From: Mountain Man <43313373+MountainMan1312@users.noreply.github.com>
Date: Tue, 1 Aug 2023 01:57:15 -0400
Subject: Re-implement named EXWM workspaces the right way

---
 init.el | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/init.el b/init.el
index b4077e8..fc1d882 100644
--- a/init.el
+++ b/init.el
@@ -175,6 +175,14 @@
   :config
   (require 'exwm-config)
   (setq exwm-workspace-number 4
+        exwm-workspace-index-map (lambda (index)
+                                   (let ((named-workspaces ["0:Admin"
+                                                            "1:Agenda"
+                                                            "2:KB"
+                                                            "3:IDE"]))
+                                     (if (< index (length named-workspaces))
+                                         (elt named-workspaces index)
+                                       (number-to-string index))))
         exwm-input-prefix-keys '(?\C-h
                                  ?\C-u
                                  ?\C-x
-- 
cgit v1.2.3