Mirrors/exwm
2
0
Fork 0
mirror of https://github.com/ch11ng/exwm.git synced 2024-11-27 21:18:00 +01:00
Code Issues Projects Releases Packages Wiki Activity

Add next/previous functionality for workspaces

Browse source 
Also supports wrapping when there is an overflow. Closes #68
This commit is contained in:
Diego Berrocal 2015-09-21 11:32:23 -05:00
parent 623db8b378
commit 44a4faf7cb
1 changed files with 30 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
exwm-workspace.el
View file

@ -159,6 +159,36 @@ The optional FORCE option is for internal use only."
:window exwm--root :data index)) :window exwm--root :data index))
(xcb:flush exwm--connection))))) (xcb:flush exwm--connection)))))
(defvar exwm-workspace-switch-wrap t
"Whether `exwm-workspace-next' and `exwm-workspace-prev' should wrap.")
;;;###autoload
(defun exwm-workspace-next ()
"Switch to next exwm-workspace."
(interactive)
(let* ((only-workspace? (equal exwm-workspace-number 1))
(at-edge? (= exwm-workspace-current-index
(1- exwm-workspace-number))))
(cond
(only-workspace? nil)
(at-edge?
(when exwm-workspace-switch-wrap
(exwm-workspace-switch 0)))
(t (exwm-workspace-switch (1+ exwm-workspace-current-index))))))
;;;###autoload
(defun exwm-workspace-prev ()
"Switch to next exwm-workspace."
(interactive)
(let* ((only-workspace? (equal exwm-workspace-number 1))
(at-edge? (= exwm-workspace-current-index 0)))
(cond
(only-workspace? nil)
(at-edge?
(when exwm-workspace-switch-wrap
(exwm-workspace-switch (1- exwm-workspace-number))))
(t (exwm-workspace-switch (1- exwm-workspace-current-index))))))
(defun exwm-workspace--on-focus-in () (defun exwm-workspace--on-focus-in ()
"Fix unexpected frame switch." "Fix unexpected frame switch."
(let ((index (cl-position (selected-frame) exwm-workspace--list))) (let ((index (cl-position (selected-frame) exwm-workspace--list)))