lalph 0.3.85 → 0.3.87

package/package.json

@@ -1,7 +1,7 @@
 {
   "name": "lalph",
   "type": "module",
-  "version": "0.3.85",
+  "version": "0.3.87",
   "publishConfig": {
     "access": "public"
   },

package/src/Agents/chooser.ts

@@ -39,7 +39,7 @@ export const agentChooser = Effect.fnUntraced(function* (options: {
       model: options.preset.extraArgs.join(" "),
       prompt: promptGen.promptChooseClanka({ gitFlow }),
       stallTimeout: options.stallTimeout,
-      withChoose: true,
+      mode: "choose",
     }).pipe(
       Effect.provideService(ChosenTaskDeferred, deferred),
       Effect.flatMap(() => Effect.fail(new ChosenTaskNotFound())),

package/src/Agents/chooserRalph.ts

@@ -0,0 +1,57 @@
+import { Data, Duration, Effect, FileSystem, Path, pipe } from "effect"
+import { PromptGen } from "../PromptGen.ts"
+import { ChildProcess } from "effect/unstable/process"
+import { Worktree } from "../Worktree.ts"
+import { RunnerStalled } from "../domain/Errors.ts"
+import type { CliAgentPreset } from "../domain/CliAgentPreset.ts"
+import { runClanka } from "../Clanka.ts"
+
+export const agentChooserRalph = Effect.fnUntraced(function* (options: {
+  readonly stallTimeout: Duration.Duration
+  readonly preset: CliAgentPreset
+  readonly specFile: string
+}) {
+  const fs = yield* FileSystem.FileSystem
+  const pathService = yield* Path.Path
+  const worktree = yield* Worktree
+  const promptGen = yield* PromptGen
+
+  // use clanka
+  if (!options.preset.cliAgent.command) {
+    yield* runClanka({
+      directory: worktree.directory,
+      model: options.preset.extraArgs.join(" "),
+      prompt: promptGen.promptChooseRalph({ specFile: options.specFile }),
+      stallTimeout: options.stallTimeout,
+      mode: "ralph",
+    })
+  } else {
+    yield* pipe(
+      options.preset.cliAgent.command({
+        prompt: promptGen.promptChooseRalph({ specFile: options.specFile }),
+        prdFilePath: undefined,
+        extraArgs: options.preset.extraArgs,
+      }),
+      ChildProcess.setCwd(worktree.directory),
+      options.preset.withCommandPrefix,
+      worktree.execWithWorkerOutput({
+        cliAgent: options.preset.cliAgent,
+      }),
+      Effect.timeoutOrElse({
+        duration: options.stallTimeout,
+        onTimeout: () => Effect.fail(new RunnerStalled()),
+      }),
+    )
+  }
+
+  return yield* pipe(
+    fs.readFileString(
+      pathService.join(worktree.directory, ".lalph", "task.md"),
+    ),
+    Effect.mapError((_) => new ChosenTaskNotFound()),
+  )
+})
+
+export class ChosenTaskNotFound extends Data.TaggedError("ChosenTaskNotFound") {
+  readonly message = "The AI agent failed to choose a task."
+}

package/src/Agents/planner.ts

@@ -9,6 +9,7 @@ export const agentPlanner = Effect.fnUntraced(function* (options: {
   readonly specsDirectory: string
   readonly dangerous: boolean
   readonly preset: CliAgentPreset
+  readonly ralph: boolean
 }) {
   const pathService = yield* Path.Path
   const worktree = yield* Worktree
@@ -18,7 +19,9 @@ export const agentPlanner = Effect.fnUntraced(function* (options: {
   yield* pipe(
     options.preset.cliAgent.commandPlan({
       prompt: promptGen.planPrompt(options),
-      prdFilePath: pathService.join(".lalph", "prd.yml"),
+      prdFilePath: options.ralph
+        ? undefined
+        : pathService.join(".lalph", "prd.yml"),
       dangerous: options.dangerous,
     }),
     ChildProcess.setCwd(worktree.directory),

package/src/Agents/reviewer.ts

@@ -12,6 +12,7 @@ export const agentReviewer = Effect.fnUntraced(function* (options: {
   readonly stallTimeout: Duration.Duration
   readonly preset: CliAgentPreset
   readonly instructions: string
+  readonly ralph: boolean
 }) {
   const fs = yield* FileSystem.FileSystem
   const pathService = yield* Path.Path
@@ -29,7 +30,7 @@ export const agentReviewer = Effect.fnUntraced(function* (options: {
     yield* runClanka({
       directory: worktree.directory,
       model: options.preset.extraArgs.join(" "),
-      system: promptGen.systemClanka(options),
+      system: options.ralph ? undefined : promptGen.systemClanka(options),
       prompt: Option.match(customInstructions, {
         onNone: () =>
           promptGen.promptReview({
@@ -44,6 +45,7 @@ export const agentReviewer = Effect.fnUntraced(function* (options: {
           }),
       }),
       stallTimeout: options.stallTimeout,
+      mode: options.ralph ? "ralph" : "default",
     })
     return ExitCode(0)
   }

package/src/Agents/timeout.ts

@@ -11,7 +11,16 @@ export const agentTimeout = Effect.fnUntraced(function* (options: {
   readonly specsDirectory: string
   readonly stallTimeout: Duration.Duration
   readonly preset: CliAgentPreset
-  readonly task: PrdIssue
+  readonly task:
+    | {
+        readonly _tag: "task"
+        readonly task: PrdIssue
+      }
+    | {
+        readonly _tag: "ralph"
+        readonly task: string
+        readonly specFile: string
+      }
 }) {
   const pathService = yield* Path.Path
   const worktree = yield* Worktree
@@ -22,23 +31,42 @@ export const agentTimeout = Effect.fnUntraced(function* (options: {
     yield* runClanka({
       directory: worktree.directory,
       model: options.preset.extraArgs.join(" "),
-      system: promptGen.systemClanka(options),
-      prompt: promptGen.promptTimeoutClanka({
-        taskId: options.task.id!,
-        specsDirectory: options.specsDirectory,
-      }),
+      system:
+        options.task._tag === "ralph"
+          ? undefined
+          : promptGen.systemClanka(options),
+      prompt:
+        options.task._tag === "ralph"
+          ? promptGen.promptTimeoutRalph({
+              task: options.task.task,
+              specFile: options.task.specFile,
+            })
+          : promptGen.promptTimeoutClanka({
+              taskId: options.task.task.id!,
+              specsDirectory: options.specsDirectory,
+            }),
       stallTimeout: options.stallTimeout,
+      mode: options.task._tag === "ralph" ? "ralph" : "default",
     })
     return ExitCode(0)
   }
 
   const timeoutCommand = pipe(
     options.preset.cliAgent.command({
-      prompt: promptGen.promptTimeout({
-        taskId: options.task.id!,
-        specsDirectory: options.specsDirectory,
-      }),
-      prdFilePath: pathService.join(".lalph", "prd.yml"),
+      prompt:
+        options.task._tag === "ralph"
+          ? promptGen.promptTimeoutRalph({
+              task: options.task.task,
+              specFile: options.task.specFile,
+            })
+          : promptGen.promptTimeout({
+              taskId: options.task.task.id!,
+              specsDirectory: options.specsDirectory,
+            }),
+      prdFilePath:
+        options.task._tag === "ralph"
+          ? undefined
+          : pathService.join(".lalph", "prd.yml"),
       extraArgs: options.preset.extraArgs,
     }),
     ChildProcess.setCwd(worktree.directory),

package/src/Agents/worker.ts

@@ -13,6 +13,7 @@ export const agentWorker = Effect.fnUntraced(function* (options: {
   readonly prompt: string
   readonly research: Option.Option<string>
   readonly steer?: Stream.Stream<string>
+  readonly ralph: boolean
 }) {
   const pathService = yield* Path.Path
   const worktree = yield* Worktree
@@ -42,6 +43,7 @@ ${research}`,
       }),
       stallTimeout: options.stallTimeout,
       steer: options.steer,
+      mode: options.ralph ? "ralph" : "default",
     })
     return ExitCode(0)
   }
@@ -49,7 +51,9 @@ ${research}`,
   const cliCommand = pipe(
     options.preset.cliAgent.command({
       prompt: options.prompt,
-      prdFilePath: pathService.join(".lalph", "prd.yml"),
+      prdFilePath: options.ralph
+        ? undefined
+        : pathService.join(".lalph", "prd.yml"),
       extraArgs: options.preset.extraArgs,
     }),
     ChildProcess.setCwd(worktree.directory),

package/src/Clanka.ts

@@ -71,7 +71,7 @@ export const runClanka = Effect.fnUntraced(
     readonly system?: string | undefined
     readonly stallTimeout?: Duration.Input | undefined
     readonly steer?: Stream.Stream<string> | undefined
-    readonly withChoose?: boolean | undefined
+    readonly mode?: "ralph" | "choose" | "default" | undefined
   }) {
     const muxer = yield* OutputFormatter.Muxer
     const agent = yield* Agent.Agent
@@ -112,7 +112,12 @@ export const runClanka = Effect.fnUntraced(
       effect,
       Agent.layerLocal({
         directory: options.directory,
-        tools: options.withChoose ? TaskChooseTools : TaskTools,
+        tools:
+          options.mode === "ralph"
+            ? undefined
+            : options.mode === "choose"
+              ? TaskChooseTools
+              : TaskTools,
       }).pipe(Layer.merge(ClankaModels.get(options.model))),
     ),
   Effect.provide([NodeHttpClient.layerUndici, TaskToolsHandlers]),

package/src/CurrentIssueSource.ts

@@ -9,7 +9,7 @@ import {
   ScopedRef,
   ServiceMap,
 } from "effect"
-import { CurrentProjectId, Setting, Settings } from "./Settings.ts"
+import { allProjects, CurrentProjectId, Setting, Settings } from "./Settings.ts"
 import { LinearIssueSource } from "./Linear.ts"
 import { Prompt } from "effect/unstable/cli"
 import { GithubIssueSource } from "./Github.ts"
@@ -18,7 +18,7 @@ import { PlatformServices } from "./shared/platform.ts"
 import { atomRuntime } from "./shared/runtime.ts"
 import { Atom, Reactivity } from "effect/unstable/reactivity"
 import type { PrdIssue } from "./domain/PrdIssue.ts"
-import type { ProjectId } from "./domain/Project.ts"
+import type { Project, ProjectId } from "./domain/Project.ts"
 import type { ChildProcessSpawner } from "effect/unstable/process/ChildProcessSpawner"
 
 const issueSources: ReadonlyArray<typeof CurrentIssueSource.Service> = [
@@ -76,6 +76,7 @@ export class CurrentIssueSource extends ServiceMap.Service<
 >()("lalph/CurrentIssueSource") {
   static layer = Layer.effectServices(
     Effect.gen(function* () {
+      const settings = yield* Settings
       const source = yield* getOrSelectIssueSource
       const build = Layer.build(source.layer).pipe(
         Effect.map(ServiceMap.get(IssueSource)),
@@ -88,6 +89,24 @@ export class CurrentIssueSource extends ServiceMap.Service<
       const refresh = ScopedRef.set(ref, build).pipe(
         Effect.provideServices(services),
       )
+      const unlessRalph =
+        <B>(projectId: ProjectId, orElse: Effect.Effect<B>) =>
+        <A, E, R>(effect: Effect.Effect<A, E, R>): Effect.Effect<A | B, E, R> =>
+          settings.get(allProjects).pipe(
+            Effect.map(
+              Option.filter((projects) =>
+                projects.some(
+                  (p) => p.id === projectId && p.gitFlow === "ralph",
+                ),
+              ),
+            ),
+            Effect.flatMap(
+              Option.match({
+                onNone: (): Effect.Effect<A | B, E, R> => effect,
+                onSome: () => orElse,
+              }),
+            ),
+          )
 
       const proxy = IssueSource.of({
         issues: (projectId) =>
@@ -100,18 +119,22 @@ export class CurrentIssueSource extends ServiceMap.Service<
               ).pipe(Effect.andThen(Effect.ignore(refresh))),
             ),
             Effect.retry(refreshSchedule),
+            unlessRalph(projectId, Effect.succeed([])),
           ),
         createIssue: (projectId, options) =>
           ScopedRef.get(ref).pipe(
             Effect.flatMap((source) => source.createIssue(projectId, options)),
+            unlessRalph(projectId, Effect.interrupt),
           ),
         updateIssue: (options) =>
           ScopedRef.get(ref).pipe(
             Effect.flatMap((source) => source.updateIssue(options)),
+            unlessRalph(options.projectId, Effect.void),
           ),
         cancelIssue: (projectId, issueId) =>
           ScopedRef.get(ref).pipe(
             Effect.flatMap((source) => source.cancelIssue(projectId, issueId)),
+            unlessRalph(projectId, Effect.void),
           ),
         reset: ScopedRef.get(ref).pipe(
           Effect.flatMap((source) => source.reset),
@@ -119,10 +142,12 @@ export class CurrentIssueSource extends ServiceMap.Service<
         settings: (projectId) =>
           ScopedRef.get(ref).pipe(
             Effect.flatMap((source) => source.settings(projectId)),
+            unlessRalph(projectId, Effect.void),
           ),
         info: (projectId) =>
           ScopedRef.get(ref).pipe(
             Effect.flatMap((source) => source.info(projectId)),
+            unlessRalph(projectId, Effect.void),
           ),
         issueCliAgentPreset: (issue) =>
           ScopedRef.get(ref).pipe(
@@ -141,6 +166,7 @@ export class CurrentIssueSource extends ServiceMap.Service<
             Effect.flatMap((source) =>
               source.ensureInProgress(projectId, issueId),
             ),
+            unlessRalph(projectId, Effect.void),
           ),
       })
 
@@ -181,9 +207,9 @@ const getCurrentIssues = (projectId: ProjectId) =>
     suspendOnWaiting: true,
   })
 
-export const checkForWork = Effect.gen(function* () {
-  const projectId = yield* CurrentProjectId
-  const issues = yield* getCurrentIssues(projectId)
+export const checkForWork = Effect.fnUntraced(function* (project: Project) {
+  if (project.gitFlow === "ralph") return
+  const issues = yield* getCurrentIssues(project.id)
   const hasIncomplete = issues.some(
     (issue) => issue.state === "todo" && issue.blockedBy.length === 0,
   )

package/src/GitFlow.ts

@@ -199,6 +199,62 @@ But you **do not** need to git push your changes or switch branches.
   }),
 ).pipe(Layer.provide(AtomRegistry.layer))
 
+export const GitFlowRalph = Layer.effect(
+  GitFlow,
+  Effect.gen(function* () {
+    const currentWorker = yield* CurrentWorkerState
+    const workerState = yield* Atom.get(currentWorker.state)
+
+    return GitFlow.of({
+      requiresGithubPr: false,
+      branch: `lalph/worker-${workerState.id}`,
+
+      setupInstructions: () =>
+        `You are already on a new branch for this task. You do not need to checkout any other branches.`,
+
+      commitInstructions:
+        () => `When you have completed your changes, **you must** commit them to the current local branch. Do not git push your changes or switch branches.
+   - **DO NOT** commit any of the files in the \`.lalph\` directory.`,
+
+      reviewInstructions: `You are already on the branch with their changes.
+After making any changes, **you must** commit them to the same branch.
+But you **do not** need to git push your changes or switch branches.
+
+ - **DO NOT** commit any of the files in the \`.lalph\` directory.
+ - You have full permission to create git commits.`,
+
+      postWork: Effect.fnUntraced(function* ({ worktree, targetBranch }) {
+        if (!targetBranch) {
+          return yield* Effect.logWarning(
+            "GitFlowRalph: No target branch specified, skipping postWork.",
+          )
+        }
+
+        const parsed = parseBranch(targetBranch)
+        yield* worktree.exec`git fetch ${parsed.remote}`
+
+        yield* worktree.exec`git restore --worktree .`
+        const rebaseResult =
+          yield* worktree.exec`git rebase ${parsed.branchWithRemote}`
+        if (rebaseResult !== 0) {
+          return yield* new GitFlowError({
+            message: `Failed to rebase onto ${parsed.branchWithRemote}. Aborting task.`,
+          })
+        }
+
+        const pushResult =
+          yield* worktree.exec`git push ${parsed.remote} ${`HEAD:${parsed.branch}`}`
+        if (pushResult !== 0) {
+          return yield* new GitFlowError({
+            message: `Failed to push changes to ${parsed.branchWithRemote}. Aborting task.`,
+          })
+        }
+      }),
+      autoMerge: () => Effect.void,
+    })
+  }),
+).pipe(Layer.provide(AtomRegistry.layer))
+
 // Errors
 
 export class GitFlowError extends Data.TaggedError("GitFlowError")<{

package/src/Prd.ts

@@ -294,4 +294,13 @@ export class Prd extends ServiceMap.Service<
       CurrentIssueSource.layer,
     ]),
   )
+  static layerNoop = Layer.succeed(this, {
+    path: "",
+    maybeRevertIssue: () => Effect.void,
+    revertUpdatedIssues: Effect.void,
+    flagUnmergable: () => Effect.void,
+    findById: () => Effect.succeed(null),
+    setChosenIssueId: () => Effect.void,
+    setAutoMerge: () => Effect.void,
+  })
 }

package/src/Projects.ts

@@ -1,15 +1,6 @@
-import {
-  Array,
-  Data,
-  Effect,
-  Layer,
-  Option,
-  pipe,
-  Schema,
-  String,
-} from "effect"
+import { Array, Data, Effect, Layer, Option, pipe, String } from "effect"
 import { Project, ProjectId } from "./domain/Project.ts"
-import { CurrentProjectId, Setting, Settings } from "./Settings.ts"
+import { allProjects, CurrentProjectId, Settings } from "./Settings.ts"
 import { Prompt } from "effect/unstable/cli"
 import { IssueSource } from "./IssueSource.ts"
 import { CurrentIssueSource } from "./CurrentIssueSource.ts"
@@ -22,8 +13,6 @@ export const layerProjectIdPrompt = Layer.effect(
   }),
 ).pipe(Layer.provide(Settings.layer), Layer.provide(CurrentIssueSource.layer))
 
-export const allProjects = new Setting("projects", Schema.Array(Project))
-
 export const getAllProjects = Settings.get(allProjects).pipe(
   Effect.map(Option.getOrElse((): ReadonlyArray<Project> => [])),
 )
@@ -76,6 +65,7 @@ export const welcomeWizard = Effect.gen(function* () {
 
 export const addOrUpdateProject = Effect.fnUntraced(function* (
   existing?: Project,
+  fromPlanMode = false,
 ) {
   const projects = yield* getAllProjects
   const id = existing
@@ -121,16 +111,29 @@ export const addOrUpdateProject = Effect.fnUntraced(function* (
         value: "commit",
         selected: existing ? existing.gitFlow === "commit" : false,
       },
+      {
+        title: "Ralph",
+        description: "Tasks are determined from a spec file",
+        value: "ralph",
+        selected: existing ? existing.gitFlow === "ralph" : false,
+      },
     ] as const,
   })
 
+  let ralphSpec = Option.none<string>()
+  if (gitFlow === "ralph" && !fromPlanMode) {
+    ralphSpec = yield* Prompt.file({
+      message: "Path to Ralph spec file",
+    }).pipe(Effect.fromYieldable, Effect.map(Option.some))
+  }
+
   const researchAgent = yield* Prompt.toggle({
     message: "Enable research agent?",
-    initial: existing ? existing.researchAgent : true,
+    initial: existing ? existing.researchAgent : false,
   })
   const reviewAgent = yield* Prompt.toggle({
     message: "Enable review agent?",
-    initial: existing ? existing.reviewAgent : true,
+    initial: existing ? existing.reviewAgent : false,
   })
 
   const project = new Project({
@@ -139,6 +142,7 @@ export const addOrUpdateProject = Effect.fnUntraced(function* (
     concurrency,
     targetBranch,
     gitFlow,
+    ralphSpec: Option.getOrUndefined(ralphSpec),
     researchAgent,
     reviewAgent,
   })
@@ -153,7 +157,9 @@ export const addOrUpdateProject = Effect.fnUntraced(function* (
 
   const source = yield* IssueSource
   yield* source.reset.pipe(Effect.provideService(CurrentProjectId, project.id))
-  yield* source.settings(project.id)
+  if (gitFlow !== "ralph") {
+    yield* source.settings(project.id)
+  }
 
   return project
 })

package/src/PromptGen.ts

@@ -112,18 +112,19 @@ ${
     ? `\n  - Set \`githubPrNumber\` to the PR number if one exists, otherwise use \`null\`.`
     : "\n  Leave `githubPrNumber` as null."
 }
+`
+      const promptChooseRalph = (options: {
+        readonly specFile: string
+      }) => `- Read the spec file at \`${options.specFile}\` to understand the current project.
+- Choose the next most important task to work on from the specification.
+- If all of the tasks are complete then do nothing more. Otherwise, write the chosen task in a ".lalph/task.md" file.
+
+Note: The task should be a specific, actionable item that can be completed in a reasonable amount of time.
 `
 
       const keyInformation = (options: {
         readonly specsDirectory: string
-      }) => `## Important: Adding new tasks
-
-**If at any point** you discover something that needs fixing, or another task
-that needs doing, immediately add it to the prd.yml file as a new task.
-
-Read the "### Adding tasks" section below carefully for guidelines on creating tasks.
-
-## Important: Recording key information
+      }) => `## Important: Recording key information
 
 This session will time out after a certain period, so make sure to record
 key information that could speed up future work on the task in the description.
@@ -146,12 +147,7 @@ ${prdNotes(options)}`
 
       const systemClanka = (options: {
         readonly specsDirectory: string
-      }) => `## Important: Adding new tasks
-
-**If at any point** you discover something that needs fixing, or another task
-that needs doing, immediately add it as a new task.
-
-## Important: Recording key information
+      }) => `## Important: Recording key information
 
 This session will time out after a certain period, so make sure to record
 key information that could speed up future work on the task in the description.
@@ -238,9 +234,6 @@ All steps must be done before the task can be considered complete.${
 2. Implement the task.
    - If this task is a research task, **do not** make any code changes yet.
    - If this task is a research task and you add follow-up tasks, include (at least) "${options.task.id}" in the new task's \`blockedBy\` field.
-   - **If at any point** you discover something that needs fixing, or another task
-     that needs doing, immediately add it as a new task unless you plan to fix it
-     as part of this task.
    - Add important discoveries about the codebase, or challenges faced to the task's
      \`description\`. More details below.
 3. Run any checks / feedback loops, such as type checks, unit tests, or linting.
@@ -254,6 +247,34 @@ All steps must be done before the task can be considered complete.${
    - Rewrite the notes in the description to include only the key discoveries and information that could speed up future work on other tasks. Make sure to preserve important information such as specification file references.
    - If you believe the task is complete, update the \`state\` to "in-review".`
 
+      const promptRalph = (options: {
+        readonly task: string
+        readonly targetBranch: string | undefined
+        readonly specFile: string
+        readonly gitFlow: GitFlow["Service"]
+      }) => `${options.task}
+
+## Project specification
+
+Make sure to review the project specification at \`${options.specFile}\` for any key information that may help you with this task.
+
+### Instructions
+
+All steps must be done before the task can be considered complete.
+
+1. ${options.gitFlow.setupInstructions({ githubPrNumber: undefined })}
+2. Implement the task.
+  - Along the way, update the specification file with any important discoveries or issues found.
+3. Run any checks / feedback loops, such as type checks, unit tests, or linting.
+4. Update the specification implementation plan at \`${options.specFile}\` to reflect changes to task states.
+4. ${options.gitFlow.commitInstructions({
+        githubPrInstructions: sourceMeta.githubPrInstructions,
+        githubPrNumber: undefined,
+        taskId: "unknown",
+        targetBranch: options.targetBranch,
+      })}
+`
+
       const promptResearch = (options: {
         readonly task: PrdIssue
       }) => `Your job is to gather all the necessary information and details to complete the task described below. Do not make any code changes yet, your job is just to research and gather information.
@@ -326,6 +347,22 @@ permission.
 
 ${prdNotes(options)}`
 
+      const promptTimeoutRalph = (options: {
+        readonly task: string
+        readonly specFile: string
+      }) => `Your earlier attempt to complete the following task took too
+long and has timed out.
+
+The following instructions should be done without interaction or asking for
+permission.
+
+1. Investigate why you think the task took too long. Research the codebase
+   further to understand what is needed to complete the task.
+2. Update the specification file at \`${options.specFile}\` to break the task
+   down into smaller tasks, and include any important discoveries from your research.
+3. Commit the changes to the specification file without pushing.
+`
+
       const promptTimeoutClanka = (options: {
         readonly taskId: string
         readonly specsDirectory: string
@@ -447,13 +484,16 @@ Make sure to setup dependencies between the tasks using the \`blockedBy\` field.
       return {
         promptChoose,
         promptChooseClanka,
+        promptChooseRalph,
         prompt,
+        promptRalph,
         promptClanka,
         promptResearch,
         promptReview,
         promptReviewCustom,
         promptTimeout,
         promptTimeoutClanka,
+        promptTimeoutRalph,
         planPrompt,
         promptPlanTasks,
         promptPlanTasksClanka,

package/src/Settings.ts

@@ -3,7 +3,7 @@ import { Cache, Effect, Layer, Option, Schema, ServiceMap } from "effect"
 import { KeyValueStore } from "effect/unstable/persistence"
 import { layerKvs, ProjectsKvs } from "./Kvs.ts"
 import { allCliAgents } from "./domain/CliAgent.ts"
-import { ProjectId } from "./domain/Project.ts"
+import { Project, ProjectId } from "./domain/Project.ts"
 import { Reactivity } from "effect/unstable/reactivity"
 
 export class Settings extends ServiceMap.Service<Settings>()("lalph/Settings", {
@@ -125,6 +125,17 @@ export class Settings extends ServiceMap.Service<Settings>()("lalph/Settings", {
   ) {
     return Settings.use((_) => _.set(setting, value))
   }
+  static update<Name extends string, S extends Schema.Codec<any, any>>(
+    setting: Setting<Name, S>,
+    f: (current: Option.Option<S["Type"]>) => Option.Option<S["Type"]>,
+  ) {
+    return Settings.use((_) =>
+      _.get(setting).pipe(
+        Effect.map(f),
+        Effect.flatMap((v) => _.set(setting, v)),
+      ),
+    )
+  }
 
   static getProject<Name extends string, S extends Schema.Codec<any, any>>(
     setting: ProjectSetting<Name, S>,
@@ -173,3 +184,5 @@ export const selectedCliAgentId = new Setting(
   "selectedCliAgentId",
   Schema.Literals(allCliAgents.map((a) => a.id)),
 )
+
+export const allProjects = new Setting("projects", Schema.Array(Project))