From b72e794be60c5d4e94c61e5af8c08245773e3393 Mon Sep 17 00:00:00 2001
From: Craig Jennings <c@cjennings.net>
Date: Sun, 31 May 2026 16:20:34 -0500
Subject: feat(ai-vterm): gate the F9 launcher to GUI frames

AI-vterm launches a graphical vterm side window, so F9 / C-F9 / M-F9 now decline with a message in a terminal frame instead of opening a vterm. The guard checks the current frame at command time rather than at load. That matters under the daemon, which serves GUI and terminal frames both with display-graphic-p nil at load, so a load-time gate would have disabled the launcher in its GUI frames too.

Routed the three window-behavior tests through a GUI-frame stub, since a batch run is itself a terminal frame.
---
 tests/test-ai-vterm--single-window-toggle.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'tests/test-ai-vterm--single-window-toggle.el')

diff --git a/tests/test-ai-vterm--single-window-toggle.el b/tests/test-ai-vterm--single-window-toggle.el
index 50f1504a0..928656f25 100644
--- a/tests/test-ai-vterm--single-window-toggle.el
+++ b/tests/test-ai-vterm--single-window-toggle.el
@@ -48,12 +48,12 @@ batch use both."
             (let ((display-buffer-alist (cj/--ai-vterm-display-rule-list)))
               ;; Toggle off -- the dispatcher's force-swap should put the
               ;; window on a non-agent buffer.
-              (cj/ai-vterm)
+              (cj/test--call-as-gui #'cj/ai-vterm)
               (should (one-window-p))
               (should-not (cj/--ai-vterm-displayed-agent-window))
               (should (eq cj/--ai-vterm-last-was-bury t))
               ;; Toggle on -- should restore agent in the same lone window.
-              (cj/ai-vterm)
+              (cj/test--call-as-gui #'cj/ai-vterm)
               (should (one-window-p))
               (let ((win (cj/--ai-vterm-displayed-agent-window)))
                 (should (windowp win))
@@ -80,7 +80,7 @@ agent-window state and can route through the display-saved path."
                  (win (selected-window)))
             (set-window-buffer win agent-buf)
             (let ((display-buffer-alist (cj/--ai-vterm-display-rule-list)))
-              (cj/ai-vterm))
+              (cj/test--call-as-gui #'cj/ai-vterm))
             (should (window-live-p win))
             (should-not (cj/--ai-vterm-buffer-p (window-buffer win)))))
       (cj/test--kill-agent-buffers))))
@@ -96,7 +96,7 @@ agent-window state and can route through the display-saved path."
           (let ((agent-buf (get-buffer-create agent-name)))
             (set-window-buffer (selected-window) agent-buf)
             (let ((display-buffer-alist (cj/--ai-vterm-display-rule-list)))
-              (cj/ai-vterm)
+              (cj/test--call-as-gui #'cj/ai-vterm)
               (should (eq cj/--ai-vterm-last-was-bury t)))))
       (cj/test--kill-agent-buffers))))
 
@@ -119,7 +119,7 @@ toggle-off."
                    (display-buffer-alist (cj/--ai-vterm-display-rule-list)))
               (set-window-buffer agent-win agent-buf)
               (select-window agent-win)
-              (cj/ai-vterm)
+              (cj/test--call-as-gui #'cj/ai-vterm)
               (should-not cj/--ai-vterm-last-was-bury))))
       (when (get-buffer left-name) (kill-buffer left-name))
       (cj/test--kill-agent-buffers))))
@@ -176,7 +176,7 @@ the flag nil (no spurious set)."
                    (display-buffer-alist (cj/--ai-vterm-display-rule-list)))
               (set-window-buffer agent-win agent-buf)
               (select-window agent-win)
-              (cj/ai-vterm)
+              (cj/test--call-as-gui #'cj/ai-vterm)
               (should-not cj/--ai-vterm-last-was-bury))))
       (when (get-buffer "*test-sw-untouched-left*")
         (kill-buffer "*test-sw-untouched-left*"))
-- 
cgit v1.2.3