Remove warnings

Author: slimslenderslacks

gordon-mcp.yml

@@ -0,0 +1,12 @@
+services:
+  mcp_docker:
+    image: mcp/docker:latest
+    command: serve --mcp --register github:docker/labs-ai-tools-for-devs?path=prompts/bootstrap.md
+    volumes:
+      - /var/run/docker.sock:/var/run/docker.sock
+      - docker-prompts:/prompts
+    x-mcp-autoremove: false
+
+volumes:
+  docker-prompts:
+    external: true

src/jsonrpc/db.clj

@@ -45,8 +45,7 @@
   (add {:register ["github:docker/labs-ai-tools-for-devs?path=prompts/examples/explain_dockerfile.md"
                    "github:docker/labs-ai-tools-for-devs?path=prompts/examples/hello_world.md"]}))
 
-#_{:clj-kondo/ignore [:redefined-var]}
-(defn merge [{:keys [registry-content] :as opts}]
+(defn merge-dynamic-prompts [{:keys [registry-content] :as opts}]
   (logger/info "adding dynamic prompts" registry-content)
   (try
     (let [{:keys [registry]} (yaml/parse-string registry-content)

src/jsonrpc/server.clj

@@ -295,6 +295,7 @@
          log-path (logger/setup timbre-logger)
          db* db/db*
          log-ch (async/chan (async/sliding-buffer 20))
+         ;; server will start watching stdio/stdout immediately
          server (stdio-server
                  (merge
                   {;:keyword-function identity
@@ -320,7 +321,7 @@
            (logger/error t))))
      ;; register dynamic prompts
      (when (fs/exists? (fs/file "/prompts/registry.yaml"))
-       (db/merge (assoc opts :registry-content (slurp "/prompts/registry.yaml"))))
+       (db/merge-dynamic-prompts (assoc opts :registry-content (slurp "/prompts/registry.yaml"))))
      ;; watch dynamic prompts in background
      (async/thread
        (let [{x :container}
@@ -333,7 +334,7 @@
                 (let [[_dir _event f] (string/split line #"\s+")]
                   (when (= f "registry.yaml")
                     (try
-                      (db/merge (assoc opts :registry-content (slurp "/prompts/registry.yaml")))
+                      (db/merge-dynamic-prompts (assoc opts :registry-content (slurp "/prompts/registry.yaml")))
                       (producer/publish-tool-list-changed producer {})
                       (producer/publish-prompt-list-changed producer {})
                       (catch Throwable t
@@ -345,6 +346,7 @@
             (docker/delete x)))))
      (monitor-server-logs log-ch)
      (logger/info "Starting server...")
+     ;; only on lsp.server/start will the stdio channels start being used
      [producer (lsp.server/start server components)])))
 
 (comment

src/script.clj

@@ -1,7 +1,7 @@
 (ns script)
 
-(defmacro read [path]
+(defmacro read-script-at-compile-time [path]
   (slurp path))
 
 (comment
-  (macroexpand '(read "src/volumes/collect.clj")))
+  (macroexpand '(read-script-at-compile-time "src/volumes/collect.clj")))

src/volumes.clj

@@ -34,15 +34,15 @@
            :thread-id thread-id
            :command [(json/generate-string
                        {:directory "/thread"} keyword)
-                     (script/read "src/volumes/collect.clj")]})
+                     (script/read-script-at-compile-time "src/volumes/collect.clj")]})
         :pty-output
         (json/parse-string keyword))
     (catch Throwable t
       (logger/error t "error collecting mcp resources")
       {})))
 
 (comment
-  (script/read "src/volumes/collect.clj"))
+  (script/read-script-at-compile-time "src/volumes/collect.clj"))
 
 (comment
   (->
@@ -52,7 +52,7 @@
        :workdir "/project"
        :command [(json/generate-string
                    {:directory "/project"})
-                 (script/read "src/volumes/collect.clj")]})
+                 (script/read-script-at-compile-time "src/volumes/collect.clj")]})
     :pty-output
     #_(json/parse-string keyword)))