Protocol + client + multimethod

main.clj

(ns stadig.main
  (:require
   [stadig.storage :as storage]))

(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 (storage/connect {:backend :s3
                                       :access-key access-key
                                       :secret-key secret-key})]
    (try
      ;; ... initialize some more things, or maybe just do stuff ...
      (finally
        (storage/close storage-conn)))))