meissa/c4k-common
6
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

mob

Browse source
This commit is contained in:
bom 2021-11-05 15:16:04 +01:00
parent 370eb687c7
commit 86a191f45a
1 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/main/cljc/dda/c4k_common/postgres.cljc
View file

@ -2,6 +2,8 @@
(:require (:require
[clojure.spec.alpha :as s] [clojure.spec.alpha :as s]
#?(:cljs [shadow.resource :as rc]) #?(:cljs [shadow.resource :as rc])
#?(:clj [orchestra.core :refer [defn-spec]]
:cljs [orchestra.core :refer-macros [defn-spec]])
[dda.c4k-common.yaml :as yaml] [dda.c4k-common.yaml :as yaml]
[dda.c4k-common.base64 :as b64] [dda.c4k-common.base64 :as b64]
[dda.c4k-common.predicate :as cp] [dda.c4k-common.predicate :as cp]
@ -17,6 +19,8 @@
(s/def ::postgres-size postgres-size?) (s/def ::postgres-size postgres-size?)
(s/def ::db-name cp/bash-env-string?) (s/def ::db-name cp/bash-env-string?)
(def postgres-function (s/keys :opt-un [::deserializer ::optional]))
#?(:cljs #?(:cljs
(defmethod yaml/load-resource :postgres [resource-name] (defmethod yaml/load-resource :postgres [resource-name]
(case resource-name (case resource-name
@ -46,21 +50,23 @@
(yaml/from-string (yaml/load-resource "postgres/deployment.yaml")) (yaml/from-string (yaml/load-resource "postgres/deployment.yaml"))
(assoc-in [:spec :template :spec :containers 0 :image] postgres-image)))) (assoc-in [:spec :template :spec :containers 0 :image] postgres-image))))
(defn generate-persistent-volume [config] (defn-spec generate-persistent-volume cp/map-or-seq?
[config (s/keys :req-un [::postgres-data-volume-path])]
(let [{:keys [postgres-data-volume-path]} config] (let [{:keys [postgres-data-volume-path]} config]
(-> (->
(yaml/from-string (yaml/load-resource "postgres/persistent-volume.yaml")) (yaml/from-string (yaml/load-resource "postgres/persistent-volume.yaml"))
(assoc-in [:spec :hostPath :path] postgres-data-volume-path)))) (assoc-in [:spec :hostPath :path] postgres-data-volume-path))))
(defn generate-pvc [] (defn-spec generate-pvc cp/map-or-seq? []
(yaml/from-string (yaml/load-resource "postgres/pvc.yaml"))) (yaml/from-string (yaml/load-resource "postgres/pvc.yaml")))
(defn generate-secret [my-auth] (defn-spec generate-secret cp/map-or-seq?
[my-auth (s/keys :req-un [::postgres-db-user ::postgres-db-password])]
(let [{:keys [postgres-db-user postgres-db-password]} my-auth] (let [{:keys [postgres-db-user postgres-db-password]} my-auth]
(-> (->
(yaml/from-string (yaml/load-resource "postgres/secret.yaml")) (yaml/from-string (yaml/load-resource "postgres/secret.yaml"))
(cm/replace-key-value :postgres-user (b64/encode postgres-db-user)) (cm/replace-key-value :postgres-user (b64/encode postgres-db-user))
(cm/replace-key-value :postgres-password (b64/encode postgres-db-password))))) (cm/replace-key-value :postgres-password (b64/encode postgres-db-password)))))
(defn generate-service [] (defn-spec generate-service cp/map-or-seq? []
(yaml/from-string (yaml/load-resource "postgres/service.yaml"))) (yaml/from-string (yaml/load-resource "postgres/service.yaml")))