conductor-remote 1.117.0 → 1.118.0

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

@@ -0,0 +1,266 @@
+
+on cancelAgent()
+	-- Stop the answer this chat is streaming: Conductor's own "Cancel agent"
+	-- command, Command-Shift-Delete (key code 51). Taken from its Keyboard
+	-- shortcuts dialog (Command-slash, section "Chat"), not guessed - and it is
+	-- the only lever there is. The menu bar carries no stop command and neither
+	-- does the palette, and the composer's stop BUTTON is unnamed to
+	-- Accessibility: no title, no description, no help, no identifier, telling
+	-- itself apart from the send button beside it only by its Tailwind classes.
+	-- Which is a distinction worth nothing at the moment it matters, because
+	-- while a chat is working with a draft in the composer BOTH buttons are on
+	-- screen - stop on the left, send on the right - so "press the last button"
+	-- steers the running agent with whatever was half-typed instead of stopping
+	-- it. A keystroke can't confuse the two.
+	--
+	-- The keystroke lands wherever focus is, so this asserts the pane first, the
+	-- same check a send makes before typing. Cancelling the wrong agent destroys
+	-- work that was running fine, which is the same class of damage as landing a
+	-- prompt in the wrong chat and gets the same answer: error out, never guess.
+	set strips to my tabGroups()
+	if (count of strips) is 0 then error "couldn't find the chat pane to cancel in"
+	my assertWorkspace(item 1 of strips)
+	-- Command-L ("Focus chat input") first, so the shortcut is delivered inside the
+	-- chat view rather than to a terminal panel that had focus, where the terminal
+	-- would swallow it. It also parks focus somewhere harmless: the composer keeps
+	-- its draft, since Conductor binds this chord to Cancel agent rather than to any
+	-- text-deletion the field would otherwise do with it.
+	tell application "System Events"
+		keystroke "l" using {command down}
+		delay 0.2
+		key code 51 using {command down, shift down}
+	end tell
+	delay 0.3
+end cancelAgent
+
+on closeChatTab()
+	-- Hide the selected chat through Conductor's own Close tab shortcut, Command-W.
+	-- The same chord closes a terminal tab when the terminal has focus, so Command-L
+	-- first is load-bearing: it moves focus into the chat whose workspace and tab were
+	-- asserted immediately above this handler.
+	set strips to my tabGroups()
+	if (count of strips) is 0 then error "couldn't find the chat pane to close from"
+	my assertWorkspace(item 1 of strips)
+	tell application "System Events"
+		keystroke "l" using {command down}
+		delay 0.2
+		keystroke "w" using {command down}
+	end tell
+
+	-- Conductor asks "Close anyway" when the chat's agent is still running. The
+	-- server normally catches that from sessions.status before touching the UI, but
+	-- a turn can start in the gap between that read and this keystroke. Detect the
+	-- live dialog too, and never infer permission to hide a running conversation.
+	set confirmEl to missing value
+	set checks to 1
+	if (system attribute "RELAY_CLOSE_RUNNING") is "1" then set checks to 4
+	repeat with attempt from 1 to checks
+		delay 0.25
+		set confirmEl to my closeConfirmButton()
+		if confirmEl is not missing value then exit repeat
+	end repeat
+	if confirmEl is missing value then return "closed"
+	if (system attribute "RELAY_CLOSE_RUNNING") is not "1" then
+		tell application "System Events" to key code 53
+		error "the agent started working before the tab closed - closing it now needs confirmation"
+	end if
+	tell application "System Events" to tell process "Conductor"
+		perform action "AXPress" of confirmEl
+	end tell
+	delay 0.5
+	return "closed"
+end closeChatTab
+
+on buttonsUnder(root, maxDepth)
+	-- Every AXButton at or below root, level-order and bounded. Depth is the whole
+	-- cost here: the transcript hangs off the same web area as anything Conductor
+	-- portals into it, so each extra level multiplies the round trips and the sweep
+	-- gets slower the longer the chat is. That is why the callers below pass the
+	-- shallow depth that fits the thing they are looking for rather than one big cap.
+	set acc to {}
+	set level to {root}
+	set depth to 0
+	tell application "System Events" to tell process "Conductor"
+		repeat while (count of level) > 0 and depth < maxDepth
+			set nextLevel to {}
+			repeat with entry in level
+				set node to contents of entry
+				try
+					set acc to acc & (get UI elements of node whose role is "AXButton")
+					set nextLevel to nextLevel & (get UI elements of node)
+				end try
+			end repeat
+			set level to nextLevel
+			set depth to depth + 1
+		end repeat
+	end tell
+	return acc
+end buttonsUnder
+
+on shallowButtonsNamed(root, maxDepth, wanted)
+	-- Exact-name buttons at the first depth that contains one. Continue lives in
+	-- Conductor's workspace action bar, while a chat transcript hangs much deeper
+	-- off the same web area. Stopping at the shallowest hit both avoids walking a
+	-- long transcript and keeps a similarly named control inside a message from
+	-- impersonating the workspace action.
+	set level to {root}
+	set depth to 0
+	tell application "System Events" to tell process "Conductor"
+		repeat while (count of level) > 0 and depth < maxDepth
+			set found to {}
+			set nextLevel to {}
+			repeat with entry in level
+				set node to contents of entry
+				try
+					repeat with candidate in (get UI elements of node whose role is "AXButton")
+						set controlEl to contents of candidate
+						if (my axName(controlEl)) is wanted then set end of found to controlEl
+					end repeat
+					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 shallowButtonsNamed
+
+on hasSiblingButtonNamed(controlEl, wanted)
+	-- The live merged action is the pair Continue + Archive. Requiring that pair
+	-- prevents a generic Continue in a modal from impersonating it while the
+	-- asserted workspace pane remains visible behind the modal.
+	try
+		tell application "System Events" to tell process "Conductor"
+			set actionRow to value of attribute "AXParent" of controlEl
+			repeat with peer in (get UI elements of actionRow whose role is "AXButton")
+				if (my axName(contents of peer)) is wanted then return true
+			end repeat
+		end tell
+	end try
+	return false
+end hasSiblingButtonNamed
+
+on continueWorkspaceOnNewBranch()
+	-- Press Conductor's own merged-workspace action. Its handler owns all of the
+	-- state that cannot be reproduced safely from the relay: it checks out a fresh
+	-- branch at the PR's target, updates the workspace row, keeps every chat, and
+	-- stages Branch continued.md in the selected chat. The relay never writes the
+	-- database; server.ts watches `workspaces.branch` for the receipt.
+	set strips to my tabGroups()
+	if (count of strips) is 0 then error "couldn't find the chat pane to continue from"
+	my assertWorkspace(item 1 of strips)
+	set found to my shallowButtonsNamed(my webArea(), 10, "Continue")
+	if (count of found) is 0 then error "Conductor isn't offering Continue for this workspace - it appears after its pull request is merged and refreshed"
+	if (count of found) > 1 then error "more than one Continue button is visible - close any dialog and try again"
+	set continueEl to item 1 of found
+	if not (my hasSiblingButtonNamed(continueEl, "Archive")) then error "couldn't verify Conductor's merged-workspace Continue action - close any dialog and try again"
+	set canPress to true
+	try
+		tell application "System Events" to tell process "Conductor"
+			set canPress to (value of attribute "AXEnabled" of continueEl) as boolean
+		end tell
+	end try
+	if not canPress then error "Conductor's Continue button is still busy - try again shortly"
+	tell application "System Events" to tell process "Conductor"
+		perform action "AXPress" of continueEl
+	end tell
+	delay 0.4
+end continueWorkspaceOnNewBranch
+
+on dialogButtons()
+	-- Both places Conductor could be drawing a confirmation, each at the depth that
+	-- shape actually sits at. A real sheet hangs off the window a level or two down;
+	-- an in-webview dialog is a shallow portal near the top of the web area. Its
+	-- buttons are inside depth 3; going to 4 reaches the transcript and made an idle
+	-- close spend its whole 28-second budget proving that no dialog existed.
+	my requireWindow()
+	set fromWindow to {}
+	tell application "System Events" to tell process "Conductor"
+		set fromWindow to my buttonsUnder(window 1, 4)
+	end tell
+	return fromWindow & (my buttonsUnder(my webArea(), 3))
+end dialogButtons
+
+on closeConfirmButton()
+	-- The running-chat dialog has exactly Cancel + "Close anyway". Require the
+	-- pair so an unrelated destructive dialog can never donate a similarly named
+	-- button to this run.
+	set found to missing value
+	set sawCancel to false
+	repeat with entry in my dialogButtons()
+		set node to contents of entry
+		set label to my axName(node)
+		if label is "Cancel" then set sawCancel to true
+		if label starts with "Close anyway" then set found to node
+	end repeat
+	if sawCancel then return found
+	return missing value
+end closeConfirmButton
+
+on archiveConfirmButton()
+	-- Conductor asks before archiving a workspace whose agents are still running:
+	-- "Archive workspace?" over Cancel and "Stop agents and archive". Identified by
+	-- the *pair* - a button naming the verb, with a Cancel somewhere beside it -
+	-- rather than by the archive one alone, which is the same rule waitForMenuWith
+	-- follows: press nothing that has not proved which thing it belongs to.
+	-- "Unarchive" is excluded by name, since AppleScript's contains ignores case
+	-- and would otherwise read that as a confirmation of this.
+	set found to missing value
+	set sawCancel to false
+	repeat with entry in my dialogButtons()
+		set node to contents of entry
+		set label to my axName(node)
+		if label is "Cancel" then set sawCancel to true
+		if label contains "archive" and label does not contain "unarchive" then set found to node
+	end repeat
+	if sawCancel then return found
+	return missing value
+end archiveConfirmButton
+
+on archiveWorkspace()
+	-- Put this workspace away: Conductor's own "Archive workspace", Command-Shift-A.
+	-- A keystroke on purpose, like cancelAgent - the sidebar row menu carries an
+	-- Archive item, but reaching it costs a sidebar scan plus two menu waits, and
+	-- this chord acts on the workspace the pane is already showing.
+	--
+	-- Which is also the danger: it archives whatever is on screen, so the pane
+	-- assertion is the whole guard. Archiving the wrong workspace deletes a worktree
+	-- and kills a turn that was running fine, so a pane that cannot be checked is
+	-- refused rather than aimed at (writes.ts requires the branch for that reason).
+	--
+	-- Command-L ("Focus chat input") first, exactly as cancelAgent does: the chord
+	-- lands wherever focus is, and a focused terminal panel swallows it.
+	set strips to my tabGroups()
+	if (count of strips) is 0 then error "couldn't find the chat pane to archive from"
+	my assertWorkspace(item 1 of strips)
+	tell application "System Events"
+		keystroke "l" using {command down}
+		delay 0.2
+		keystroke "a" using {command down, shift down}
+	end tell
+	-- A workspace with agents still working draws a confirmation; an idle one is
+	-- archived by the chord alone. Both are live, so this waits a bounded moment for
+	-- the dialog and treats its absence as the second case - the DB is the receipt
+	-- either way (server.ts watches for state 'archived'), so nothing here has to
+	-- decide whether the archive landed.
+	set confirmEl to missing value
+	repeat with attempt from 1 to 5
+		delay 0.3
+		set confirmEl to my archiveConfirmButton()
+		if confirmEl is not missing value then exit repeat
+	end repeat
+	if confirmEl is missing value then return "archived"
+	-- The caller has to have opted into the damage before we press this: stopping
+	-- other people's agents is not something to infer from a tap that said Archive.
+	if (system attribute "RELAY_ARCHIVE_AGENTS") is not "1" then
+		tell application "System Events" to key code 53
+		error "agents are still running in this workspace - archiving would stop them"
+	end if
+	tell application "System Events" to tell process "Conductor"
+		perform action "AXPress" of confirmEl
+	end tell
+	delay 0.5
+	return "archived"
+end archiveWorkspace

