From 66eb1fcecb94ef588196602a02880b503ad72eeb Mon Sep 17 00:00:00 2001 From: "Jakob L. Kreuze" Date: Thu, 14 Mar 2019 15:34:25 -0400 Subject: Implement exwm-buffer-groups-switch-buffer --- exwm-buffer-groups.el | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) 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 -- cgit v1.3