[Emacs] Fix moving windows in EXWM
All checks were successful
continuous-integration/drone/push Build is passing

This commit is contained in:
Lucien Cartier-Tilet 2021-12-27 18:56:54 +01:00
parent 55b404437d
commit 1091aba3a8
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA

View File

@ -3398,7 +3398,11 @@ workspaces 0 to 9.
`(,(kbd (format "s-%d" i)) . `(,(kbd (format "s-%d" i)) .
(lambda () (lambda ()
(interactive) (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)))) (number-sequence 0 9))))
#+end_src #+end_src