s3-beam is a Clojure/Clojurescript library designed to help you upload files
from the browser to S3 (CORS upload). s3-beam can also upload files from the browser
to DigitalOcean Spaces.
[org.martinklepsch/s3-beam "0.6.0-alpha5"] ;; latest release
To upload files directly to S3 you need to send special request parameters that are based on your AWS credentials, the file name, mime type, date etc. Since we don't want to store our credentials in the client these parameters need to be generated on the server side. For this reason this library consists of two parts:
Please follow Amazon's official documentation.
For DigitalOcean Spaces, please follow DigitalOceans official documentation.
(ns your.server
(:require [s3-beam.handler :as s3b]
[compojure.core :refer [GET defroutes]]
[compojure.route :refer [resources]]))
(def bucket "your-bucket")
(def aws-zone "eu-west-1")
(def access-key "your-aws-access-key")
(def secret-key "your-aws-secret-key")
(defroutes routes
(resources "/")
(GET "/sign" {params :params} (s3b/s3-sign bucket aws-zone access-key secret-key)))
If you want to use a route different than /sign, define it in the
handler, (GET "/my-cool-route" ...), and then pass it in the options
map to s3-pipe in the frontend.
If you are serving your S3 bucket from DigitalOcean Spaces, with CloudFront, or another CDN/proxy, you can pass
upload-url as a fifth parameter to s3-sign, so that the ClojureScript client is directed
to upload through this bucket. You still need to pass the bucket name, as the policy that is
created and signed is based on the bucket name.
In your frontend code you can now use s3-beam.client/s3-pipe.
s3-pipe's argument is a channel where completed uploads will be
reported. The function returns a channel where you can put File
objects of a file map that should get uploaded. It can also take an
extra options map with the previously mentioned :server-url like so:
(s3/s3-pipe uploaded {:server-url "/my-cool-route"}) ; assuming s3-beam.client is NS aliased as s3
The full options map spec is:
:server-url the signing server url, defaults to "/sign":response-parser a function to process the signing response from the signing server into EDN
defaults to read-string.:key-fn a function used to generate the object key for the uploaded file on S3
defaults to nil, which means it will use the passed filename as the object key.:headers-fn a function used to create the headers for the GET request to the signing server.
The returned headers should be a Clojure map of header name Strings to corresponding
header value Strings.:progress-events? If set to true, it will push progress events to the channel during the transfer, false per default.If you choose to place a file map instead of a File object, you file map should follow:
:file A File object:identifier (optional) A variable used to uniquely identify this file upload.
This will be included in the response channel.:key (optional) The file-name parameter that is sent to the signing server. If a :key key
exists in the input-map it will be used instead of the key-fn as an object-key.:metadata (optional) Metadata for the object. See Amazon's API docs
for full details on which keys are supported. Keys and values can be strings or keywords.
N.B. Keys not on that list will not be accepted. If you want to set arbitrary metadata,
it needs to be prefixed with x-amz-meta-*.An example using it within an Om component:
(ns your.client
(:require [s3-beam.client :as s3]
...))
(defcomponent upload-form [app-state owner]
(init-state [_]
(let [uploaded (chan 20)]
{:dropped-queue (chan 20)
:upload-queue (s3/s3-pipe uploaded)
:uploaded uploaded
:uploads []}))
(did-mount [_]
(listen-file-drop js/document (om/get-state owner :dropped-queue))
(go (while true
(let [{:keys [dropped-queue upload-queue uploaded uploads]} (om/get-state owner)]
(let [[v ch] (alts! [dropped-queue uploaded])]
(cond
(= ch dropped-queue) (put! upload-queue v)
(= ch uploaded) (om/set-state! owner :uploads (conj uploads v))))))))
(render-state [this state]
; ....
)
The spec for the returned map (in the example above the returned map is v):
:type :success:file The File object from the uploaded file:response The upload response from S3 as a map with::location The S3 URL of the uploaded file:bucket The S3 bucket where the file is located:key The S3 key for the file:etag The etag for the file:xhr The XhrIo object used to POST to S3:identifier A value used to uniquely identify the uploaded fileOr, if an error occurs during upload processing, an error-map will be placed on the response channel:
:type :error:identifier A variable used to uniquely identify this file upload. This will be included in the response channel.:error-code The error code from the XHR:error-message The debug message from the error code:http-error-code The HTTP error codeIf :progress-events? are set to true, it will also forward those events from XhrIo:
:type :progress:file The File object from the uploaded file:bytes-sent Bytes uploaded:bytes-total Total file size in bytes:xhr The XhrIo object used to POST to S3:identifier A value used to uniquely identify the uploaded filesign-uploadAllow the upload-queue to be passed an input-map instead of a file. This input-map follows the spec:
:file A File object:identifier (optional) A variable used to uniquely identify this file upload.
This will be included in the response channel.:key (optional) The file-name parameter that is sent to the signing server. If a :key key
exists in the input-map it will be used instead of the key-fn as an object-key.Introduce error handling. When an error has been thrown while uploading a file to S3 an error-map will be put onto the channel. The error-map follows the spec:
:identifier A variable used to uniquely identify this file upload. This will be
included in the response channel.:error-code The error code from the XHR:error-message The debug message from the error code:http-error-code The HTTP error codeNew options are available in the options map:
:response-parser a function to process the signing response from the signing server into EDN
defaults to read-string.:key-fn a function used to generate the object key for the uploaded file on S3
defaults to nil, which means it will use the passed filename as the object key.:headers-fn a function used to create the headers for the GET request to the signing server.Places a map into the upload-channel with:
:file The File object from the uploaded file:response The upload response from S3 as a map with::location The S3 URL of the uploaded file:bucket The S3 bucket where the file is located:key The S3 key for the file:etag The etag for the file:xhr The XhrIo object used to POST to S3:identifier A value used to uniquely identify the uploaded fileSupport custom ACLs. The sign-upload function that can be used to
implement custom signing routes now supports an additional :acl key
to upload assets with a different ACL than public-read.
(sign-upload {:file-name "xyz.html" :mime-type "text/html"}
{:bucket bucket
:aws-zone aws-zone
:aws-access-key access-key
:aws-secret-key secret-key
:acl "authenticated-read"})
Changes the arity of s3-beam.handler/policy function.
Allow customization of server-side endpoint (1cb9b27)
(s3/s3-pipe uploaded {:server-url "/my-cool-route"})
aws-zone parameter to s3-sign handler function (b880736)Pull requests and issues are welcome. There are a few things I'd like to improve:
Martin Klepsch Daniel Compton
Copyright © 2014 Martin Klepsch
Distributed under the Eclipse Public License either version 1.0 or (at your option) any later version.
Can you improve this documentation? These fine people already did:
Martin Klepsch, Daniel Compton, www.getcontented.com.au, Johannes Barre, Andrea Maria Piana, Sebastian Bensusan, Ben Howell, Kenny Williams & JulianLevistonEdit on GitHub
cljdoc builds & hosts documentation for Clojure/Script libraries
| Ctrl+k | Jump to recent docs |
| ← | Move to previous article |
| → | Move to next article |
| Ctrl+/ | Jump to the search field |