Auto-clear completed task lists on new prompt

When a new prompt is sent and all tasks in the task list are done,
automatically clear the list so the model starts fresh. The cleared
state is sent to the client as a synthetic toolCalled event, reusing
the existing task-details rendering path. No protocol or client changes.

Author: zikajk

CHANGELOG.md

@@ -2,6 +2,8 @@
 
 ## Unreleased
 
+- Auto-clear completed task lists: when a new prompt is sent and all tasks are done, the list is automatically cleared.
+
 ## 0.142.2
 
 - `/context` now shows where auto-compaction triggers: a `🔲` marker on the threshold cell of the grid plus an `Auto-compaction at N%` line.

resources/prompts/tools/task.md

@@ -36,4 +36,3 @@ Workflow & Strict Execution Rules:
 4. SUBAGENTS & PARALLEL WORK: For sequential work, keep only one task `in_progress`; later tasks must stay pending until you start them. Multiple tasks may be `in_progress` only for concurrent separate workstreams (e.g. separate subagents). Only the main agent updates the task list.
 5. COMPLETION TIMING: Once a task is verified, close it as soon as possible. Do not delay completion just to align with other tasks.
 6. ADAPTABILITY: If completing tasks reveals follow-up work, use 'add' to append new tasks.
-7. CLEANUP: When all tasks are done and no further work remains, use 'clear'.

src/eca/features/chat.clj

@@ -21,6 +21,7 @@
    [eca.features.skills :as f.skills]
    [eca.features.tools :as f.tools]
    [eca.features.tools.mcp :as f.mcp]
+   [eca.features.tools.task :as f.tools.task]
    [eca.llm-api :as llm-api]
    [eca.llm-providers.errors :as llm-providers.errors]
    [eca.llm-util :as llm-util]
@@ -1653,6 +1654,13 @@
             _ (when (and seeded-default-trust? provided-chat-id)
                 (config/notify-fields-changed-only! {:chat {:select-trust true}} messenger db* chat-id))]
         (logger/with-chat-context chat-id (:parent-chat-id base-chat-ctx)
+          (when-let [cleared-details (f.tools.task/auto-clear-completed! db* chat-id)]
+            (logger/info logger-tag "Auto-cleared completed task list" {:chat-id chat-id})
+            (lifecycle/send-content! base-chat-ctx :assistant
+                                     {:type :toolCalled
+                                      :server "eca"
+                                      :name "task"
+                                      :details cleared-details}))
           (try
             (prompt* params base-chat-ctx)
             (catch Exception e

src/eca/features/tools/task.clj

@@ -256,6 +256,23 @@
   [_name _arguments before-details result _ctx]
   (or (:details result) before-details))
 
+;; --- Auto-clear ---
+
+(defn ^:private all-tasks-done?
+  "Returns true if the task list has tasks and all are :done."
+  [state]
+  (let [tasks (:tasks state)
+        {:keys [done pending in-progress]} (status-counts tasks)]
+    (and (pos? done) (zero? pending) (zero? in-progress))))
+
+(defn auto-clear-completed!
+  "Clear the task list when all tasks are done.
+   Returns task-details of the cleared state if clearing occurred, nil otherwise."
+  [db* chat-id]
+  (when (all-tasks-done? (get-task @db* chat-id))
+    (mutate-task! db* chat-id (fn [_] {:state empty-task}))
+    (task-details empty-task)))
+
 ;; --- Operations ---
 
 (defn ^:private op-read [_arguments {:keys [db chat-id]}]
@@ -502,7 +519,7 @@
                                     :items {:type "integer"}
                                     :description "Task IDs (required for start/complete/delete)"}
                               :active_summary {:type "string"
-                                              :description "Summary of what will be done in the current active session. Required for start operation."}
+                                               :description "Summary of what will be done in the current active session. Required for start operation."}
                               :task {:type "object"
                                      :description "Single task data (for add/update)"
                                      :properties {:subject {:type "string" :description "Task subject/title (required)"}

test/eca/features/tools/task_test.clj

@@ -482,3 +482,48 @@
                    result
                    nil)]
       (is (= (:details result) details)))))
+
+(deftest auto-clear-completed-test
+  (testing "clears task list when all tasks are done"
+    (let [db* (atom {:chats {"c1" {:task {:next-id 3
+                                          :active-summary nil
+                                          :tasks [{:id 1 :subject "T1" :description "D1" :status :done :priority :medium :blocked-by #{}}
+                                                  {:id 2 :subject "T2" :description "D2" :status :done :priority :medium :blocked-by #{}}]}}}})
+          result (task/auto-clear-completed! db* "c1")]
+      (is (some? result))
+      (is (= :task (:type result)))
+      (is (empty? (:tasks result)))
+      (is (= {:next-id 1 :active-summary nil :tasks []}
+             (task/get-task @db* "c1")))))
+
+  (testing "does not clear when tasks are still pending"
+    (let [db* (atom {:chats {"c1" {:task {:next-id 3
+                                          :active-summary nil
+                                          :tasks [{:id 1 :subject "T1" :description "D1" :status :done :priority :medium :blocked-by #{}}
+                                                  {:id 2 :subject "T2" :description "D2" :status :pending :priority :medium :blocked-by #{}}]}}}})
+          result (task/auto-clear-completed! db* "c1")]
+      (is (nil? result))
+      (is (= 2 (count (:tasks (task/get-task @db* "c1")))))))
+
+  (testing "does not clear when tasks are in progress"
+    (let [db* (atom {:chats {"c1" {:task {:next-id 3
+                                          :active-summary "working"
+                                          :tasks [{:id 1 :subject "T1" :description "D1" :status :done :priority :medium :blocked-by #{}}
+                                                  {:id 2 :subject "T2" :description "D2" :status :in-progress :priority :medium :blocked-by #{}}]}}}})
+          result (task/auto-clear-completed! db* "c1")]
+      (is (nil? result))
+      (is (= 2 (count (:tasks (task/get-task @db* "c1")))))))
+
+  (testing "does nothing when task list is empty"
+    (let [db* (atom {:chats {"c1" {:task {:next-id 1 :active-summary nil :tasks []}}}})
+          result (task/auto-clear-completed! db* "c1")]
+      (is (nil? result))
+      (is (= {:next-id 1 :active-summary nil :tasks []}
+             (task/get-task @db* "c1")))))
+
+  (testing "does nothing when chat has no task list"
+    (let [db* (atom {})
+          result (task/auto-clear-completed! db* "c1")]
+      (is (nil? result))
+      (is (= {:next-id 1 :active-summary nil :tasks []}
+             (task/get-task @db* "c1"))))))