diff options
| author | Jakob L. Kreuze <zerodaysfordays@sdf.lonestar.org> | 2019-03-14 15:20:09 -0400 |
|---|---|---|
| committer | Jakob L. Kreuze <zerodaysfordays@sdf.lonestar.org> | 2019-03-14 18:19:32 -0400 |
| commit | aff6486f4766bf0b4614cb97e1538201aa04cfab (patch) | |
| tree | 3fa03c8c9edd80f59b7ed7b435708bafce6c6618 | |
| parent | 7e550ea50042cc0bd0553f0d5e37ccd6266e3242 (diff) | |
Implement exwm-buffer-groups-move
| -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) |