For explain_dockerfile, mount just the file we're analyzing

Author: slimslenderslacks

prompts/examples/explain_dockerfile.md

@@ -14,25 +14,25 @@ tools:
     parameters:
       type: object
       properties:
-        project:
-          type: string
-          description: absolute path in the project root
         path:
           type: string
           description: Path of the folder to delete
     container:
       image: vonwig/bash_alpine
       mounts: 
-        - "{{project|safe}}:/workdir:ro"
-      workdir: /workdir
+        - "{{path|safe}}:/dockerfile:ro"
       command:
-        - "cat {{path|safe}}"
+        - "cat /dockerfile"
 prompt-format: "django"
+arguments:
+  - name: path
+    description: path to the Dockerfile to explain
+    required: true
 ---
 
 # prompt user
 
-Start by fetching the ./Dockerfile in the project root at /Users/slim/docker/labs-ai-tools-for-devs.
+Start by fetching the Dockerfile located at /dockerfile.
 
 After fetching the Dockerfile contents, explain the Dockerfile line by line.
 

src/git.clj

@@ -71,8 +71,8 @@
                       (when ref [ref]))}
     (if (string/starts-with? (str dir) "/prompts")
       {:workdir (str dir)
-       :volumes ["docker-prompts-git:/git"]
-       :mounts ["docker-prompts:/prompts:rw"]}
+       :volumes ["docker-prompts-git:/git"
+                 "docker-prompts:/prompts:rw"]}
       {:host-dir (str dir)
        :volumes ["docker-prompts-git:/git"]}))))
 

src/script.clj

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

src/tools.clj

@@ -71,6 +71,10 @@
                                          {:mounts (->> (-> definition :container :mounts)
                                                        (map (fn [s] (first (interpolate arg-context s))))
                                                        (into []))})
+                                       (when (-> definition :container :volumes)
+                                         {:volumes (->> (-> definition :container :volumes)
+                                                        (map (fn [s] (first (interpolate arg-context s))))
+                                                        (into []))})
                                           ;; workdirs in a container definition will always override ones
                                           ;; set in the metadata
                                        (when-let [wd (or

src/volumes.clj

@@ -48,11 +48,11 @@
   (->
     (docker/run-container
       {:image "vonwig/bb:latest"
-       :volumes ["/Users/slim/slimslenderslacks/flask-nix-example:/project"]
+       :volumes ["/Users/slim:/project"]
        :workdir "/project"
        :command [(json/generate-string
-                   {:thread-id "blah"})
-                 "{}"]})
+                   {:directory "/project"})
+                 (script/read "src/volumes/collect.clj")]})
     :pty-output
-    (json/parse-string keyword)))
+    #_(json/parse-string keyword)))
 

src/volumes/collect.clj

@@ -3,6 +3,10 @@
   "pass in args"
   (def args {:directory "/Users/slim"}))
 
+(require '[clojure.java.io :as io])
+(require '[babashka.fs :as fs])
+(require '[cheshire.core :as json])
+
 (defn file->bytes [path]
   (with-open [in (io/input-stream path)
               out (java.io.ByteArrayOutputStream.)]