conductor-remote 1.116.0 → 1.118.0

package/dist-node/src/writes/applescript/agent-options.applescript

@@ -0,0 +1,334 @@
+
+on composerControls()
+	set strips to my tabGroups()
+	if (count of strips) is 0 then error "couldn't find the composer"
+	tell application "System Events" to tell process "Conductor"
+		set pane to value of attribute "AXParent" of (item 1 of strips)
+		set composerBox to item 1 of (UI elements of pane whose name is "composer")
+		set out to {}
+		repeat with e in (UI elements of composerBox)
+			set end of out to contents of e
+			repeat with e2 in (UI elements of e)
+				set end of out to contents of e2
+			end repeat
+		end repeat
+		return out
+	end tell
+end composerControls
+
+on controlNamed(wanted)
+	repeat with entry in my composerControls()
+		set c to contents of entry
+		if my tabLabel(c) is wanted then return c
+	end repeat
+	return missing value
+end controlNamed
+
+on effortButton()
+	-- The effort control is a button whose *label is its current value*, so it is
+	-- identified by that label rather than a stable name. Claude calls its top
+	-- level Ultracode while Codex calls the corresponding level Ultra. Codex's
+	-- None state is the exception: its button has no accessible name at all, so
+	-- accept one (and only one) unnamed button *after* the proven model picker.
+	-- The main composer also contains unnamed attachment/stop buttons before that
+	-- picker, and pressing one of those would be worse than failing.
+	set levels to {"Light", "Low", "Medium", "High", "Extra high", "Max", "Ultracode", "Ultra"}
+	set sawModel to false
+	set unnamed to {}
+	repeat with entry in my composerControls()
+		set c to contents of entry
+		if (my axRole(c)) is "AXPopUpButton" and (my axName(c)) contains "Change agent" then
+			set sawModel to true
+		else if sawModel and (my axRole(c)) is "AXButton" then
+			set label to my axName(c)
+			if label is in levels then return c
+			if label is "" then set end of unnamed to c
+		end if
+	end repeat
+	if (count of unnamed) is 1 then return item 1 of unnamed
+	return missing value
+end effortButton
+
+on setEffort(wanted)
+	-- Claude owns a six-value ring ending in Ultracode; Codex adds None and ends
+	-- in Ultra. Step around either ring once and confirm the label landed.
+	set btn to my effortButton()
+	if btn is missing value then error "couldn't find the effort control"
+	repeat 8 times
+		set currentLabel to my axName(btn)
+		if currentLabel is wanted or (wanted is "__UNNAMED_EFFORT__" and currentLabel is "") then return
+		tell application "System Events" to tell process "Conductor"
+			perform action "AXPress" of btn
+		end tell
+		delay 0.35
+		set btn to my effortButton()
+		if btn is missing value then error "the effort control vanished mid-cycle"
+	end repeat
+	error "couldn't set effort to " & wanted
+end setEffort
+
+on setPlan(wanted)
+	set box to my controlNamed("Plan")
+	if box is missing value then error "couldn't find the Plan toggle"
+	tell application "System Events" to tell process "Conductor"
+		set current to ((value of box) as text)
+		if (wanted is "1" and current is "0") or (wanted is "0" and current is not "0") then
+			perform action "AXPress" of box
+			delay 0.4
+			if ((value of box) as text) is current then error "the Plan toggle didn't change"
+		end if
+	end tell
+end setPlan
+
+on pressFast()
+	-- Fast has no AX state to read (its label is always "Fast"), so the caller
+	-- decides whether a press is needed and re-checks the DB afterwards.
+	set btn to my controlNamed("Fast")
+	if btn is missing value then error "this model has no Fast toggle"
+	tell application "System Events" to tell process "Conductor"
+		perform action "AXPress" of btn
+	end tell
+	delay 0.4
+end pressFast
+
+on firstLine(s)
+	set saved to AppleScript's text item delimiters
+	set AppleScript's text item delimiters to linefeed
+	set parts to text items of s
+	set AppleScript's text item delimiters to saved
+	return item 1 of parts
+end firstLine
+
+on pickerShowsModel(popup, wanted)
+	set pickerLabel to my tabLabel(popup)
+	if pickerLabel contains ("(" & wanted & ")") then return true
+	-- The menu can label a newly released model "Opus 5 NEW", while the
+	-- composer deliberately drops that temporary badge and says "Opus 5".
+	-- Treat that exact display form as the same choice; the surrounding
+	-- parentheses keep "Opus 5" distinct from a longer model name.
+	if wanted ends with " NEW" then
+		set baseName to text 1 thru -5 of wanted
+		if pickerLabel contains ("(" & baseName & ")") then return true
+	end if
+	return false
+end pickerShowsModel
+
+on modelMenuItem(wanted)
+	-- Resolve one model from the picker that is already open. The menu can append
+	-- `NEW` to a freshly released model while the relay deliberately exposes the
+	-- stable name without it, so the same unique-prefix rule as setModel applies.
+	set chosen to missing value
+	set loose to {}
+	set wa to my webArea()
+	tell application "System Events" to tell process "Conductor"
+		repeat with m in (get UI elements of wa whose role is "AXMenu")
+			repeat with mi in (get UI elements of m whose role is "AXMenuItem")
+				set label to my firstLine(my tabLabel(mi))
+				if label is wanted then
+					set chosen to contents of mi
+				else if label starts with wanted then
+					set end of loose to contents of mi
+				end if
+			end repeat
+		end repeat
+	end tell
+	if chosen is missing value and (count of loose) is 1 then set chosen to item 1 of loose
+	if chosen is missing value then
+		if (count of loose) > 1 then error "several models match " & wanted
+		error "no model named " & wanted
+	end if
+	return chosen
+end modelMenuItem
+
+on modelDefaultButton(menuItem)
+	-- Every non-default row has a child star button named "Set <model> as
+	-- default and select". The starred row has no button at all. Read the role and
+	-- label together so an unrelated control a future picker grows cannot be
+	-- mistaken for a global preference write.
+	repeat with childNode in my axKids(menuItem)
+		set childEl to contents of childNode
+		if (my axRole(childEl)) is "AXButton" and (my axName(childEl)) contains " as default" then return childEl
+	end repeat
+	return missing value
+end modelDefaultButton
+
+on modelMenuItems()
+	set found to {}
+	set wa to my webArea()
+	tell application "System Events" to tell process "Conductor"
+		repeat with m in (get UI elements of wa whose role is "AXMenu")
+			set found to found & (get UI elements of m whose role is "AXMenuItem")
+		end repeat
+	end tell
+	return found
+end modelMenuItems
+
+on defaultModelInOpenPicker()
+	-- The selected star is exposed by *removing* the star button from that row.
+	-- Require exactly one such row. If managed settings disable every star, or a
+	-- Conductor release changes this tree, failing closed is safer than reporting
+	-- that whichever model was requested became the user's global default.
+	set defaults to {}
+	repeat with mi in my modelMenuItems()
+		set menuItem to contents of mi
+		if (my modelDefaultButton(menuItem)) is missing value then set end of defaults to my firstLine(my tabLabel(menuItem))
+	end repeat
+	if (count of defaults) is not 1 then error "couldn't identify Conductor's default model"
+	return item 1 of defaults
+end defaultModelInOpenPicker
+
+on modelPickerButton()
+	set popup to missing value
+	repeat with entry in my composerControls()
+		set c to contents of entry
+		if my tabLabel(c) contains "Change agent" then set popup to c
+	end repeat
+	if popup is missing value then error "couldn't find the model picker"
+	return popup
+end modelPickerButton
+
+on openModelPicker()
+	set popup to my modelPickerButton()
+	tell application "System Events" to tell process "Conductor"
+		perform action "AXPress" of popup
+	end tell
+	delay 1.0
+end openModelPicker
+
+on setDefaultModel(wanted)
+	-- Conductor's star is one combined action: its accessible name is "Set … as
+	-- default and select". Mirror that rather than pretending this only changes a
+	-- preference — the target chat switches model too, and the picker label is
+	-- read back below as the receipt for that half.
+	set initialPopup to my modelPickerButton()
+	set alreadySelected to my pickerShowsModel(initialPopup, wanted)
+	tell application "System Events" to tell process "Conductor"
+		perform action "AXPress" of initialPopup
+	end tell
+	delay 1.0
+	try
+		set chosen to my modelMenuItem(wanted)
+		set chosenLabel to my firstLine(my tabLabel(chosen))
+		set currentDefault to my defaultModelInOpenPicker()
+		if currentDefault is chosenLabel then
+			if alreadySelected then
+				tell application "System Events" to key code 53
+				return chosenLabel
+			end if
+			-- The star is already selected, but this chat is not. Its row is now
+			-- the remaining half of Conductor's combined action.
+			tell application "System Events" to tell process "Conductor"
+				perform action "AXPress" of chosen
+			end tell
+			delay 0.8
+			set selectedPopup to my modelPickerButton()
+			if not my pickerShowsModel(selectedPopup, chosenLabel) then error "the model didn't switch to " & chosenLabel
+			return chosenLabel
+		end if
+		set starButton to my modelDefaultButton(chosen)
+		if starButton is missing value then error "the default-model star is missing for " & chosenLabel
+		tell application "System Events" to tell process "Conductor"
+			perform action "AXPress" of starButton
+		end tell
+		delay 0.8
+		set selectedPopup to my modelPickerButton()
+		if not my pickerShowsModel(selectedPopup, chosenLabel) then error "the model didn't switch to " & chosenLabel
+		-- Re-open and read the star back. Pressing is fire-and-forget; the only safe
+		-- success is the requested row becoming the unique one with no star button.
+		my openModelPicker()
+		set verified to my modelMenuItem(wanted)
+		set verifiedLabel to my firstLine(my tabLabel(verified))
+		set currentDefault to my defaultModelInOpenPicker()
+		tell application "System Events" to key code 53
+		if currentDefault is not verifiedLabel then error "Conductor didn't mark " & verifiedLabel & " as the default model"
+		return verifiedLabel
+	on error errText number errNum
+		tell application "System Events" to key code 53
+		error errText number errNum
+	end try
+end setDefaultModel
+
+on setModel(wanted)
+	set popup to missing value
+	repeat with entry in my composerControls()
+		set c to contents of entry
+		if my tabLabel(c) contains "Change agent" then set popup to c
+	end repeat
+	if popup is missing value then error "couldn't find the model picker"
+	if my pickerShowsModel(popup, wanted) then return
+	tell application "System Events" to tell process "Conductor"
+		perform action "AXPress" of popup
+	end tell
+	delay 1.0
+	-- The relay removes a temporary `NEW` badge before it sends this label back,
+	-- so a prefix match resolves that menu item. It is accepted only when unique:
+	-- "Sonnet 4.6" would
+	-- otherwise also match "Sonnet 4.6 1M"), which must fail rather than guess.
+	set chosen to missing value
+	set loose to {}
+	set wa to my webArea()
+	tell application "System Events" to tell process "Conductor"
+		repeat with m in (get UI elements of wa whose role is "AXMenu")
+			repeat with mi in (get UI elements of m whose role is "AXMenuItem")
+				set label to my firstLine(my tabLabel(mi))
+				if label is wanted then
+					set chosen to contents of mi
+				else if label starts with wanted then
+					set end of loose to contents of mi
+				end if
+			end repeat
+		end repeat
+	end tell
+	if chosen is missing value and (count of loose) is 1 then set chosen to item 1 of loose
+	if chosen is missing value then
+		tell application "System Events" to key code 53
+		if (count of loose) > 1 then error "several models match " & wanted
+		error "no model named " & wanted
+	end if
+	set chosenLabel to my firstLine(my tabLabel(chosen))
+	tell application "System Events" to tell process "Conductor"
+		perform action "AXPress" of chosen
+	end tell
+	delay 0.8
+	set popup to missing value
+	repeat with entry in my composerControls()
+		set c to contents of entry
+		if my tabLabel(c) contains "Change agent" then set popup to c
+	end repeat
+	if popup is missing value then error "the model picker vanished"
+	if not my pickerShowsModel(popup, chosenLabel) then error "the model didn't switch to " & chosenLabel
+end setModel
+
+on listModels()
+	-- Enumerate the picker rather than hard-coding a model list that would rot on
+	-- every Conductor release. The first tagged line carries the unique starred
+	-- row, followed by the ordinary labels. Opens the menu, reads, closes it again.
+	my openModelPicker()
+	try
+		set labels to {}
+		repeat with mi in my modelMenuItems()
+			set end of labels to my firstLine(my tabLabel(mi))
+		end repeat
+		set defaultLabel to my defaultModelInOpenPicker()
+		tell application "System Events" to key code 53
+		set saved to AppleScript's text item delimiters
+		set AppleScript's text item delimiters to linefeed
+		set joined to labels as text
+		set AppleScript's text item delimiters to saved
+		return "__CONDUCTOR_DEFAULT_MODEL__" & tab & defaultLabel & linefeed & joined
+	on error errText number errNum
+		tell application "System Events" to key code 53
+		error errText number errNum
+	end try
+end listModels
+
+on applyAgentOptions()
+	set wantEffort to system attribute "RELAY_SET_EFFORT"
+	set wantPlan to system attribute "RELAY_SET_PLAN"
+	set wantFast to system attribute "RELAY_SET_FAST"
+	set wantModel to system attribute "RELAY_SET_MODEL"
+	if wantModel is not "" then my setModel(wantModel)
+	if wantEffort is not "" then my setEffort(wantEffort)
+	if wantPlan is not "" then my setPlan(wantPlan)
+	if wantFast is "1" then my pressFast()
+end applyAgentOptions

