@nbardy/oompa 0.6.0 → 0.7.1

package/README.md

@@ -39,7 +39,7 @@ This repo has a fleshed out version of the idea. The oompa loompas are organized
 
 - **Different worker types** — small models for fast execution, big models for planning
 - **Separate review model** — use a smart model to check work before merging
-- **Mixed harnesses** — combine Claude and Codex workers in one swarm
+- **Mixed harnesses** — combine Claude, Codex, and Opencode workers in one swarm
 - **Self-directed tasks** — workers create and claim tasks from shared folders
 
 ### Architecture
@@ -84,20 +84,22 @@ This repo has a fleshed out version of the idea. The oompa loompas are organized
 {
   "workers": [
     {"model": "claude:opus", "prompt": ["config/prompts/planner.md"], "iterations": 5, "count": 1},
-    {"model": "codex:gpt-5.3-codex:medium", "prompt": ["config/prompts/executor.md"], "iterations": 10, "count": 3, "can_plan": false}
+    {"model": "codex:gpt-5.3-codex:medium", "prompt": ["config/prompts/executor.md"], "iterations": 10, "count": 2, "can_plan": false},
+    {"model": "opencode:opencode/kimi-k2.5-free", "prompt": ["config/prompts/executor.md"], "iterations": 10, "count": 1, "can_plan": false}
   ]
 }
 ```
 
 This spawns:
 - **1 planner** (opus) — reads spec, explores codebase, creates/refines tasks
-- **3 executors** (gpt-5.3-codex, medium reasoning) — claims and executes tasks fast
+- **2 codex executors** (gpt-5.3-codex, medium reasoning) — claims and executes tasks fast
+- **1 opencode executor** (opencode/kimi-k2.5-free) — same task loop via `opencode run`
 
 #### Worker fields
 
 | Field | Required | Description |
 |-------|----------|-------------|
-| `model` | yes | `harness:model` or `harness:model:reasoning` (e.g. `codex:gpt-5.3-codex:medium`, `claude:opus`) |
+| `model` | yes | `harness:model` or `harness:model:reasoning` (e.g. `codex:gpt-5.3-codex:medium`, `claude:opus`, `opencode:opencode/kimi-k2.5-free`) |
 | `prompt` | no | String or array of paths — concatenated into one prompt |
 | `iterations` | no | Max iterations per worker (default: 10) |
 | `count` | no | Number of workers with this config (default: 1) |
@@ -111,7 +113,7 @@ This spawns:
 {
   "workers": [
     {"model": "claude:opus-4.5", "prompt": ["prompts/base.md", "prompts/architect.md"], "count": 1},
-    {"model": "codex:codex-5.2-mini", "prompt": ["prompts/base.md", "prompts/frontend.md"], "count": 2},
+    {"model": "opencode:opencode/kimi-k2.5-free", "prompt": ["prompts/base.md", "prompts/frontend.md"], "count": 2},
     {"model": "codex:codex-5.2-mini", "prompt": ["prompts/base.md", "prompts/backend.md"], "count": 2}
   ]
 }
@@ -119,6 +121,23 @@ This spawns:
 
 Every worker automatically gets task management instructions injected above your prompts. Your prompts just say *what* the worker should do — the framework handles *how* tasks work.
 
+#### Prompt includes
+
+Prompts support `#oompa_directive:include_file "path/to/file.md"` lines.
+
+Use it to share common instructions across roles without copying content.  
+Paths are resolved relative to the prompt file containing the directive.
+
+Example:
+
+```md
+#oompa_directive:include_file "config/prompts/_agent_scope_rules.md"
+
+You are an executor. Focus on minimal changes and complete tasks.
+```
+
+The included file is inlined during prompt load, with a short header noting the injected source.
+
 ### Task System
 
 Workers self-organize via the filesystem. Tasks live at the project root and are shared across all worktrees:
@@ -202,21 +221,28 @@ oompa help                  # Show all commands
 
 `./swarm.bb ...` works the same when running from a source checkout.
 
+## Opencode Harness
+
+`opencode` workers use one-shot `opencode run --format json` calls with the same worker prompt tagging:
+
+- First prompt line still starts with `[oompa:<swarmId>:<workerId>]`
+- `-m/--model` is passed when a worker model is configured
+- First iteration starts without `--session`; the worker captures `sessionID` from that exact run output
+- On resumed iterations, workers pass `-s/--session <captured-id> --continue`
+- Oompa does not call `opencode session list` to guess a "latest" session
+- Worker completion markers (`COMPLETE_AND_READY_FOR_MERGE`, `__DONE__`) are evaluated from extracted text events, preserving existing done/merge behavior
+- Optional attach mode: set `OOMPA_OPENCODE_ATTACH` (or `OPENCODE_ATTACH`) to add `--attach <url>`
+
 ## Worker Conversation Persistence
 
