Protocol + client + multimethod

storage.clj

(ns stadig.storage
  (:refer-clojure :exclude [get])
  (:require
   [stadig.storage.azure]
   [stadig.storage.cloudfiles]
   [stadig.storage.protocol :as proto]
   [stadig.storage.s3]))

(defn connect
  [options]
  (proto/connect options))

(defn get
  [conn bucket key]
  (when-not bucket
    (throw (ex-info "Expected bucket" {:type ::bucket-error})))
  (proto/get conn bucket key))

(defn put
  [conn bucket key value]
  (when-not bucket
    (throw (ex-info "Expected bucket" {:type ::bucket-error})))
  (proto/put conn bucket key value))

(defn delete
  [conn bucket key]
  (when-not bucket
    (throw (ex-info "Expected bucket" {:type ::bucket-error})))
  (proto/delete conn bucket key))

(defn close
  [conn]
  (proto/close conn))