Implement exwm-buffer-groups-switch-buffer

1 files changed, 16 insertions, 0 deletions

diff --git a/exwm-buffer-groups.el b/exwm-buffer-groups.el
index 4702033..ca416cb 100644
--- a/exwm-buffer-groups.el
+++ b/exwm-buffer-groups.el
@@ -72,6 +72,22 @@ current workspace."
   (exwm-buffer-groups--remove-buffers)
   (exwm-buffer-groups--add-buffers))
 
+(defun exwm-buffer-groups-switch-buffer (buffer-or-name)
+  "Display buffer BUFFER-OR-NAME in the selected window.
+If called interactively, read the buffer name using
+`completing-read', completing only on buffers in the current
+workspace."
+  (interactive
+   (list
+    (let ((buffers-in-workspace (map 'list
+                                     #'buffer-name
+                                     (elt exwm-buffer-groups-buffers
+                                          exwm-workspace-current-index)))
+          (current-buffer (buffer-name (other-buffer (current-buffer)))))
+      (completing-read "Switch to buffer: " buffers-in-workspace
+                       nil nil nil nil current-buffer))))
+  (switch-to-buffer buffer-or-name))
+
 (defun exwm-buffer-groups-move (nth)
   "Moves the current buffer to the NTH workspace."
   (interactive