From 3b42a74984e85b734adecac426b552e1439a92bb Mon Sep 17 00:00:00 2001 From: Mountain Man <43313373+MountainMan1312@users.noreply.github.com> Date: Tue, 1 Aug 2023 01:30:29 -0400 Subject: Remove EXWM named workspaces - didn't work --- init.el | 31 ++++--------------------------- 1 file changed, 4 insertions(+), 27 deletions(-) diff --git a/init.el b/init.el index 9d976a0..b4077e8 100644 --- a/init.el +++ b/init.el @@ -195,33 +195,10 @@ (start-process-shell-command command nil command))) ;; Switch workspace with `s-w' - ([?\s-w] . exwm-workspace-switch)))) - -;; Named workspaces -(setq 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))))) - -(defun mm/exwm-workspace--update-ewmh-desktop-names () - "Update the names of desktops in `exwm-workspace-index-map'." - (xcb:+request exwm--connection - (make-instance 'xcb:ewmh:set-_NET_DESKTOP_NAMES - :window exwm--root :data - (mapconcat (lambda (i) (funcall exwm-workspace-index-map i)) - (number-sequence 0 (1- (exwm-workspace--count))) - "\0")))) - -(add-hook 'exwm-workspace-list-change-hook - #'mm/exwm-workspace--update-ewmh-desktop-names) - -;; Start EXWM -(exwm-enable) -(mm/exwm-workspace--update-ewmh-desktop-names) + ([?\s-w] . exwm-workspace-switch))) + (exwm-enable)) + + ;; --------------------------------- ;; Temporary theme ;; --------------- -- cgit v1.2.3