Steal jao-buffer-same-mode

lisp/acdw.el

@@ -671,5 +671,18 @@ When called with PREFIX, just kill Emacs without confirmation."
     (ignore-errors
       (delete-frame))))
 
+
+;;; cribbed
+
+;; https://jao.io/blog/2021-09-08-high-signal-to-noise-emacs-command.html
+(defun jao-buffer-same-mode (&rest modes)
+  "Pop to a buffer with a mode among MODES, or the current one if not given."
+  (interactive)
+  (let* ((modes (or modes (list major-mode)))
+         (pred (lambda (b)
+                 (let ((b (get-buffer (if (consp b) (car b) b))))
+                   (member (buffer-local-value 'major-mode b) modes)))))
+    (pop-to-buffer (read-buffer "Buffer: " nil t pred))))
+
 (provide 'acdw)
 ;;; acdw.el ends here