Delete Base
This commit is contained in:
@@ -1,66 +0,0 @@
|
|||||||
(ns base
|
|
||||||
(:require
|
|
||||||
["@pulumi/pulumi" :as pulumi]
|
|
||||||
["@pulumi/vault" :as vault]
|
|
||||||
["@pulumiverse/harbor" :as harbor]
|
|
||||||
["@pulumi/kubernetes" :as k8s]
|
|
||||||
[utils.general :as general]
|
|
||||||
[utils.providers :refer [provider-apply]]
|
|
||||||
[infra.init :as infra]
|
|
||||||
[service-registries :refer [base-resources-definition initialize-resources-definition shared-resources-definition preparation-resources-definition deployment-resources-definition]]
|
|
||||||
)
|
|
||||||
(:require-macros [utils.general :refer [p->]]))
|
|
||||||
|
|
||||||
|
|
||||||
(defn extended-exports [init]
|
|
||||||
(let [;;exports (base.build-exports init)
|
|
||||||
app-outputs (get init :setup)]
|
|
||||||
#_(assoc exports :nextcloudUrl (.apply app-outputs #(get-in % [:nextcloud :nextcloud-url])))))
|
|
||||||
|
|
||||||
(defn mod-apps [pulumi-cfg resource-configs]
|
|
||||||
"Scans the registry, builds all needed providers, and calls deploy."
|
|
||||||
(provider-apply resource-configs pulumi-cfg))
|
|
||||||
|
|
||||||
|
|
||||||
(defn mod-init [configs]
|
|
||||||
(let [pulumi-cfg (pulumi/Config.)]
|
|
||||||
(mod-apps pulumi-cfg configs)))
|
|
||||||
|
|
||||||
(defn mod-quick-deploy [configs exports]
|
|
||||||
(->
|
|
||||||
(mod-init configs)
|
|
||||||
(exports)
|
|
||||||
(clj->js)))
|
|
||||||
|
|
||||||
(defn quick-deploy-base []
|
|
||||||
(base/mod-quick-deploy
|
|
||||||
base-resources-definition
|
|
||||||
(fn [init]
|
|
||||||
(let [kcfg (p-> init .-cluster "generic:execute" .-kubeconfig)]
|
|
||||||
#js {:kubeconfig kcfg}))))
|
|
||||||
|
|
||||||
(defn quick-deploy-init []
|
|
||||||
(base/mod-quick-deploy
|
|
||||||
initialize-resources-definition
|
|
||||||
(fn [init]
|
|
||||||
(let [vaultToken (p-> init .-openbao "generic:execute" "root-token")
|
|
||||||
vaultAddress (p-> init .-openbao "generic:execute" .-address)]
|
|
||||||
#js {:vaultAddress vaultAddress
|
|
||||||
:vaultToken vaultToken}))))
|
|
||||||
|
|
||||||
(defn quick-deploy-shared []
|
|
||||||
(base/mod-quick-deploy
|
|
||||||
shared-resources-definition
|
|
||||||
(fn [init]
|
|
||||||
(let [secrets (p-> init .-harbor "vault:prepare" "stringData")]
|
|
||||||
{:url (p-> secrets .-host #(str "https://" %))
|
|
||||||
:username (p-> secrets .-username)
|
|
||||||
:password (p-> secrets .-password)}))))
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
(defn quick-deploy-prepare []
|
|
||||||
(base/mod-quick-deploy preparation-resources-definition extended-exports))
|
|
||||||
|
|
||||||
(defn quick-deploy-services []
|
|
||||||
(base/mod-quick-deploy deployment-resources-definition extended-exports))
|
|
||||||
Reference in New Issue
Block a user