fix: shell-project-buffers

Author: tychoish

agent-shell-menu.el

@@ -322,7 +322,8 @@ When a permission request is pending, permission responses are spliced into the
 
 ;;; Project session switching
 
-(defun agent-shell-extras--same-project-buffers ()
+;;;###autoload
+(defun agent-shell-menu-project-buffers ()
   "Return live agent-shell buffers sharing the current buffer's project directory."
   (let ((dir default-directory)
 	(cb (current-buffer)))
@@ -336,7 +337,7 @@ When a permission request is pending, permission responses are spliced into the
 (defun agent-shell-switch-project-session ()
   "Switch to another agent-shell session in the same project directory."
   (interactive)
-  (let ((bufs (or (agent-shell-extras--same-project-buffers)
+  (let ((bufs (or (agent-shell-menu-project-buffers)
                   (user-error "No other agent-shell sessions for this project"))))
     (switch-to-buffer
      (get-buffer

test/test-agent-shell-menu.el

@@ -214,18 +214,18 @@ produced 'Each alist entry must be a cons cell; got: #<buffer ...>'."
     (should-error (agent-shell-extras--pick-buffer "test: ") :type 'user-error)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; agent-shell-extras--same-project-buffers
+;;; agent-shell-menu-project-buffers
 
 (ert-deftest agent-shell-menu/same-project-buffers-empty-when-no-agent-buffers ()
   (with-temp-buffer
     (cl-letf (((symbol-function 'agent-shell-buffers) (lambda () nil)))
-      (should (null (agent-shell-extras--same-project-buffers))))))
+      (should (null (agent-shell-menu-project-buffers))))))
 
 (ert-deftest agent-shell-menu/same-project-buffers-excludes-current-buffer ()
   (with-temp-buffer
     (let ((cur (current-buffer)))
       (cl-letf (((symbol-function 'agent-shell-buffers) (lambda () (list cur))))
-        (should (null (agent-shell-extras--same-project-buffers)))))))
+        (should (null (agent-shell-menu-project-buffers)))))))
 
 (ert-deftest agent-shell-menu/same-project-buffers-includes-same-dir-buffer ()
   (let ((other (generate-new-buffer "*mock-agent*")))
@@ -235,7 +235,7 @@ produced 'Each alist entry must be a cons cell; got: #<buffer ...>'."
           (with-current-buffer other
             (setq-local default-directory "/tmp/test-proj/"))
           (cl-letf (((symbol-function 'agent-shell-buffers) (lambda () (list other))))
-            (should (memq other (agent-shell-extras--same-project-buffers)))))
+            (should (memq other (agent-shell-menu-project-buffers)))))
       (kill-buffer other))))
 
 (ert-deftest agent-shell-menu/same-project-buffers-excludes-different-dir-buffer ()
@@ -246,7 +246,7 @@ produced 'Each alist entry must be a cons cell; got: #<buffer ...>'."
           (with-current-buffer other
             (setq-local default-directory "/tmp/proj-b/"))
           (cl-letf (((symbol-function 'agent-shell-buffers) (lambda () (list other))))
-            (should (null (agent-shell-extras--same-project-buffers)))))
+            (should (null (agent-shell-menu-project-buffers)))))
       (kill-buffer other))))
 
 (ert-deftest agent-shell-menu/same-project-buffers-returns-only-matching ()
@@ -261,7 +261,7 @@ produced 'Each alist entry must be a cons cell; got: #<buffer ...>'."
             (setq-local default-directory "/tmp/different/"))
           (cl-letf (((symbol-function 'agent-shell-buffers)
                      (lambda () (list match other))))
-            (let ((result (agent-shell-extras--same-project-buffers)))
+            (let ((result (agent-shell-menu-project-buffers)))
               (should (memq match result))
               (should-not (memq other result)))))
       (kill-buffer match)
@@ -464,7 +464,7 @@ not a raw buffer list or a single annotation string."
   (let* ((other (generate-new-buffer "*mock-proj-session*"))
          captured-table)
     (unwind-protect
-        (cl-letf (((symbol-function 'agent-shell-extras--same-project-buffers)
+        (cl-letf (((symbol-function 'agent-shell-menu-project-buffers)
                    (lambda () (list other)))
                   ((symbol-function 'agent-shell--buffer-annotation) (lambda (_) "ann"))
                   ((symbol-function 'annotated-completing-read)