package/dist-node/src/writes/applescript/run-tasks.applescript

@@ -0,0 +1,208 @@
+
+-- The workspace toolbar's run process. This is deliberately separate from the
+-- chat-strip targeting above: the terminal strip is the sibling AXTabGroup whose
+-- direct radio buttons include Setup / Run / Terminal, and its task button is
+-- named "Run <task>" or "Stop <task>". Conductor may add more terminal tabs, so
+-- identify the strip by the Run radio rather than by its position.
+on runStrip()
+	set matches to {}
+	repeat with entry in my tabGroups()
+		set tg to contents of entry
+		set hasRunTab to false
+		repeat with r in my stripRadios(tg)
+			if (my axName(contents of r)) is "Run" then set hasRunTab to true
+		end repeat
+		if hasRunTab then set end of matches to tg
+	end repeat
+	if (count of matches) is 0 then error "couldn't find Conductor's Run panel"
+	if (count of matches) > 1 then error "can't tell which panel holds Conductor's Run task"
+	return item 1 of matches
+end runStrip
+
+on runTaskButton(tg)
+	set matches to {}
+	tell application "System Events" to tell process "Conductor"
+		repeat with entry in (get UI elements of tg whose role is "AXButton")
+			set node to contents of entry
+			set label to my axName(node)
+			if label starts with "Run " or label starts with "Stop " then set end of matches to node
+		end repeat
+	end tell
+	if (count of matches) is 0 then error "this workspace has no selected Run task"
+	if (count of matches) > 1 then error "Conductor exposed more than one selected Run task"
+	return item 1 of matches
+end runTaskButton
+
+on runTaskChooser(tg)
+	set found to {}
+	tell application "System Events" to tell process "Conductor"
+		repeat with entry in (get UI elements of tg whose role is "AXPopUpButton")
+			set node to contents of entry
+			if (my axName(node)) is "Select task" then set end of found to node
+		end repeat
+	end tell
+	if (count of found) is 0 then return missing value
+	if (count of found) > 1 then error "Conductor exposed more than one Run task chooser"
+	return item 1 of found
+end runTaskChooser
+
+on openRunTaskMenu(tg)
+	-- Multiple Run configs live behind a Radix pop-up. AXPress is advertised but
+	-- does nothing on this control; focusing it and pressing Space opens the real
+	-- AXMenu. Choosing an item starts the task immediately — there is no second
+	-- press on the primary Run button. "Configure" is Conductor's own trailing
+	-- command, not a task choice.
+	set chooser to my runTaskChooser(tg)
+	if chooser is missing value then error "this workspace has no Run config chooser"
+	tell application "System Events" to tell process "Conductor"
+		set value of attribute "AXFocused" of chooser to true
+	end tell
+	tell application "System Events" to key code 49
+	delay 0.4
+	set choices 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 entry in (get UI elements of m whose role is "AXMenuItem")
+				set node to contents of entry
+				set label to my axName(node)
+				if label is not "" and label is not "Configure" then set end of choices to node
+			end repeat
+		end repeat
+	end tell
+	return choices
+end openRunTaskMenu
+
+on startRunTaskNamed(tg, wantedTask)
+	try
+		set matches to {}
+		repeat with entry in my openRunTaskMenu(tg)
+			set node to contents of entry
+			if (my axName(node)) is wantedTask then set end of matches to node
+		end repeat
+		if (count of matches) is 0 then error "no Run config named " & wantedTask
+		if (count of matches) > 1 then error "several Run configs match " & wantedTask
+		tell application "System Events" to tell process "Conductor"
+			perform action "AXPress" of item 1 of matches
+		end tell
+	on error errText number errNum
+		tell application "System Events" to key code 53
+		error errText number errNum
+	end try
+end startRunTaskNamed
+
+on startSoleRunTask(tg)
+	try
+		set choices to my openRunTaskMenu(tg)
+		if (count of choices) is 0 then error "Conductor's Run menu contains no tasks"
+		if (count of choices) > 1 then error "choose which Run config to start"
+		tell application "System Events" to tell process "Conductor"
+			perform action "AXPress" of item 1 of choices
+		end tell
+	on error errText number errNum
+		tell application "System Events" to key code 53
+		error errText number errNum
+	end try
+end startSoleRunTask
+
+on runTaskState(btn)
+	set label to my axName(btn)
+	if label starts with "Stop " then return "running"
+	if label starts with "Run " then return "stopped"
+	error "couldn't read Conductor's Run task state"
+end runTaskState
+
+on runTaskName(btn)
+	set label to my axName(btn)
+	if label starts with "Stop " then return text 6 thru -1 of label
+	if label starts with "Run " then return text 5 thru -1 of label
+	return label
+end runTaskName
+
+on linkDestination(controlEl)
+	tell application "System Events" to tell process "Conductor"
+		try
+			return value of attribute "AXURL" of controlEl as text
+		on error
+			return ""
+		end try
+	end tell
+end linkDestination
+
+on openRunTargets(tg)
+	set foundPorts to {}
+	set foundLinks to {}
+	tell application "System Events" to tell process "Conductor"
+		set controls to UI elements of tg
+	end tell
+	repeat with entry in controls
+		set node to contents of entry
+		tell application "System Events" to tell process "Conductor"
+			set nodeRole to role of node
+		end tell
+		if nodeRole is "AXButton" or nodeRole is "AXLink" then
+			set label to my axName(node)
+			if label starts with "Open" then
+				set destination to my linkDestination(node)
+				if destination starts with "http://" or destination starts with "https://" then set end of foundLinks to destination
+				if label starts with "Open :" then set end of foundPorts to text 7 thru -1 of label
+			end if
+		end if
+	end repeat
+	return {foundPorts, foundLinks}
+end openRunTargets
+
+on setRunTask(wantRunning, wantedTask)
+	my activateConductor()
+	my focusWorkspace()
+	set tg to my runStrip()
+	my assertWorkspace(tg)
+	set btn to my runTaskButton(tg)
+	set beforeState to my runTaskState(btn)
+	set taskName to my runTaskName(btn)
+	set wantedState to "stopped"
+	if wantRunning then set wantedState to "running"
+	set changed to "false"
+	if wantRunning and wantedTask is not "" and beforeState is "running" and taskName is not wantedTask then error taskName & " is already running; stop it before starting " & wantedTask
+
+	if beforeState is not wantedState then
+		if wantRunning and wantedTask is not "" then
+			my startRunTaskNamed(tg, wantedTask)
+		else if wantRunning and (my runTaskChooser(tg)) is not missing value then
+			-- Legacy settings carry no name to the relay. Preserve their one-tap
+			-- behavior only when the live menu independently confirms one choice.
+			my startSoleRunTask(tg)
+		else
+			tell application "System Events" to tell process "Conductor"
+				perform action "AXPress" of btn
+			end tell
+		end if
+		set changed to "true"
+	end if
+
+	-- The panel re-renders after the press, invalidating every old AX handle.
+	-- Re-find it on each poll and require the opposite label before reporting the
+	-- action as complete. A started web server gets a short second window in which
+	-- Conductor can surface its Open control. New controls may expose their exact
+	-- AXURL; current builds expose only "Open :<port>". Non-server tasks return
+	-- with both lists empty.
+	set currentState to beforeState
+	set ports to {}
+	set previewURLs to {}
+	repeat with attempt from 1 to 44
+		set tg to my runStrip()
+		set btn to my runTaskButton(tg)
+		set currentState to my runTaskState(btn)
+		set taskName to my runTaskName(btn)
+		if currentState is wantedState then
+			if wantRunning and wantedTask is not "" and taskName is not wantedTask then error "Conductor started " & taskName & " instead of " & wantedTask
+			set runTargets to my openRunTargets(tg)
+			set ports to item 1 of runTargets
+			set previewURLs to item 2 of runTargets
+			if not wantRunning or (count of ports) > 0 or (count of previewURLs) > 0 or attempt > 20 then exit repeat
+		end if
+		delay 0.25
+	end repeat
+	if currentState is not wantedState then error "Conductor's Run task did not switch to " & wantedState
+	return currentState & tab & taskName & tab & changed & tab & my joinList(ports, ",") & tab & my joinList(previewURLs, ASCII character 30)
+end setRunTask