package/dist-node/src/writes/applescript/chat-targeting.applescript

@@ -0,0 +1,149 @@
+
+on tabGroups()
+	-- Level-order search, returning every tab group at the shallowest depth that
+	-- has one (the chat strip and the terminal strip are siblings). Bounded: the
+	-- pane sits ~5 levels down, and we must never descend into the transcript.
+	my requireWindow()
+	tell application "System Events" to tell process "Conductor"
+		set level to {window 1}
+		set depth to 0
+		repeat while (count of level) > 0 and depth < 8
+			set found to {}
+			set nextLevel to {}
+			repeat with entry in level
+				set node to contents of entry
+				try
+					set found to found & (get UI elements of node whose role is "AXTabGroup")
+					set nextLevel to nextLevel & (get UI elements of node)
+				end try
+			end repeat
+			if (count of found) > 0 then return found
+			set level to nextLevel
+			set depth to depth + 1
+		end repeat
+	end tell
+	return {}
+end tabGroups
+
+on stripRadios(tg)
+	-- Every radio button in a tab strip, whether it is a direct child or sits one
+	-- group deep, in tree order. Both shapes are live at once: the terminal strip's
+	-- tabs are direct children, while a chat tab is wrapped in its own AXGroup with
+	-- the file-view toggle beside it as a plain child. Reading only the direct ones
+	-- (and stopping as soon as any turned up) is what made a chat strip look like a
+	-- one-tab strip called "Close file view".
+	tell application "System Events" to tell process "Conductor"
+		set acc to {}
+		repeat with k in (UI elements of tg)
+			set node to contents of k
+			if (role of node) is "AXRadioButton" then
+				set end of acc to node
+			else
+				try
+					set acc to acc & (get UI elements of node whose role is "AXRadioButton")
+				end try
+			end if
+		end repeat
+		return acc
+	end tell
+end stripRadios
+
+on chatTabs(tg)
+	-- Of those, a chat tab is the one whose accessible name is its own close action,
+	-- "Close chat <title>". The strip's other radio button is "Close file view",
+	-- which is not a chat and must not shift the indices this file addresses tabs
+	-- by — off by one is how a prompt lands in the wrong conversation. Falls back to
+	-- every radio button when none carries the prefix, so a renamed label costs the
+	-- filter rather than emptying the strip.
+	set radios to my stripRadios(tg)
+	set chats to {}
+	repeat with entry in radios
+		set node to contents of entry
+		if (my axName(node)) starts with "Close chat" then set end of chats to node
+	end repeat
+	if (count of chats) > 0 then return chats
+	return radios
+end chatTabs
+
+on tabLabel(t)
+	tell application "System Events" to tell process "Conductor"
+		return (name of t) as text
+	end tell
+end tabLabel
+
+on pickChatStrip(strips, wantCount, wantTitle)
+	-- Score each candidate strip: a label match outweighs a tab-count match, and
+	-- a tie means we cannot tell the chat strip from the terminal strip.
+	set best to missing value
+	set bestTabs to {}
+	set bestScore to 0
+	set tied to false
+	repeat with entry in strips
+		set tg to contents of entry
+		set strip to my chatTabs(tg)
+		set score to 0
+		if wantCount > 0 and (count of strip) is wantCount then set score to score + 1
+		if wantTitle is not "" then
+			repeat with t in strip
+				if (my tabLabel(t)) contains wantTitle then
+					set score to score + 2
+					exit repeat
+				end if
+			end repeat
+		end if
+		if score > bestScore then
+			set bestScore to score
+			set best to tg
+			set bestTabs to strip
+			set tied to false
+		else if score is bestScore and score > 0 then
+			set tied to true
+		end if
+	end repeat
+	if bestScore is 0 then error "couldn't identify the chat tab strip"
+	if tied then error "can't tell which tab strip holds the target chat"
+	return {best, bestTabs}
+end pickChatStrip
+
+on lastPathSegment(s)
+	set saved to AppleScript's text item delimiters
+	set AppleScript's text item delimiters to "/"
+	set parts to text items of s
+	set AppleScript's text item delimiters to saved
+	return item -1 of parts
+end lastPathSegment
+
+on paneLabels(tg, wantRole)
+	-- Kept out of the caller's scope on purpose: inside a System Events tell,
+	-- ordinary-looking names (tabs, count) resolve as app terms instead of vars.
+	tell application "System Events" to tell process "Conductor"
+		set pane to value of attribute "AXParent" of tg
+		return (name of (UI elements of pane whose role is wantRole))
+	end tell
+end paneLabels
+
+on anyContains(haystack, needle)
+	repeat with entry in haystack
+		try
+			if (entry as text) contains needle then return true
+		end try
+	end repeat
+	return false
+end anyContains
+
+on assertWorkspace(tg)
+	-- The pane holding the chat strip also labels the open workspace: an
+	-- AXStaticText with the branch (sans owner prefix) and a repo popup button.
+	set wantBranch to system attribute "RELAY_WS_BRANCH"
+	if wantBranch is "" then return
+	set tail to my lastPathSegment(wantBranch)
+	if not (my anyContains(my paneLabels(tg, "AXStaticText"), tail)) then
+		error "the palette didn't land on " & tail
+	end if
+	set wantRepo to system attribute "RELAY_WS_REPO"
+	if wantRepo is not "" then
+		if not (my anyContains(my paneLabels(tg, "AXPopUpButton"), wantRepo)) then
+			error "the palette didn't land in " & wantRepo
+		end if
+	end if
+end assertWorkspace

