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:
- A pluggable route that will send back the required parameters for a given file-name & mime-type
- A client-side core.async pipeline setup that will retrieve the special parameters for a given File object, upload it to S3 and report back to you
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
AFile
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 withx-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
TheFile
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
TheXhrIo
object used to POST to S3:identifier
A value used to uniquely identify the uploaded file
Or, 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 code
If :progress-events?
are set to true
, it will also forward those events from XhrIo:
:type
:progress
:file
TheFile
object from the uploaded file:bytes-sent
Bytes uploaded:bytes-total
Total file size in bytes:xhr
TheXhrIo
object used to POST to S3:identifier
A value used to uniquely identify the uploaded file
- Add support for DigitalOcean Spaces (#44)
- Add support for progress events (#40)
- Add support for assigning metadata to files when uploading them. See the file-map spec above for more details. #37
- Tweak keys and parameters for communication between the client and server parts of the library. This is backwards and forwards compatible between clients and servers running 0.5.2 and 0.6.0-alpha1.
- Allow the user to upload to S3 through a custom URL as an extra parameter to
sign-upload
- Support bucket names with a '.' in them
- Add asserts that arguments are provided
-
Allow the upload-queue to be passed an input-map instead of a file. This input-map follows the spec:
:file
AFile
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 code
-
New 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
TheFile
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
TheXhrIo
object used to POST to S3:identifier
A value used to uniquely identify the uploaded file
-
Support 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 thanpublic-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.
- Correctly look up endpoints given a zone parameter (#10)
-
Allow customization of server-side endpoint (1cb9b27)
(s3/s3-pipe uploaded {:server-url "/my-cool-route"})
- Allow passing of
aws-zone
parameter tos3-sign
handler function (b880736)
Pull requests and issues are welcome. There are a few things I'd like to improve:
- Testing: currently there are no tests
- Error handling: what happens when the request fails?
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.