diff options
| -rw-r--r-- | exwm-buffer-groups.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/exwm-buffer-groups.el b/exwm-buffer-groups.el index 783ba3d..4702033 100644 --- a/exwm-buffer-groups.el +++ b/exwm-buffer-groups.el @@ -72,6 +72,16 @@ current workspace." (exwm-buffer-groups--remove-buffers) (exwm-buffer-groups--add-buffers)) +(defun exwm-buffer-groups-move (nth) + "Moves the current buffer to the NTH workspace." + (interactive + (list + (exwm-workspace--position + (exwm-workspace--prompt-for-workspace "Move workspace to: ")))) + ;; Switch out of the buffer. + (set-window-dedicated-p nil nil) + (switch-to-prev-buffer nil 'bury)) + (add-hook 'after-change-major-mode-hook #'exwm-buffer-groups-update) (provide 'exwm-buffer-groups) |