package/dist-node/src/writes/applescript/composer.applescript

@@ -0,0 +1,195 @@
+
+on normalizeNewlines(s)
+	-- "do shell script" hands back CR-delimited text; the composer reads back LF.
+	-- Without this the verification below never matches a multi-line prompt.
+	set saved to AppleScript's text item delimiters
+	set AppleScript's text item delimiters to return
+	set parts to text items of s
+	set AppleScript's text item delimiters to linefeed
+	set joined to parts as text
+	set AppleScript's text item delimiters to saved
+	return joined
+end normalizeNewlines
+
+on composerField()
+	-- The composer's AXTextArea: an AXGroup named "composer" in the chat pane, one
+	-- text area inside it. Resolved once and handed to both the fill and the send
+	-- confirm below, because reaching it means walking the pane from the tab strip
+	-- and that walk measured ~0.5s on a live window. Returns missing value when the
+	-- composer isn't there at all, which is the caller's cue to fall back to pasting.
+	set strips to my tabGroups()
+	if (count of strips) is 0 then return missing value
+	try
+		tell application "System Events" to tell process "Conductor"
+			set pane to value of attribute "AXParent" of (item 1 of strips)
+			set composerBox to item 1 of (UI elements of pane whose name is "composer")
+			return item 1 of (UI elements of composerBox whose role is "AXTextArea")
+		end tell
+	end try
+	return missing value
+end composerField
+
+on composerTextOf(textBox)
+	-- What the box holds now, or missing value when it cannot be read at all. A pane
+	-- that re-rendered leaves the old reference pointing at a dead element, and
+	-- "can't read it" must never be reported as "still holding the prompt": that is
+	-- the one state that presses Enter again, and it would do so at the moment the
+	-- box may already be empty.
+	try
+		tell application "System Events" to tell process "Conductor"
+			return (value of textBox) as text
+		end tell
+	end try
+	return missing value
+end composerTextOf
+
+on fillComposer(textBox, promptText)
+	-- Write the prompt straight into the composer's AXTextArea instead of
+	-- stashing the clipboard, pressing Cmd+L and pasting. AXFocused and AXValue
+	-- are both settable, so this needs no keystrokes and no clipboard hijack.
+	-- Returns false (→ caller falls back to pasting) if anything looks off, but
+	-- *clears whatever it wrote first*: leaving half a prompt behind would make
+	-- the fallback paste append to it and send a garbled prompt.
+	if promptText is "" then return false
+	if textBox is missing value then return false
+	try
+		tell application "System Events" to tell process "Conductor"
+			set value of attribute "AXFocused" of textBox to true
+			set value of textBox to promptText
+			delay 0.25
+			if ((value of textBox) as text) does not contain promptText then
+				set value of textBox to ""
+				return false
+			end if
+		end tell
+	on error
+		try
+			my clearComposer(textBox)
+		end try
+		return false
+	end try
+	return true
+end fillComposer
+
+on clearComposer(textBox)
+	if textBox is missing value then return
+	tell application "System Events" to tell process "Conductor"
+		set value of textBox to ""
+	end tell
+end clearComposer
+
+on pressSend(queueIt)
+	-- Return sends, Command-Return queues the prompt behind the running answer.
+	-- The choice is made out here because inside a System Events tell an ordinary
+	-- parameter name can resolve as one of its own terms.
+	if queueIt then
+		tell application "System Events" to key code 36 using {command down}
+	else
+		tell application "System Events" to key code 36
+	end if
+end pressSend
+
+on submitComposer(textBox, promptText, queueIt)
+	-- Press Enter, then read the composer back. Conductor consumes the draft when it
+	-- accepts a prompt, so a box still holding the text is a keystroke that did
+	-- nothing — and that read is the only receipt a run can collect about its own
+	-- send.
+	--
+	-- Why it earns its place: the caller's other receipt is the transcript row, which
+	-- costs a 6s watch (CONFIRM_WINDOW_MS in server.ts) and then a whole second run
+	-- through activate, focus, tab and fill. Measured from this Mac's own relay logs,
+	-- a send whose single fault was a first Enter Conductor ignored took ~10s from the
+	-- prompt appearing in the composer to it being sent, with the text sitting on
+	-- screen the whole way. Exactly one user row was written, so the keystroke was
+	-- lost rather than delayed.
+	--
+	-- Pressing again is safe *because* of the read, not in spite of it: the prompt is
+	-- still in the box, so nothing was consumed, so there is nothing to duplicate.
+	-- The one state that would break that is a Conductor which queues on Command-Return
+	-- and *keeps* the draft, since the box would then read as unsent after a send that
+	-- worked. Unverified against the live app, and the only path that could reach it is
+	-- Command-Return in the phone's composer (Composer.tsx, a hardware keyboard); a tap
+	-- always sends. Worth checking before anything else starts queueing.
+	-- A Conductor too busy to have handled the first Enter is also too busy to answer
+	-- an AX read, which blocks here rather than handing back stale text.
+	--
+	-- **Two presses, not three, and the second one is on probation.** The first
+	-- occurrence in the wild (2026-09-01 16:59:57) had the box survive all three, and
+	-- no send has ever been recorded as rescued by a later press — so the value here
+	-- is the *detection*, which lets the caller stop watching for a row that cannot
+	-- come (`sendNeverStarted` in writes.ts) rather than spending the 6s window on it.
+	-- Every press past the first that doesn't work is pure delay added to a send that
+	-- is already failing, which is why the budget shrank from 3×1.2s to 2×0.8s.
+	--
+	-- Returns the press that cleared the box, or 0 for a box that never cleared. The
+	-- count is the point: a rescued send is otherwise indistinguishable from one that
+	-- worked first time, so the failure this handler exists for would stop appearing
+	-- in the log the day it stopped costing 10s, and nobody could tell whether it was
+	-- fixed or merely hidden.
+	if promptText is "" then
+		my pressSend(queueIt)
+		return 1
+	end if
+	repeat with pressCount from 1 to 2
+		my pressSend(queueIt)
+		if textBox is missing value then return pressCount
+		repeat with tick from 1 to 4
+			delay 0.2
+			set seen to my composerTextOf(textBox)
+			if seen is missing value then return pressCount
+			if seen does not contain promptText then return pressCount
+		end repeat
+	end repeat
+	return 0
+end submitComposer
+
+on pasteComposer()
+	-- Fallback for when the composer isn't reachable: Cmd+L focuses it (after the
+	-- palette, focus sits on a button, not the text box), then paste.
+	tell application "System Events"
+		set the clipboard to (do shell script "cat" & " " & quoted form of (system attribute "RELAY_PROMPT_FILE"))
+		keystroke "l" using {command down}
+		delay 0.3
+		keystroke "v" using {command down}
+		delay 0.15
+	end tell
+end pasteComposer
+
+on selectChatTab()
+	set wantIndex to (system attribute "RELAY_TAB_INDEX") as integer
+	if wantIndex is 0 then return
+	set wantCount to (system attribute "RELAY_TAB_COUNT") as integer
+	set wantTitle to my targetField(1)
+	set strips to my tabGroups()
+	if (count of strips) is 0 then
+		-- A lone chat has no ambiguity to resolve; more than one and we must not guess.
+		if wantCount <= 1 then return
+		error "couldn't find the chat tab strip"
+	end if
+	-- Assert the workspace first: every strip lives in the same pane, so this
+	-- reports "wrong workspace" rather than a confusing "no chat strip".
+	my assertWorkspace(item 1 of strips)
+	set picked to my pickChatStrip(strips, wantCount, wantTitle)
+	set tabs to item 2 of picked
+	tell application "System Events" to tell process "Conductor"
+		set target to missing value
+		if wantIndex <= (count of tabs) then
+			set candidate to contents of (item wantIndex of tabs)
+			if wantTitle is "" or (name of candidate) contains wantTitle then set target to candidate
+		end if
+		if target is missing value and wantTitle is not "" then
+			repeat with t in tabs
+				if (name of t) contains wantTitle then
+					if target is not missing value then error "several chat tabs match " & wantTitle
+					set target to contents of t
+				end if
+			end repeat
+		end if
+		if target is missing value then error "chat tab " & wantIndex & " not found"
+		if (value of target) is not true then
+			perform action "AXPress" of target
+			delay 0.5
+		end if
+		if (value of target) is not true then error "couldn't switch to the target chat tab"
+	end tell
+end selectChatTab