Add server level config parameters to tool/run context

Author: slimslenderslacks

src/jsonrpc/db.clj

@@ -119,10 +119,19 @@
                      (update-in [:mcp.prompts/static s] (constantly m))
                      (update [:mcp.prompts/resources] (fnil 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- has-function? [s]
+  (fn [m]
+    (some #(= s (-> % :function :name)) (:functions m))))
+
+(defn parameter-values
+  "extract parameter values from metadata for the tile"
+  [function-name]
+  (->> (:mcp.prompts/registry @db*)
+       (vals)
+       (filter (has-function? function-name))
+       (first)
+       :metadata
+       :parameter-values))
 
 ;; the registry.yaml file is a list of refs selected from our catalog
 (defn registry-refs
@@ -136,15 +145,21 @@
 
 (comment
   (repl/setup-stdout-logger)
+  (println @db*)
+  (-> @db* :mcp.prompts/registry (get "github-issues"))
+  (update-prompt {} "github-issues" (slurp "prompts/examples/github_issues.md"))
   ; in /$HOME/registry.yaml
   (git/collect-unique-cache-dirs
-    (git-cache-refs
-      (registry-refs prompts.core/registry)))
-  
+   (git-cache-refs
+    (registry-refs prompts.core/registry)))
+
   ; prompts will come from prompts-cache
   ;   /prompts or $HOME/.prompts-cache
   (git/hashch {:owner "docker" :repo "labs-ai-tools-for-devs" :ref "slim/config"})
   (add-refs (registry-refs prompts.core/registry))
   (-> @db*
       :mcp.prompts/registry
-      pprint))
+      vals
+      pprint)
+  (parameter-values "read_file"))
+

src/jsonrpc/server.clj

@@ -204,9 +204,9 @@
     ;; messages
     [{:type "text"
       :text (->>
-              tool-outputs
-              (map :content)
-              (apply str))}]
+             tool-outputs
+             (map :content)
+             (apply str))}]
     ;; tool call responses
     (->> tool-outputs
          (mapcat (comp :content :result))
@@ -236,7 +236,14 @@
                            ;; tool calls are functions, which are arguments,name maps, and ids
                            ;; mcp tool call params are also maps of name, and arguments
                            ;; TODO add the config parameters for just the registry entry that defines the tool
-                           [{:function (update params :arguments (fn [arguments] (json/generate-string arguments))) :id "1"}])
+                           [{:function (update
+                                        params :arguments
+                                        (fn [arguments]
+                                          (logger/trace
+                                            (-> arguments
+                                                (merge (db/parameter-values (:name params)))
+                                                (json/generate-string)))))
+                             :id "1"}])
                           (async/reduce conj [])
                           (async/<!!))]
      ;; TODO with mcp, tool-calls with errors are still jsonrpc results
@@ -316,10 +323,10 @@
   ;; add dynamic refs from prompts volume
   (db/add-refs
    (concat (->> (:register opts)
-         (map (fn [ref] {:type :static :ref ref})))
+                (map (fn [ref] {:type :static :ref ref})))
          ;; register dynamic prompts
-    (when (fs/exists? (fs/file registry))
-      (db/registry-refs registry)))))
+           (when (fs/exists? (fs/file registry))
+             (db/registry-refs registry)))))
 
 (defn server-context
   "create chan server options for any io chan server that we build"

src/prompts.clj

@@ -19,6 +19,7 @@
    [pogonos.core :as stache]
    [pogonos.partials :as partials]
    [registry]
+   repl
    schema
    [selmer.parser :as selmer]))
 
@@ -220,9 +221,12 @@
   (get-prompts {:prompts (fs/file "./prompts/mcp/stripe.md")}))
 
 (comment
+  (repl/setup-stdout-logger)
   (get-prompts {:prompts (fs/file "./prompts/examples/curl.md")})
   (get-prompts {:prompts (fs/file "./prompts/examples/generate-dockerfile.md")})
   (get-prompts {:prompts (fs/file "./README.md")})
+  (get-prompts {:prompts (fs/file "./prompts/mcp/postgres.md")})
+  (get-prompts {:prompts (fs/file "./prompts/mcp/postgresql.md")})
   (=
    ((:prompt-function (get-prompts {:prompts (fs/file "./prompts/examples/qrencode.md")})) {:content "mycontent"})
    [{:role "user",