meissa/c4k-jira
Archived
7
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

added hickory dep, started refactor for html

Browse source
This commit is contained in:
bom 2021-08-09 14:12:55 +02:00
parent 2804fd9b15
commit 1f77840be9
3 changed files with 68 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
project.clj
View file

@ -5,7 +5,8 @@
:url "https://www.apache.org/licenses/LICENSE-2.0.html"}
:dependencies [[org.clojure/clojure "1.10.3"]
[org.clojure/tools.reader "1.3.4"]
[org.domaindrivenarchitecture/c4k-common-clj "0.2.8"]]
[org.domaindrivenarchitecture/c4k-common-clj "0.2.8"]
[hickory "0.7.1"]]
:target-path "target/%s/"
:source-paths ["src/main/cljc"
"src/main/clj"]

3
shadow-cljs.edn
View file

@ -4,7 +4,8 @@
"src/test/cljc"
"src/test/cljs"
"src/test/resources"]
:dependencies [[org.domaindrivenarchitecture/c4k-common-cljs "0.2.8"]]
:dependencies [[org.domaindrivenarchitecture/c4k-common-cljs "0.2.8"]
[hickory "0.7.1"]]
:builds {:frontend {:target :browser
:modules {:main {:init-fn dda.c4k-jira.browser/init}}
:release {}

65
src/main/cljc/dda/c4k_jira/core.cljc
View file

@ -7,7 +7,10 @@
[dda.c4k-common.yaml :as yaml]
[dda.c4k-common.postgres :as postgres]
[dda.c4k-jira.jira :as jira]
[dda.c4k-jira.backup :as backup]))
[dda.c4k-jira.backup :as backup]
[clojure.zip :as zip]
[hickory.core :as hc]
[hickory.zip :as hz]))
(def config-defaults {:issuer :staging})
@ -19,6 +22,66 @@
::aws-access-key-id ::aws-secret-access-key
::restic-password]))
; START OF HTML EDIT REFACTOR
; TODO: Move this to somewhere in commons
(def htest (hz/hickory-zip (hc/as-hickory (hc/parse (clojure.core/slurp "public/index.html")))))
(defn-spec generate-feedback-tag map?
[id string?]
{:type :element :attrs {:class "invalid-feedback"} :tag :div :content [{:type :element :attrs {:id (str id "-validation")} :tag :pre :content "nil"}]})
(defn-spec generate-label map?
[id-for string?
label string?]
{:type :element :attrs {:for id-for :class "form-label"} :tag :label :content [label]})
(defn-spec generate-input-field vector?
[id string?
label string?
default-value string?]
[(generate-label id label)
{:type :element :attrs {:class "form-control" :type "text" :name id :value default-value} :tag :input :content "nil"}
(generate-feedback-tag id)])
(defn-spec generate-text-area vector?
[id string?
label string?
default-value string?
rows int?]
[(generate-label id label)
{:type :element :attrs {:name id :id id :class "form-control" :rows rows} :tag :textarea :content default-value}
(generate-feedback-tag id)])
; TODO: add br tags
; TODO: add generate button
; TODO: add output text-area
(defn generate-content
[]
(conj (generate-input-field "fqdn" "Your fqdn:" "jira-neu.prod.meissa-gmbh.de")
(generate-input-field "jira-data-volume-path" "(Optional) Your jira-data-volume-path:" "/var/jira")
(generate-input-field "postgres-data-volume-path" "(Optional) Your postgres-data-volume-path:" "/var/postgres")
(generate-input-field "restic-repository" "(Optional) Your restic-repository:" "restic-repository")
(generate-input-field "issuer" "(Optional) Your issuer prod/staging:" "")
(generate-text-area "auth" "Your auth.edn:" "{:postgres-db-user \" jira \"
:postgres-db-password \" jira-db-password \"
:aws-access-key-id \" aws-id \"
:aws-secret-access-key \" aws-secret \"
:restic-password \" restic-password \"}"
5)))
(defn find-map
[zipper]
(if (and (not (zip/end? zipper))
(map? (zip/node zipper))
(= (:class (:attrs (zip/node zipper))) "needs-validation"))
;replace instead of print later
(println (assoc (zip/node zipper) :content (generate-content)))
nil)
(find-map (zip/next zipper)))
; END REFACTOR
(defn k8s-objects [config]
(into
[]