Protocol + client

main.clj

(ns stadig.main
  (:require
   [stadig.storage :as storage]
   [stadig.storage.s3 :refer [->S3Storage]]))

(defn -main
  [& args]
  ;; ... initialize some things ...
  (let [access-key (System/getenv "AWS_ACCESS_KEY_ID")
        secret-key (System/getenv "AWS_SECRET_ACCESS_KEY")
        storage-conn (->S3Storage access-key secret-key)]
    (try
      ;; ... initialize some more things, or maybe just do stuff ...
      (finally
        (storage/close storage-conn)))))