Add /skill-create command to create a ECA skill from a prompt.

Fixes #277

Author: ericdallo

CHANGELOG.md

@@ -2,6 +2,8 @@
 
 ## Unreleased
 
+- Add `/skill-create` command to create a ECA skill from a prompt. #277
+
 ## 0.95.0
 
 - (OpenAI Chat) - Configurable reasoning history via `reasoningHistory` (model-level, default: all)

resources/META-INF/native-image/eca/eca/native-image.properties

@@ -19,6 +19,7 @@ Args=-J-Dborkdude.dynaload.aot=true \
      -H:IncludeResources=prompts/agent_behavior.md \
      -H:IncludeResources=prompts/additional_system_info.md \
      -H:IncludeResources=prompts/init.md \
+     -H:IncludeResources=prompts/skill_create.md \
      -H:IncludeResources=prompts/title.md \
      -H:IncludeResources=prompts/compact.md \
      -H:IncludeResources=prompts/inline_completion.md \

resources/prompts/skill_create.md

@@ -0,0 +1,19 @@
+## Task
+
+Create the ECA skill {{skillName}}. 
+The skill file should be a markdown file {{skillFilePath}} starting with meta containing name and description.
+
+## Example
+
+```markdown
+--- 
+name: the-skill-name
+description: Consise text of what the skill does, useful to LLM knows when to load it.
+---
+
+Skill content goes here. 
+```
+
+## Description and content
+
+For the skill description and content, consider user request: {{userPrompt}}

src/eca/config.clj

@@ -110,6 +110,7 @@
              :chatTitle "${classpath:prompts/title.md}"
              :compact "${classpath:prompts/compact.md}"
              :init "${classpath:prompts/init.md}"
+             :skillCreate "${classpath:prompts/skill_create.md}"
              :completion "${classpath:prompts/inline_completion.md}"
              :rewrite "${classpath:prompts/rewrite.md}"}
    :hooks {}

src/eca/features/chat.clj

@@ -1307,24 +1307,30 @@
                      content))))
 
 (defn ^:private handle-command! [{:keys [command args]} chat-ctx]
-  (let [{:keys [type on-finished-side-effect] :as result} (f.commands/handle-command! command args chat-ctx)]
-    (case type
-      :chat-messages (do
-                       (doseq [[chat-id {:keys [messages title]}] (:chats result)]
-                         (let [new-chat-ctx (assoc chat-ctx :chat-id chat-id)]
-                           (send-chat-contents! messages new-chat-ctx)
-                           (when title
-                             (send-content! new-chat-ctx :system (assoc-some
-                                                                  {:type :metadata}
-                                                                  :title title)))))
-                       (finish-chat-prompt! :idle chat-ctx))
-      :new-chat-status (finish-chat-prompt! (:status result) chat-ctx)
-      :send-prompt (let [prompt-contents (:prompt result)]
-                     ;; Keep original slash command in :message for hooks (already in parent chat-ctx)
-                     (prompt-messages! [{:role "user" :content prompt-contents}]
-                                       :eca-command
-                                       (assoc chat-ctx :on-finished-side-effect on-finished-side-effect)))
-      nil)))
+  (try
+    (let [{:keys [type on-finished-side-effect] :as result} (f.commands/handle-command! command args chat-ctx)]
+      (case type
+        :chat-messages (do
+                         (doseq [[chat-id {:keys [messages title]}] (:chats result)]
+                           (let [new-chat-ctx (assoc chat-ctx :chat-id chat-id)]
+                             (send-chat-contents! messages new-chat-ctx)
+                             (when title
+                               (send-content! new-chat-ctx :system (assoc-some
+                                                                    {:type :metadata}
+                                                                    :title title)))))
+                         (finish-chat-prompt! :idle chat-ctx))
+        :new-chat-status (finish-chat-prompt! (:status result) chat-ctx)
+        :send-prompt (let [prompt-contents (:prompt result)]
+                       ;; Keep original slash command in :message for hooks (already in parent chat-ctx)
+                       (prompt-messages! [{:role "user" :content prompt-contents}]
+                                         :eca-command
+                                         (assoc chat-ctx :on-finished-side-effect on-finished-side-effect)))
+        nil))
+    (catch Exception e
+      (logger/error e)
+      (send-content! chat-ctx :system {:type :text
+                                       :text (str "Error: " (ex-message e) "\n\nCheck ECA stderr for more details.")})
+      (finish-chat-prompt! :idle (dissoc chat-ctx :on-finished-side-effect)))))
 
 (defn ^:private prompt*
   [{:keys [model]}

src/eca/features/commands.clj

@@ -12,6 +12,7 @@
    [eca.features.skills :as f.skills]
    [eca.features.tools.mcp :as f.mcp]
    [eca.llm-api :as llm-api]
+   [eca.logger :as logger]
    [eca.messenger :as messenger]
    [eca.secrets :as secrets]
    [eca.shared :as shared :refer [multi-str update-some]])
@@ -93,8 +94,13 @@
                        :arguments [{:name "provider-id"}]}
                       {:name "skills"
                        :type :native
-                       :description "List available skills."
+                       :description "List available skills"
                        :arguments []}
