From cb94861bd08c3f3be155d0a7e16498dc4d5238b4 Mon Sep 17 00:00:00 2001
From: Clemens Geibel <clemens.geibel@meissa-gmbh.de>
Date: Fri, 12 Aug 2022 10:59:40 +0200
Subject: [PATCH] Added volume-total-storage-size to browser.cljs

---
 src/main/cljs/dda/c4k_gitea/browser.cljs | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/src/main/cljs/dda/c4k_gitea/browser.cljs b/src/main/cljs/dda/c4k_gitea/browser.cljs
index 361121a..d0e6f4c 100644
--- a/src/main/cljs/dda/c4k_gitea/browser.cljs
+++ b/src/main/cljs/dda/c4k_gitea/browser.cljs
@@ -40,6 +40,7 @@
       (generate-group
        "provider"
        (cm/concat-vec
+        (br/generate-input-field "volume-total-storage-size" "Your gitea volume-total-storage-size:" "20")
         (br/generate-input-field "postgres-data-volume-path" "(Optional) Your postgres-data-volume-path if Persistent Volumes are not generated by an Operator:" "")))
       (generate-group
        "credentials"
@@ -67,7 +68,12 @@
         app-name (br/get-content-from-element "app-name" :optional true)
         domain-whitelist (br/get-content-from-element "domain-whitelist" :optional true)]
     (merge
-     {:fqdn (br/get-content-from-element "fqdn")}
+     {:fqdn (br/get-content-from-element "fqdn")
+      ;:mailer-from (br/get-content-from-element "mailer-from")
+      ;:mailer-host-port (br/get-content-from-element "mailer-host-port")
+      ;:service-noreply-address (br/get-content-from-element "service-noreply-address")
+      ;:volume-total-storage-size (br/get-content-from-element "volume-total-storage-size" :deserializer #(read-string %))} ; TODO: Do not use read-string!
+     }
      (when (not (st/blank? postgres-data-volume-path))
        {:postgres-data-volume-path postgres-data-volume-path})
      (when (not (st/blank? issuer))
@@ -87,6 +93,7 @@
   (br/validate! "app-name" ::gitea/default-app-name :optional true)
   (br/validate! "domain-whitelist" ::gitea/service-domain-whitelist :optional true)
   (br/validate! "postgres-data-volume-path" ::pgc/postgres-data-volume-path :optional true)
+  (br/validate! "volume-total-storage-size" ::gitea/volume-total-storage-size)
   (br/validate! "auth" gitea/auth? :deserializer edn/read-string)
   (br/set-form-validated!))
 
@@ -106,7 +113,7 @@
                                    (br/get-content-from-element "auth" :deserializer edn/read-string)
                                    gitea/config-defaults
                                    core/k8s-objects)
-                                  (br/set-output!)))))
+                               (br/set-output!)))))
   (add-validate-listener "fqdn")
   (add-validate-listener "mailer-from")
   (add-validate-listener "mailer-host-port")
@@ -114,5 +121,6 @@
   (add-validate-listener "app-name")
   (add-validate-listener "domain-whitelist")
   (add-validate-listener "postgres-data-volume-path")
+  (add-validate-listener "volume-total-storage-size")
   (add-validate-listener "issuer")
   (add-validate-listener "auth"))
\ No newline at end of file