From 668f2d7e2ae2aadd0bd85acccc4500e8c1d87368 Mon Sep 17 00:00:00 2001
From: Clemens <clemens.geibel@meissa-gmbh.de.de>
Date: Fri, 28 Oct 2022 11:28:37 +0200
Subject: [PATCH] Added specs to functions

---
 src/main/cljc/dda/c4k_website/website.cljc | 31 ++++++++++++----------
 1 file changed, 17 insertions(+), 14 deletions(-)

diff --git a/src/main/cljc/dda/c4k_website/website.cljc b/src/main/cljc/dda/c4k_website/website.cljc
index d4842a4..0a154b2 100644
--- a/src/main/cljc/dda/c4k_website/website.cljc
+++ b/src/main/cljc/dda/c4k_website/website.cljc
@@ -43,35 +43,38 @@
 ; TODO: Review jem 2022/10/26: move default to core/default
 (def volume-size 3)
 
-; TODO: Review jem 2022/10/26: spec the following funktions?
-(defn replace-dots-by-minus
-  [fqdn]
+(defn-spec replace-dots-by-minus string?
+  [fqdn pred/fqdn-string?]
   (str/replace fqdn #"\." "-"))
 
-(defn generate-service-name
-  [unique-name]
+(defn-spec generate-service-name string?
+  [unique-name pred/fqdn-string?]
   (str (replace-dots-by-minus unique-name) "-service"))
 
-(defn generate-cert-name
-  [unique-name]
+(defn-spec generate-cert-name string?
+  [unique-name pred/fqdn-string?]
   (str (replace-dots-by-minus unique-name) "-cert"))
 
-(defn generate-http-ingress-name
-  [unique-name]
+(defn-spec generate-http-ingress-name string?
+  [unique-name pred/fqdn-string?]
   (str (replace-dots-by-minus unique-name) "-http-ingress"))
 
-(defn generate-https-ingress-name
-  [unique-name]
+(defn-spec generate-https-ingress-name string?
+  [unique-name pred/fqdn-string?]
   (str (replace-dots-by-minus unique-name) "-https-ingress"))
 
 ; https://your.gitea.host/api/v1/repos/<owner>/<repo>/archive/main.zip
-(defn make-gitrepourl 
-  [host repo user branch]
+(defn-spec make-gitrepourl string?
+  [host pred/fqdn-string?
+   repo string?
+   user string?
+   branch string?]
   (str "https://" host "/api/v1/repos/" user "/" repo "/archive/" branch ".zip"))
 
 ; ToDo: Move to common?
+; ToDo richtig spec-en
 (defn replace-all-matching-subvalues-in-string-start 
-  [col ;ToDo richtig spec-en
+  [col 
    value-to-partly-match
    value-to-inplace]
   (clojure.walk/postwalk #(if (and (= (type value-to-partly-match) (type %))