[Emacs] Fix moving windows in EXWM

2021-12-27 18:56:54 +01:00 · 2021-12-27 18:56:54 +01:00 · 1091aba3a8
parent 55b404437d
commit 1091aba3a8
1 changed files with 5 additions and 1 deletions
--- a/org/config/emacs.org
+++ b/org/config/emacs.org
@ -3398,7 +3398,11 @@ workspaces 0 to 9.
                    `(,(kbd (format "s-%d" i)) .
                      (lambda ()
                        (interactive)
-                        (exwm-workspace-move-window ,i))))
+                        (exwm-workspace-move-window ,(let ((index (1- i)))
+                                                       (if (< index 0)
+                                                           (- 10 index)
+                                                         ;; FIXME: does not work with s-0
+                                                         index))))))
                  (number-sequence 0 9))))
 #+end_src