S3 Object Tagging with Amazonica

s3_object_tagging.clj

(require '[amazonica.aws.s3 :as s3])
(import '[com.amazonaws.services.s3.model Tag ObjectTagging])

(def bucket "bucket")
(def kkey "key")
(def file (clojure.java.io/file "file"))

(defn tags->tagging [tags]
  (->> tags
       clojure.walk/stringify-keys
       (map #(Tag. (-> % first .toString) (-> % last .toString)))
       (ObjectTagging.)))

(s3/put-object :bucket-name bucket :key kkey :file file :tagging (tags->tagging {:delete true :save false}))
(s3/get-object-tagging :bucket-name bucket :key kkey)
(s3/set-object-tagging :bucket-name bucket :key kkey :tagging (tags->tagging {:delete false :save true}))
(s3/delete-object-tagging :bucket-name bucket :key kkey)