From aff6486f4766bf0b4614cb97e1538201aa04cfab Mon Sep 17 00:00:00 2001
From: "Jakob L. Kreuze" <zerodaysfordays@sdf.lonestar.org>
Date: Thu, 14 Mar 2019 15:20:09 -0400
Subject: Implement exwm-buffer-groups-move

---
 exwm-buffer-groups.el | 10 ++++++++++
 1 file changed, 10 insertions(+)

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)
-- 
cgit v1.3