Use metadata name for mcp servers

Author: slimslenderslacks

prompts/examples/explain_dockerfile.md

@@ -1,4 +1,5 @@
 ---
+name: explain_dockerfile
 description: |
     Provide a detailed description, analysis, or annotation of a given Dockerfile,
     explaining its structure and functionality.

src/jsonrpc/db.clj

@@ -13,11 +13,12 @@
 
 (defn add [opts]
   (logger/info "adding prompts" (:register opts))
-  (swap! db* update-in [:mcp.prompts/registry] 
-         (fnil assoc {}) 
-         #_(:register opts) 
-         "explain_dockerfile"
-         (get-prompt-data opts)))
+  (let [m (get-prompt-data opts)]
+    (swap! db* update-in [:mcp.prompts/registry] 
+           (fnil assoc {}) 
+           #_(:register opts) 
+           (or (-> m :metadata :name) (:register opts))
+           m)))
 
 (comment
   (add {:register "github:docker/labs-ai-tools-for-devs?path=prompts/examples/explain_dockerfile.md&ref=slim/server"}))

src/jsonrpc/server.clj

@@ -92,7 +92,9 @@
                 :hasMore false}})
 
 (defn entry->prompt-listing [k v m]
-  {:name (str k)})
+  (merge
+    {:name (str k)}
+    (select-keys m [:description])))
 
 (defmethod lsp.server/receive-request "prompts/list" [_ {:keys [db*]} params]
   ;; TODO might contain a cursor