storage.clj

(ns inferno.storage
  (:import
   [com.google.cloud.storage BlobId]
   [com.google.cloud.storage BlobInfo]
   [com.google.cloud.storage StorageOptions]))

(set! *warn-on-reflection* true)

(defn storage [] (.getService (StorageOptions/getDefaultInstance)))

(def con (storage))

(defn upload! [^com.google.cloud.storage.Storage con bucket blob s]
  (let [blobId (. BlobId (of bucket blob))
        blobInfo (-> (BlobInfo/newBuilder blobId)
                     (.setContentType "text/plain")
                     (.build))
        data (.getBytes s "UTF-8")
        opts (into-array com.google.cloud.storage.Storage$BlobTargetOption [])]
    (.create con blobInfo data opts)))

(upload! con "inferno-8d188.appspot.com" "hey.txt" "Hello World!")