diff options
| -rw-r--r-- | exwm-buffer-groups.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/exwm-buffer-groups.el b/exwm-buffer-groups.el index ca416cb..a16223f 100644 --- a/exwm-buffer-groups.el +++ b/exwm-buffer-groups.el @@ -94,6 +94,12 @@ workspace." (list (exwm-workspace--position (exwm-workspace--prompt-for-workspace "Move workspace to: ")))) + ;; Remove the buffer from the current workspace. + (setf (elt exwm-buffer-groups-buffers exwm-workspace-current-index) + (remove (current-buffer) + (elt exwm-buffer-groups-buffers exwm-workspace-current-index))) + ;; Add it to the NTH workspace. + (push (current-buffer) (elt exwm-buffer-groups-buffers nth)) ;; Switch out of the buffer. (set-window-dedicated-p nil nil) (switch-to-prev-buffer nil 'bury)) |