Remove auth container after it exits

Author: slimslenderslacks

dev/catalog.clj

@@ -1,8 +1,11 @@
 (ns catalog
   (:require
    [babashka.fs :as fs]
+   [cheshire.core :as json]
    [clj-yaml.core :as yaml]
    [clojure.edn :as edn]
+   [clojure.pprint :refer [pprint]]
+   [clojure.string :as string]
    [flatland.ordered.map :refer [ordered-map]]
    git
    [markdown :as markdown-parser]
@@ -60,6 +63,18 @@
   (generate-updated-catalog)
   ;; parse catalog
   (def catalog (yaml/parse-string (slurp "prompts/catalog.yaml")))
+  (string/join "," (->> (:registry catalog) keys (map name)))
+
+  ;; raw github urls to
+  (def prompt-refs
+    (->> catalog
+         :registry
+         vals
+         (map :ref)
+         (map #(git/parse-github-ref %))
+         (map #(format "https://raw.githubusercontent.com/%s/%s/refs/heads/%s/%s" (:owner %) (:repo %) (or (:ref %) "main") (:path %)))))
+
+  (->> prompt-refs (interpose "\n") (apply str) (println))
 
   ;; current git ref files
   (def local-prompt-files
@@ -70,25 +85,34 @@
          (map #(conj [%] (git/prompt-file %)))
          (into {})))
 
-  ;; parse all of the current git prompts
-  (with-redefs [#'client/get-mcp-tools-from-prompt (constantly [])]
+;; parse all of the current git prompts
+  (with-redefs [client/get-mcp-tools-from-prompt (constantly [])]
     (def all-prompt-files (map (fn [[k v]] [k (f->prompt v)]) local-prompt-files)))
 
+  (pprint (->> all-prompt-files
+               (map (fn [[k v]] [k (dissoc v :mcp/resources)]))
+               (into {})))
+  (spit "crap.json" (json/generate-string
+                     (->> all-prompt-files
+                          (map (fn [[k v]] [k (dissoc v :mcp/resources :mcp/prompt-registry)]))
+                          (into {}))
+                     {:pretty true}))
+
   (def all-images
     (->>
-      (concat
-        (->> (into {} all-prompt-files)
-             (vals)
-             (mapcat (comp :mcp :metadata))
-             (map (comp :image :container))
-             (into #{}))
-        (->> (into {} all-prompt-files)
-             (vals)
-             (mapcat :functions)
-             (map (comp :image :container :function))
-             (into #{})))
-      (into #{})
-      (sort)))
+     (concat
+      (->> (into {} all-prompt-files)
+           (vals)
+           (mapcat (comp :mcp :metadata))
+           (map (comp :image :container))
+           (into #{}))
+      (->> (into {} all-prompt-files)
+           (vals)
+           (mapcat :functions)
+           (map (comp :image :container :function))
+           (into #{})))
+     (into #{})
+     (sort)))
 
 ;;
   (markdown-parser/parse-markdown (slurp "prompts/examples/sequentialthinking.md")))

src/docker.clj

@@ -624,7 +624,7 @@
     (async/go
       (docker/wait x)
       (async/>! c :stopped)
-      #_(delete x))
+      (delete x))
     (async/go-loop
      [block (async/<! c)]
       (logger/info "background socket read loop " block)