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

Move to another workspace before removing current

Browse source
This commit is contained in:
Urbano Ustero 2015-08-26 23:46:51 +02:00
parent a834eb5f41
commit ce2ccc3f62
1 changed files with 13 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
exwm-workspace.el
View file

@ -263,7 +263,19 @@ The optional FORCE option is for internal use only."
(exwm--log "Frame is not a workspace: %s" frame))
(t
(exwm--log "Removing workspace: %s" frame)
(setq exwm-workspace--list (delete frame exwm-workspace--list))
;; When removing current workspace (common case), switch to the one that
;; will receive clients on the removed one. Do this before removing the
;; frame from the workspace list, so as not to confuse the indices.
(let* ((index (cl-position frame exwm-workspace--list))
(lastp (= index (1- (length exwm-workspace--list)))))
(when (= index exwm-workspace-current-index)
;; As we are removing this workspace, the one on its left is its natural
;; substitutes... except when this is already the last one and there is
;; none on its left.
(exwm-workspace-switch (+ index (if lastp -1 +1)))
;; Now delete it from the workspace list, and update current index.
(setq exwm-workspace--list (delete frame exwm-workspace--list))
(cl-incf exwm-workspace-current-index (if lastp 0 -1))))
;; Update EWMH properties.
(exwm-workspace--update-ewmh-props)
;; Update switch history.