SUCH ENTERPRISE MUCH JAVA

gistfile1.clj

(ns myns
  (:require
    [cats.core :as m]
    [cats.monad.either :as either])
  (:import
   [com.google.common.io Files]
   [org.jclouds ContextBuilder]
   [org.jclouds.io Payloads]
   [org.jclouds.rackspace.cloudfiles.v1 CloudFilesApi]))

(def cloud-files-api
  (-> (ContextBuilder/newBuilder "rackspace-cloudfiles-us")
      (.credentials username apikey)
      (.buildApi CloudFilesApi)))

(defn upload [bucket filename file]
  (try
    (let [object-api (.getObjectApi cloud-files-api "ORD" bucket)
          payload    (Payloads/newByteSourcePayload (Files/asByteSource file))]
      (either/right (.put object-api filename payload)))
    (catch Throwable t
      (either/left (server-error (str t))))))