mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Define window-manager-swap-workspaces

Browse source 
This is a wrapper around the existing `exwm-workspace-swap` except it's aware of
my `window-manager-workspace` struct.
This commit is contained in:
William Carroll 2020-10-03 14:49:33 +01:00
parent 869bcf3fc8
commit b4b929a55b
1 changed files with 16 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
emacs/.emacs.d/wpc/window-manager.el
View file

@ -375,6 +375,22 @@ predicate."
cycle-current cycle-current
window-manager--named-workspace-label)) window-manager--named-workspace-label))
(defun window-manager-swap-workspaces ()
"Prompt the user to switch the current workspace with another."
(interactive)
(let* ((selection (->> window-manager--named-workspaces
(-map #'window-manager--named-workspace-label)
(-reject
(lambda (x)
(s-equals? x (window-manager-current-workspace))))
(completing-read
(format "Swap current workspace (i.e. \"%s\") with: "
(window-manager-current-workspace)))))
(i (-find-index (lambda (x)
(s-equals? selection (window-manager--named-workspace-label x)))
window-manager--named-workspaces)))
(exwm-workspace-swap exwm-workspace--current (elt exwm-workspace--list i))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Startup Applications in `window-manager--named-workspaces' ;; Startup Applications in `window-manager--named-workspaces'
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;