invoke authenticated google cloud function from clojure

invoke.clj

(ns yyyyyyyyyyaaaaaaaaaaa
  (:import
   (com.google.auth.oauth2 GoogleCredentials IdTokenCredentials))
  (:require
   [clj-http.client :as client]))

(def root "https://bang.a.run.app")

(defn get-access-token
  []
  (let [credentials (-> (IdTokenCredentials/newBuilder)
                        (.setIdTokenProvider (-> (GoogleCredentials/getApplicationDefault)
                                                 (.createScoped
                                                  ["https://www.googleapis.com/auth/cloud-platform"])))
                        (.setTargetAudience root)
                        .build)]
    (.refresh credentials)
    (.getTokenValue (.getIdToken credentials))))

(defn invoke
  [access-token path form-params]
  (:body (client/post (str root path)
                      {:as :json
                       :content-type :json
                       :form-params form-params
                       :headers {"Authorization" (str "bearer " access-token)}})))