add first try for image build

.bashrc

@@ -0,0 +1,5 @@
+_bb_tasks() {
+    COMPREPLY=( $(compgen -W "$(bb tasks |tail -n +3 |cut -f1 -d ' ')" -- ${COMP_WORDS[COMP_CWORD]}) );
+}
+# autocomplete filenames as well
+complete -f -F _bb_tasks bb

bb.edn

@@ -1,5 +1,5 @@
 {:deps {dda/dda-devops-build {:local/root "."}}
  :tasks 
- {:requires ([dda.devops-build.main :as main])
+ {:requires ([dda.devops-build.image :as image])
-  image-build (apply main/build *command-line-args*)}}
+  image-build (image/dbuild {:name "myimage"})}}
 

src/main/clj/dda/devops_build/devops.clj

@@ -0,0 +1,12 @@
+(ns dda.devops-build.devops
+  (:require [clojure.spec.alpha :as s]))
+
+(s/def ::name string?)
+(s/def ::module string?)
+(s/def ::stage string?)
+(s/def ::project-root-path string?)
+(s/def ::build-dir-name string?)
+
+(s/def ::devops 
+  (s/keys :req-un [::name]
+          :opt-un [::module ::stage ::project-root-path ::build-dir-name]))

src/main/clj/dda/devops_build/image.clj

@@ -0,0 +1,28 @@
+(ns dda.devops-build.image
+  (:require [clojure.spec.alpha :as s]
+            [babashka.process :as p]
+            [babashka.tasks :as t]
+            [orchestra.core :refer [defn-spec]]
+            [dda.devops-build.devops :as d]))
+
+(s/def ::options (s/* #{"-h"}))
+(s/def ::cmd-args (s/cat :options ::options
+                         :args any?))
+
+(defn invalid-args-msg
+  [spec args]
+  (s/explain spec args)
+  (println (str "Bad commandline arguments\n")))
+
+(defn-spec 
+  dbuild any?
+  [devops ::d/devops]
+  (let [{:keys [name]} devops]
+      (t/shell "echo 'docker" "build" "-t" name "--file" "{path}/image/Dockerfile" "{path}/image")))
+
+(defn drun [& cmd-args]
+  (let [parsed-args-cmd (s/conform ::cmd-args cmd-args)]
+    (if (= ::s/invalid parsed-args-cmd)
+      (invalid-args-msg ::cmd-args cmd-args)
+      (-> (p/process "docker run" "-it" "{name}" "/bin/bash")
+          (p/check)))))

src/main/clj/dda/devops_build/main.clj

@@ -1,17 +0,0 @@
-(ns dda.devops-build.main)
-(require '[clojure.spec.alpha :as s])
-
-(s/def ::options (s/* #{"-h"}))
-(s/def ::cmd-args (s/cat :options ::options
-                         :args any?))
-
-(defn invalid-args-msg
-  [spec args]
-  (s/explain spec args)
-  (println (str "Bad commandline arguments\n")))
-
-(defn build [& cmd-args]
-  (let [parsed-args-cmd (s/conform ::cmd-args cmd-args)]
-    (if (= ::s/invalid parsed-args-cmd)
-      (invalid-args-msg ::cmd-args cmd-args)
-      (println parsed-args-cmd))))