diff options
| author | William Carroll <wpcarro@gmail.com> | 2022-02-15T19·46-0800 |
|---|---|---|
| committer | clbot <clbot@tvl.fyi> | 2022-02-15T19·49+0000 |
| commit | 7e65edcb16d2aafa2240bda5d4b255f499ff7e4a (patch) | |
| tree | 591e5fe55bb99cd2aa9eb854b9cee8283ee02458 /users/wpcarro | |
| parent | 36f6322d16ad0c2341bc37235bf327db516ef97d (diff) | |
feat(wpcarro/emacs): Define window-manager-move-window r/3835
Move the current window to a new named EXWM workspace and focus that workspace. Change-Id: Ibb3d3b3df09c6853d2eaf02882714a5c62623d2b Reviewed-on: https://cl.tvl.fyi/c/depot/+/5293 Reviewed-by: wpcarro <wpcarro@gmail.com> Autosubmit: wpcarro <wpcarro@gmail.com> Tested-by: BuildkiteCI
Diffstat (limited to 'users/wpcarro')
| -rw-r--r-- | users/wpcarro/emacs/.emacs.d/wpc/window-manager.el | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/users/wpcarro/emacs/.emacs.d/wpc/window-manager.el b/users/wpcarro/emacs/.emacs.d/wpc/window-manager.el index 308424cc54d8..4c61138f948a 100644 --- a/users/wpcarro/emacs/.emacs.d/wpc/window-manager.el +++ b/users/wpcarro/emacs/.emacs.d/wpc/window-manager.el @@ -209,5 +209,20 @@ predicate." t) window-manager-named-workspaces))) +(defun window-manager-move-window () + "Prompt the user to move the current window to another workspace." + (interactive) + (let ((window (get-buffer-window)) + (dest (completing-read "Move current window to: " + (->> window-manager-named-workspaces + (-map #'window-manager-named-workspace-label)) + nil + t))) + (exwm-workspace-move-window + (exwm-workspace--workspace-from-frame-or-index + (window-manager--label->index dest window-manager-named-workspaces)) + (exwm--buffer->id window)) + (window-manager--switch dest))) + (provide 'window-manager) ;;; window-manager.el ends here |