Plain Functions

An abstraction can be defined and implemented using only plain functions. In this case, the abstraction is not explicit in the code, but is based on using conventional names for definitions:

1 (ns stadig.storage.s3

2   (:refer-clojure :exclude [get])

3   (:require

4    [aws.sdk.s3 :as s3]))

5

6 (defn connect

7   [access-key secret-key]

8   {:access-key access-key :secret-key secret-key})

9

10 (defn get

11   [conn bucket key]

12   (when-not bucket

13     (throw (ex-info "Expected bucket" {:type ::bucket-error})))

14   (s3/get-object conn bucket key))

15

16 (defn put

17   [conn bucket key value]

18   (when-not bucket

19     (throw (ex-info "Expected bucket" {:type ::bucket-error})))

20   (s3/put-object conn bucket key value))

21

22 (defn...