-If `codex-persist` is available, each worker writes its prompt/response messages
-to a per-worker session file for external UIs (for example worker panes in
-`claude-web-view`).
+Workers rely on each CLI's native session persistence (no custom mirror writer):
 
-- Session ID: random lowercase UUID per iteration (one file per iteration)
-- First user message tag format: `[oompa:<swarmId>:<workerId>]`
-- CWD passed to `codex-persist` is the worker worktree absolute path
-- Codex workers use `codex-persist` writes; Claude workers use native `--session-id`
+- Codex: native rollouts under `~/.codex/sessions/YYYY/MM/DD/*.jsonl`
+- Claude: native project sessions under `~/.claude/projects/*/*.jsonl`
+- Opencode: native session store managed by `opencode`
 
-Resolution order for the CLI command:
-1. `CODEX_PERSIST_BIN` (if set)
-2. `codex-persist` on `PATH`
-3. `node ~/git/codex-persist/dist/cli.js`
+Oompa still tags the first prompt line with `[oompa:<swarmId>:<workerId>]`
+so downstream UIs can identify and group worker conversations.
 
 ## Requirements
 
@@ -226,6 +252,7 @@ Resolution order for the CLI command:
 - One of:
   - [Claude CLI](https://github.com/anthropics/claude-cli)
   - [Codex CLI](https://github.com/openai/codex)
+  - [Opencode CLI](https://github.com/sst/opencode)
 
 ## License
 

package/agentnet/src/agentnet/agent.clj

@@ -12,7 +12,8 @@
 
    Supported Backends:
      :codex  - OpenAI Codex CLI (codex exec)
-     :claude - Anthropic Claude CLI (claude -p)"
+     :claude - Anthropic Claude CLI (claude -p)
+     :opencode - opencode CLI (opencode run)"
   (:require [agentnet.schema :as schema]
             [babashka.process :as process]
             [clojure.java.io :as io]
@@ -71,6 +72,28 @@
     model (into ["--model" model])
     true (conj "--dangerously-skip-permissions")))
 
+(defn- opencode-attach-url
+  "Optional opencode server URL for run --attach mode."
+  []
+  (let [url (or (System/getenv "OOMPA_OPENCODE_ATTACH")
+                (System/getenv "OPENCODE_ATTACH"))]
+    (when (and url (not (str/blank? url)))
+      url)))
+
+(defmethod build-command :opencode
+  [_ {:keys [model]} prompt cwd]
+  (let [attach (opencode-attach-url)]
+    (cond-> ["opencode" "run"]
+      model (into ["-m" model])
+      attach (into ["--attach" attach])
+      true (conj prompt))))
+
+(defmethod build-command :gemini
+  [_ {:keys [model]} prompt cwd]
+  (cond-> ["gemini" "--yolo"]
+    model (into ["-m" model])
+    true (into ["-p" prompt])))
+
 (defmethod build-command :default
   [agent-type _ _ _]
   (throw (ex-info (str "Unknown agent type: " agent-type)
@@ -108,7 +131,102 @@
      :stdout (truncate (:out result) 10000)
      :stderr (truncate (:err result) 5000)
      :duration-ms (- (now-ms) start)
-     :timed-out? (boolean (:timed-out result))}))
+              :timed-out? (boolean (:timed-out result))}))
+
+;; =============================================================================
+;; Prompt Loading Helpers
+;; =============================================================================
+
+(defn- file-canonical-path
+  "Resolve a path for cache keys and cycle detection."
+  [path]
+  (try
+    (.getCanonicalPath (io/file path))
+    (catch Exception _
+      path)))
+
+(def ^:private prompt-file-cache
+  "Cache for prompt include expansion."
+  (atom {}))
+
+(def ^:private include-directive-pattern
+  #"(?m)^\s*#oompa_directive:include_file\s+\"([^\"]+)\"\s*$")
+
+(defn- read-file-cached
+  "Read a prompt file once and cache by canonical path."
+  [path]
+  (when path
+    (if-let [cached (get @prompt-file-cache path)]
+      cached
+      (let [f (io/file path)]
+        (when (.exists f)
+          (let [content (slurp f)]
+            (swap! prompt-file-cache assoc path content)
+            content))))))
+
+(defn- resolve-include-path
+  "Resolve an include path relative to the file that declares it."
+  [source-path include-path]
+  (let [source-file (io/file source-path)
+        base-dir (.getParentFile source-file)]
+    (if (or (str/starts-with? include-path "/")
+            (and (> (count include-path) 1)
+                 (= (nth include-path 1) \:)) ; Windows drive letter
+            (str/starts-with? include-path "~"))
+      include-path
+      (if base-dir
+        (str (io/file base-dir include-path))
+        include-path))))
+
+(defn- expand-includes
+  "Expand #oompa_directive:include_file directives recursively.
+
+   Directive syntax:
+   #oompa_directive:include_file \"relative/or/absolute/path.md\"
+
+   Includes are resolved relative to the prompt file containing the directive.
+   Cycles are guarded by a simple visited-set."
+  ([raw source-path]
+   (expand-includes raw source-path #{}))
+  ([raw source-path visited]
+   (let [source-canonical (file-canonical-path source-path)
+         lines (str/split-lines (or raw ""))
+         visited' (conj visited source-canonical)]
+     (str/join
+      "\n"
+      (mapcat
+       (fn [line]
+         (if-let [match (re-matches include-directive-pattern line)]
+           (let [include-target (second match)
+                 include-path (resolve-include-path source-canonical include-target)
+                 include-canonical (file-canonical-path include-path)
+                 included (and (not (str/blank? include-path))
+                               (read-file-cached include-canonical))]
+             (cond
+               (str/blank? include-target)
+               ["[oompa] Empty include target in prompt directive"]
+
+               (contains? visited' include-canonical)
+               [(format "[oompa] Skipping already-included file: \"%s\"" include-target)]
+
+               (not included)
+               [(format "[oompa] Could not include \"%s\"" include-target)]
+
+               :else
+               (cons (format "We have included the content of file: \"%s\" below"
+                             include-target)
+                     (str/split-lines
+                      (expand-includes included include-canonical visited')))))
+           [line]))
+       lines)))))
+
+(defn- load-prompt-file
+  "Load a prompt file and expand include directives."
+  [path]
+  (when path
+    (when-let [f (io/file path)]
+      (when (.exists f)
+        (expand-includes (slurp f) (file-canonical-path path))))))
 
 ;; =============================================================================
 ;; Output Parsing
@@ -135,6 +253,17 @@
   [output]
   (boolean (re-find #"COMPLETE_AND_READY_FOR_MERGE" (or output ""))))
 
+(defn parse-claim-signal
+  "Extract task IDs from CLAIM(...) signal in output.
+   Returns vector of task ID strings, or nil if no CLAIM signal found.
+   Format: CLAIM(task-001, task-003, task-005)"
+  [output]
+  (when-let [match (re-find #"CLAIM\(([^)]+)\)" (or output ""))]
+    (->> (str/split (second match) #",")
+         (map str/trim)
+         (remove str/blank?)
+         vec)))
+
 (defn- extract-comments
   "Extract bullet-point comments from output"
   [output]
@@ -211,7 +340,7 @@
   (let [filename (str "config/prompts/" (name role) ".md")
         f (io/file filename)]
     (when (.exists f)
-      (slurp f))))
+      (load-prompt-file filename))))
 
 (defn load-custom-prompt
   "Load a custom prompt file. Returns content or nil."
@@ -219,10 +348,11 @@
   (when path
     (let [f (io/file path)]
       (when (.exists f)
-        (slurp f)))))
+        (load-prompt-file path)))))
 
-(defn- tokenize
-  "Replace {tokens} in template with values from context map"
+(defn tokenize
+  "Replace {tokens} in template with values from context map.
+   Keys can be keywords or strings; values are stringified."
   [template tokens]
   (reduce (fn [acc [k v]]
             (str/replace acc
@@ -269,12 +399,19 @@
   (let [cmd (case agent-type
               :codex ["codex" "--version"]
               :claude ["claude" "--version"]
+              :opencode ["opencode" "--version"]
+              :gemini ["gemini" "--version"]
               ["echo" "unknown"])]
     (try
       (let [{:keys [exit]} (process/sh cmd {:out :string :err :string})]
         (zero? exit))
       (catch Exception _
-        false))))
+        ;; Some CLIs (like gemini) may error on --version due to config issues
+        ;; but still exist on PATH. Fall back to `which`.
+        (try
+          (let [{:keys [exit]} (process/sh ["which" (first cmd)] {:out :string :err :string})]
+            (zero? exit))
+          (catch Exception _ false))))))
 
 (defn select-backend
   "Select first available backend from preference list"