Update bootstrap for cursor rules

Author: slimslenderslacks

prompts/bootstrap.md

@@ -21,9 +21,10 @@ tools:
         - -c
         - "echo \"{{content|safe}}\" >> /prompts/{{name}}.md"
   - name: write_files
+  - name: read-file
 ```
 
-# prompt
+# xprompt
 
 Take the following description of a task I'd like to complete, and extract the schema for a set of tool definitions that I'll need 
 in order to run that task.  The tool definitions should be in yaml and each tool should have a name, a description, and an openapi schema
@@ -33,3 +34,6 @@ moustache templates. The final yaml definition should be written into a code blo
 
 > add a tool that fetches all GitHub Issues from a public repository using curl.  We do not need a token.
 
+# prompt
+
+Read in the file tools.md and then bootstrap the tool definition with the name 'github-issues'

src/docker.clj

@@ -466,7 +466,7 @@
    {:image "vonwig/websocat:latest",
     :stdin
     {:content
-     "{\"id\":1,\"method\":\"Page.navigate\",\"params\":{\"url\":\"https://www.docker.com\"}}"},
+     "Page.navigate {\"url\":\"https://www.docker.com\"}"},
     :command
     ["-n1"
      "--jsonrpc"

src/jsonrpc/db.clj

@@ -9,7 +9,7 @@
 
 (def db* (atom {}))
 
-(defn get-prompt-data 
+(defn get-prompt-data
   "register is a coll of prompt file ref maps"
   [{:keys [register] :as opts}]
   (->> register
@@ -86,6 +86,21 @@
                              (constantly (or (:mcp.prompts/static db) {})))))))
   (logger/info "resources are " (:mcp.prompts/resources @db*)))
 
+(defn update-prompt [opts s content]
+  (logger/info (format "update prompt %s with content %s" s content))
+  (let [m (prompts/get-prompts
+           (assoc opts :prompt-content content))]
+    (swap! db* (fn [db] 
+                 (-> db 
+                     (update-in [:mcp.prompts/registry s] (constantly m))
+                     (update-in [:mcp.prompts/static s] (constantly m))
+                     (update [:mcp.prompts/resources] (fnil merge merge {}) (extract-resources m)))))))
+
+(comment
+  (println @db*)
+  (-> @db* :mcp.prompts/registry (get "github-issues"))
+  (update-prompt {} "github-issues" (slurp "prompts/examples/github_issues.md")))
+
 (defn registry-refs
   "parse refs from the registry.yaml file - these are dynamic"
   [f]

src/jsonrpc/server.clj

@@ -117,12 +117,12 @@
   (logger/info "prompts/get " name)
   (let [{:keys [prompt-function description] :as m}
         (get
-          (->> @db*
-               :mcp.prompts/registry
-               vals
-               (mapcat :mcp/prompt-registry)
-               (into {}))
-          name)]
+         (->> @db*
+              :mcp.prompts/registry
+              vals
+              (mapcat :mcp/prompt-registry)
+              (into {}))
+         name)]
     {:description description
      :messages (prompt-function (or arguments {}))}))
 
@@ -377,6 +377,10 @@
                      :server server}]
      (swap! db* merge {:log-path log-path} (dissoc opts :in))
      ;; register static prompts
+     (doseq [[s content] (->> (fs/list-dir "/Users/slim/docker/labs-ai-tools-for-devs/prompts")
+                              (filter (fn [f] (= "md" (fs/extension f))))
+                              (map (fn [f] [(string/replace (fs/file-name (fs/file f)) #"\.md" "") (slurp (fs/file f))])))]
+       (db/update-prompt opts s content))
      (db/add-refs
       (concat
        (->> (:register opts)
@@ -392,15 +396,22 @@
                :volumes ["docker-prompts:/prompts"]
                :command ["-e" "create" "-e" "modify" "-e" "delete" "-q" "-m" "/prompts"]}
               (fn [line]
-                (logger/info "registry changed" line)
+                (logger/info "change event" line)
                 (let [[_dir _event f] (string/split line #"\s+")]
                   (when (= f "registry.yaml")
                     (try
                       (db/add-refs (logger/trace (into [] (db/registry-refs registry))))
                       (producer/publish-tool-list-changed producer {})
                       (producer/publish-prompt-list-changed producer {})
                       (catch Throwable t
-                        (logger/error t "unable to parse registry.yaml")))))))]
+                        (logger/error t "unable to parse registry.yaml"))))
+                  (when (string/ends-with? f ".md")
+                    (try
+                      (db/update-prompt opts (string/replace f #"\.md" "") (slurp (str "/prompts/" f)))
+                      (producer/publish-tool-list-changed producer {})
+                      (producer/publish-prompt-list-changed producer {})
+                      (catch Throwable t
+                        (logger/error t "unable to parse " f)))))))]
          (shutdown/schedule-container-shutdown
           (fn []
             (logger/info "inotifywait shutting down")