package/dist-node/src/writes/applescript/source.js

@@ -0,0 +1,52 @@
+import fs from 'node:fs';
+import path from 'node:path';
+/**
+ * One AppleScript program, split only for editing. Order is intentional: runtime
+ * loading, compile checking and package copying all consume this same manifest.
+ * Parts retain their original whitespace; joining inserts no extra separators.
+ */
+const PARTS = [
+    'window.applescript',
+    'workspace-targeting.applescript',
+    'chat-targeting.applescript',
+    'composer.applescript',
+    'run-tasks.applescript',
+    'lifecycle.applescript',
+    'agent-options.applescript',
+    'workspace-status.applescript',
+    'hotspot.applescript'
+];
+/**
+ * Assets are siblings of this module in both src/ and dist-node/src/. Validate
+ * the directory too, so adding a section without listing it cannot silently
+ * leave handlers out of a local run, repository check, or published package.
+ */
+export function conductorAppleScriptSources() {
+    const files = fs
+        .readdirSync(import.meta.dirname, { recursive: true, withFileTypes: true })
+        .filter(entry => entry.isFile() && entry.name.endsWith('.applescript'))
+        .map(entry => path.relative(import.meta.dirname, path.join(entry.parentPath, entry.name)));
+    const expected = new Set(PARTS);
+    const missing = PARTS.filter(file => !files.includes(file));
+    const unlisted = files.filter(file => !expected.has(file));
+    if (expected.size !== PARTS.length || missing.length || unlisted.length) {
+        throw new Error(`AppleScript manifest mismatch: ${[
+            ...(expected.size !== PARTS.length ? ['duplicate parts'] : []),
+            ...(missing.length ? [`missing ${missing.join(', ')}`] : []),
+            ...(unlisted.length ? [`unlisted ${unlisted.join(', ')}`] : [])
+        ].join('; ')}`);
+    }
+    let firstLine = 1;
+    return PARTS.map(part => {
+        const file = path.join(import.meta.dirname, part);
+        const text = fs.readFileSync(file, 'utf8');
+        const source = { file, text, firstLine };
+        firstLine += text.split('\n').length - 1;
+        return source;
+    });
+}
+export function readConductorAppleScript() {
+    return conductorAppleScriptSources()
+        .map(source => source.text)
+        .join('');
+}