Move all files to root

2025-11-23 16:12:26 -06:00
parent c3e5976368
commit dfc621a9ff
61 changed files with 1 additions and 0 deletions
--- a/src/main/core.cljs
+++ b/src/main/core.cljs
@@ -0,0 +1,104 @@
+(ns core
+  (:require
+   ["@pulumi/pulumi" :as pulumi]
+   ["@pulumi/pulumi/automation" :as pulumi-auto]
+   ["child_process" :as cp]
+   [promesa.core :as p]
+   [base :as base]
+   [configs :refer [cfg]]))
+
+
+(def base-stack (clj->js  {:projectName "hetzner-k3s"
+                           :stackName "base"
+                           :workDir "/home/jaggar/dotfiles/iac"
+                           :program base/quick-deploy-base}))
+
+(def init-stack (clj->js  {:projectName "hetzner-k3s"
+                           :stackName "init"
+                           :workDir "/home/jaggar/dotfiles/iac"
+                           :program base/quick-deploy-init}))
+
+(def shared-platform-stack (clj->js  {:projectName "hetzner-k3s"
+                                      :stackName "shared"
+                                      :workDir "/home/jaggar/dotfiles/iac"
+                                      :program base/quick-deploy-shared}))
+
+(def prepare-deployment-stack (clj->js  {:projectName "hetzner-k3s"
+                                      :stackName "prepare"
+                                      :workDir "/home/jaggar/dotfiles/iac"
+                                      :program base/quick-deploy-prepare}))
+
+(def deployment-stack (clj->js  {:projectName "hetzner-k3s"
+                                 :stackName "deployment"
+                                 :workDir "/home/jaggar/dotfiles/iac"
+                                 :program base/quick-deploy-services}))
+
+(defn deploy-stack
+  ([stack-definition configs]
+   (deploy-stack stack-definition configs 0))
+
+  ([stack-definition configs post-delay]
+   (p/let
+    [stack (.createOrSelectStack pulumi-auto/LocalWorkspace stack-definition)
+     _     (p/doseq [config configs]
+             (.setConfig stack (:name config)  (clj->js (dissoc config :name))))
+     _     (.up stack #js {:onOutput println})
+     outputs (.outputs stack)
+     _     (p/delay post-delay)]
+     outputs)))
+
+(defn run []
+  (p/let [_ (println "Deploying cluster")
+          base-outputs (deploy-stack base-stack [{:name "hetzner-k3s:sshKeyName" :value (-> cfg :sshKeyName) :secret false}
+                                                 {:name "hetzner-k3s:sshPersonalKeyName" :value (-> cfg :sshPersonalKeyName) :secret false}
+                                                 {:name "hcloud:token" :value (-> cfg :hcloudToken) :secret true}
+                                                 {:name "hetzner-k3s:privateKeySsh" :value (-> cfg :privateKeySsh) :secret true}])
+
+          reused-configs [{:name "kubeconfig" :value (-> base-outputs (aget "kubeconfig") (.-value)) :secret true}]
+
+          init-outputs (deploy-stack init-stack reused-configs 1000)
+          port-forward (cp/spawn "kubectl"
+                                 #js ["port-forward"
+                                      "svc/openbao"
+                                      "8200:8200"
+                                      "-n"
+                                      "vault"])
+
+          reused-configs (conj reused-configs {:name "vault:token" :value (-> init-outputs (aget "vaultToken") (.-value)) :secret true})
+          reused-configs (conj reused-configs {:name "vault:address" :value (-> init-outputs (aget "vaultAddress") (.-value)) :secret true})
+
+          shared-outputs (deploy-stack shared-platform-stack 
+                                       (conj reused-configs {:name "hetzner-k3s:apiToken" :value (-> cfg :apiToken) :secret true})
+                                       1000)
+          prepare-outputs (deploy-stack prepare-deployment-stack reused-configs 3000)
+          deployment-outputs (deploy-stack deployment-stack reused-configs 2000)
+
+          _ (.kill port-forward)]
+    "All stacks deployed and cleaned up successfully."))
+
+
+(defn main! []
+  (-> (run)
+      (p/then #(println %))
+      (p/catch #(println "An error occurred:" %))))
+
+;; Checks for changes on the core and prevents deleting the app-stack needlessly.
+          ;; Important for the Openbao vault as it is deployed here and configured on the app-stack generally
+          ;;core-preview-result (.preview core-stack #js {:onOutput println})
+          ;;core-change-summary (js->clj (.-changeSummary core-preview-result) :keywordize-keys true)
+          #_core-result              #_(when (or (zero? (:delete core-change-summary 0))
+                                                 (pos? (:update core-change-summary 0))
+                                                 (pos? (:create core-change-summary 0)))
+                                         (.up core-stack #js {:onOutput println}))
+
+(defn config-core [stack kubeconfig vault-token vault-address]
+  (p/do
+    ;;(.setConfig stack "hetzner-k3s:sshKeyName" #js {:value (-> cfg :sshKeyName) :secret false})
+    ;;(.setConfig stack "hetzner-k3s:sshPersonalKeyName" #js {:value (-> cfg :sshPersonalKeyName) :secret false})
+    ;;(.setConfig stack "hetzner-k3s:privateKeySsh" #js {:value (-> cfg :privateKeySsh) :secret true})
+    (.setConfig stack "kubeconfig" #js {:value kubeconfig :secret true})
+    (.setConfig stack "vault:token" #js {:value vault-token :secret true})
+    ;;(.setConfig stack "hcloud:token" #js {:value (-> cfg :hcloudToken) :secret true})
+    (.setConfig stack "vault:address" #js {:value vault-address :secret true})
+    ;;(.setConfig stack "hetzner-k3s:apiToken" #js {:value (-> cfg :apiToken) :secret true})
+    ))