2026-01-22 clojure-europe | Clojure Slack Archive

clojure-europe

daveliepmann 2026-01-22T08:02:55.064129Z

guuuuuuuuuuuuuuuten morgen party people

🕺 7

🕺🏼 1

Dimitar Uzunov 2026-01-22T08:05:34.600069Z

morning

dharrigan 2026-01-22T08:29:44.139859Z

Good Morning!

teodorlu 2026-01-22T08:43:11.162309Z

moorning!

teodorlu 2026-01-22T08:49:38.813989Z

yet another lovely babashka experience this morning. We're running on Google Cloud, which is a constant source of novelty. That novelty is not always conducive to joy or productivity. But Babashka! Wrap the painful terminal magic stuff, return to the REPL. ☺️ Just like the Conj Babashka Clojure adoption talk (https://clojurians.slack.com/archives/C8NUSGWG6/p1769016178663559)

(gc "auth list")
;; => ({:account "", :status "ACTIVE"}
;;     {:account "", :status "ACTIVE"})

(see 🧵 for gc impl)

👍 1

teodorlu 2026-01-22T08:49:42.907799Z

(require '[babashka.process :as p]
         '[cheshire.core])

(defn vconcat [& args]
  (into [] cat args))

(defn coerce-tokenize [s-or-seq]
  (if (string? s-or-seq)
    (p/tokenize s-or-seq)
    (vec s-or-seq)))

(defn argparse-format-json
  ([args] (argparse-format-json {} args))
  ([opts args]
   {:args (vconcat ["gcloud" "--format=json"] (coerce-tokenize args))
    :opts (merge {:out :string :err :string} opts)}))

(defn gc "run gcloud, return Clojure map"
  ([args] (gc {} args))
  ([opts args]
   (let [{:keys [opts args]} (argparse-format-json opts args)]
     (-> (apply p/shell opts args)
         :out
         (cheshire.core/parse-string keyword)))))

teodorlu 2026-01-22T08:50:07.330679Z

funny side-effect of Alex Miller announcing in a really concise way is that it's way nicer to refer to it from other places.

daveliepmann 2026-01-22T09:01:46.584709Z

> a constant source of novelty lolcry

➕ 1

teodorlu 2026-01-22T09:03:36.305089Z

if we took "does it spark joy?" seriously, I fear it would not survive …

💯 1

🙈 1