feat(ai-vterm): name the tmux session's first window "ai"

I pass `tmux new-session -n` so the window running the AI tool shows up as "ai" in the window list instead of auto-naming after the running program. A shell opened by hand in a later window still auto-names (e.g. "zsh"), so the two read distinctly. The name is a new `defcustom` (`cj/ai-vterm-tmux-window-name`), symmetric with the session-prefix custom.

1 files changed, 16 insertions, 0 deletions

diff --git a/tests/test-ai-vterm--launch-command.el b/tests/test-ai-vterm--launch-command.el
index 464c88b6..17f02f02 100644
--- a/tests/test-ai-vterm--launch-command.el
+++ b/tests/test-ai-vterm--launch-command.el
@@ -31,6 +31,22 @@
              " -s aiv-foo "
              (cj/--ai-vterm-launch-command "/code/foo")))))
 
+(ert-deftest test-ai-vterm--launch-command-names-window ()
+  "Normal: `-n <window-name>' so the claude window is named distinctly."
+  (let ((cj/ai-vterm-claude-command "claude")
+        (cj/ai-vterm-tmux-window-name "ai"))
+    (should (string-match-p
+             " -n ai "
+             (cj/--ai-vterm-launch-command "/code/foo")))))
+
+(ert-deftest test-ai-vterm--launch-command-honors-custom-window-name ()
+  "Boundary: a non-default window name is what `-n' gets."
+  (let ((cj/ai-vterm-claude-command "claude")
+        (cj/ai-vterm-tmux-window-name "claude"))
+    (should (string-match-p
+             " -n claude "
+             (cj/--ai-vterm-launch-command "/code/foo")))))
+
 (ert-deftest test-ai-vterm--launch-command-includes-start-directory ()
   "Normal: `-c <dir>' so the new session's first window starts in DIR."
   (let ((cj/ai-vterm-claude-command "claude"))