upload-form.clj

(defn upload-form-file [node url method on-success]
  (.send goog.net.XhrIo "/log/upload"
         (fn [e]
           (on-success))
         "POST"
         (new js/FormData node)))


(defn upload [data owner]
  (reify
    om/IRender
    (render [this]
      (dom/div #js {:className "upload"}
       (dom/form #js {:encType "multipart/form-data"
                      :ref "fileUpload"}
                 (dom/input #js {:id "file"
                                 :name "file"
                                 :type "file"})
                 (dom/input #js {:value "upload"
                                 :type "submit"
                                 :onClick (fn [e]
                                            (.preventDefault e)
                                            (upload-form-file (om/get-node owner "fileUpload")
                                                              "/log/upload"
                                                              "POST"
                                                              #(om/transact! data :completed not)))})
                 )
       (dom/div {:className "indicator"} (str "yes" (:completed data) "yes")))
      )))