Protocol + client + multimethod

s3.clj

(ns stadig.storage.s3
  (:require
   [aws.sdk.s3 :as s3]
   [stadig.storage.protocol :as proto]))

(defrecord S3Storage
    [access-key secret-key]
  proto/IStorage
  (get [this bucket key]
    (s3/get-object this bucket key))
  (put [this bucket key value]
    (s3/put-object this bucket key value))
  (delete [this bucket key]
    (s3/delete-object this bucket key))
  (close [this]))

(defmethod proto/connect :s3
  [{:keys [access-key secret-key] :as options}]
  (->S3Storage access-key secret-key))