Cache github auth token

kepler16 · Oct 29, 2023 · e443251 · e443251
1 parent 912ebde
commit e443251
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/src/k16/kl/api/github.clj b/src/k16/kl/api/github.clj
@@ -6,9 +6,13 @@
 
 (set! *warn-on-reflection* true)
 
+(def ^:private cached-auth-token
+  (delay
+    (let [res (proc/sh ["gh" "auth" "token"])]
+      (-> res :out str/trim))))
+
 (defn- get-auth-token []
-  (let [res (proc/sh ["gh" "auth" "token"])]
-    (-> res :out str/trim)))
+  @cached-auth-token)
 
 (defn request [{:keys [path headers]}]
   (let [res