I can't believe I forgot how to do this part again!

Author: jwhitlark

.devcontainer/basic-k3s/devcontainer.json

@@ -21,7 +21,7 @@
 	// "forwardPorts": [],
 
 	// This should create the cluster on first run, then never again.
-	"onCreateCommand": "k3d cluster create --registry-create myregistry  > k3d_creation.log 2>&1",
+	"onCreateCommand": "k3d cluster create --registry-create myregistry 2>&1 | tee k3d_creation.log",
 	// Add the following to auto deploy manifests: --volume /tmp/test-manifests:/var/lib/rancher/k3s/server/manifests/test
 	// Uncomment the next line to run commands after the container is created.
 	// "postCreateCommand": "lein deps",

src/user.clj

@@ -1,4 +1,28 @@
 (ns user
  (:require [clojure.string :as str]
            [clojure.set :as set]
-           ))
+           [clojure.java.shell :refer [sh]]
+           [clojure.java.io :as io]
+           [kubernetes-api.core :as k8s]))
+
+(defn get-config []
+  (:out (sh "k3d" "kubeconfig" "get" "k3s-default")))
+
+(comment
+  (def cf (get-config))
+  (def api-server
+    (-> (re-seq #"server: (.*)" cf) first second str/trim))
+  (spit "ca.crt" (-> (re-seq #"certificate-authority-data: (.*)" cf) first second str/trim))
+  (spit "client-cert.pem" (-> (re-seq #"client-certificate-data: (.*)" cf) first second str/trim))
+  ;; This next one might need to be a java keystore
+  (spit "client.key" (-> (re-seq #"client-key-data: (.*)" cf) first second str/trim))
+
+  (def ca-path (.getAbsolutePath (io/file "ca.crt")))
+  (def client-cert-path (.getAbsolutePath (io/file "client-cert.pem")))
+  (def client-key-path (.getAbsolutePath (io/file "client.key")))
+
+  (def k8s (k8s/client api-server {:ca-cert     ca-path
+                                   :client-cert client-cert-path
+                                   :client-key  client-key-path}))
+  ;; end comment
+  )