+                      {:name "skill-create"
+                       :type :native
+                       :description "Create a skill considering a user request"
+                       :arguments [{:name "name" :description "The skill name"}
+                                   {:name "prompt" :description "What to consider as this skill content"}]}
                       {:name "costs"
                        :type :native
                        :description "Total costs of the current chat session."
@@ -303,6 +309,10 @@
                           skills)]
                  {:type :chat-messages
                   :chats {chat-id {:messages [{:role "system" :content [{:type :text :text msg}]}]}}})
+      "skill-create" (let [skill-name (first args)
+                           user-prompt (second args)]
+                       {:type :send-prompt
+                        :prompt (f.prompt/skill-create-prompt skill-name user-prompt all-tools behavior db config)})
       "config" {:type :chat-messages
                 :chats {chat-id {:messages [{:role "system" :content [{:type :text :text (with-out-str (pprint/pprint config))}]}]}}}
       "doctor" {:type :chat-messages

src/eca/features/prompt.clj

@@ -3,6 +3,7 @@
    [babashka.fs :as fs]
    [clojure.java.io :as io]
    [clojure.string :as string]
+   [eca.features.skills :as f.skills]
    [eca.features.tools.mcp :as f.mcp]
    [eca.logger :as logger]
    [eca.shared :refer [multi-str] :as shared]
@@ -172,6 +173,15 @@
    (get-config-prompt :init behavior config)
    (->base-selmer-ctx all-tools db)))
 
+(defn skill-create-prompt [skill-name user-prompt all-tools behavior db config]
+  (selmer/render
+   (get-config-prompt :skillCreate behavior config)
+   (merge
+    (->base-selmer-ctx all-tools db)
+    {:skillFilePath (str (fs/file (f.skills/global-skills-dir) skill-name "SKILL.md"))
+     :skillName skill-name
+     :userPrompt user-prompt})))
+
 (defn chat-title-prompt [behavior config]
   (get-config-prompt :chatTitle behavior config))
 

src/eca/features/skills.clj

@@ -52,10 +52,13 @@
        :body body
        :dir (str (fs/canonicalize (fs/parent skill-file)))})))
 
-(defn ^:private global-skills []
+(defn global-skills-dir []
   (let [xdg-config-home (or (config/get-env "XDG_CONFIG_HOME")
-                            (io/file (config/get-property "user.home") ".config"))
-        skills-dir (io/file xdg-config-home "eca" "skills")]
+                            (io/file (config/get-property "user.home") ".config"))]
+    (io/file xdg-config-home "eca" "skills")))
+
+(defn ^:private global-skills []
+  (let [skills-dir (global-skills-dir)]
     (when (fs/exists? skills-dir)
       (keep skill-file->skill
             (fs/glob skills-dir "**/SKILL.md" {:follow-links true})))))