emacs: exwm: don’t hardcode 10 for s-N bindings, use # of workspaces

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index c2fc616..8bf43bf 100644 (file)
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -599,7 +599,7 @@ around if needed."
   ;; 's-\': Switch workspace
   (exwm-input-set-key (kbd "s-\\") #'exwm-workspace-switch)
   ;; 's-N': Switch to certain workspace
   ;; 's-\': Switch workspace
   (exwm-input-set-key (kbd "s-\\") #'exwm-workspace-switch)
   ;; 's-N': Switch to certain workspace

-  (dotimes (i 10)
+  (dotimes (i exwm-workspace-number)

     (exwm-input-set-key
      (kbd (format "s-%d" i))
      (lambda ()
     (exwm-input-set-key
      (kbd (format "s-%d" i))
      (lambda ()


@@ -1333,7 +1333,6 @@ This function is intended for use with `ivy-ignore-buffers'."
 (use-feature elisp-mode
   :delight (emacs-lisp-mode "Elisp" :major))
 
 (use-feature elisp-mode
   :delight (emacs-lisp-mode "Elisp" :major))
 

-

 (use-package alloy-mode
   :straight (:host github :repo "dwwmmn/alloy-mode")
   :mode "\\.als\\'"
 (use-package alloy-mode
   :straight (:host github :repo "dwwmmn/alloy-mode")
   :mode "\\.als\\'"