     ret-chan))
 
 (defmethod blob->element :default [e] (println (str "unknown type " (.-type e))))
+;; }}}
 
 ;; =============================================================================
-;; Extend req to make it a little easier to deal with 
+;; {{{ Extend req to make it a little easier to deal with 
 (defprotocol IXHRReq
   (get-status [_])
   (u-okay-hun? [_])

            [dommy.core             :as dommy :include-macros true]    
            [hipo.core              :as hipo  :include-macros true]))

(defn put-close! [ch v]
  (do
    (async/put! ch v)
    (async/close! ch)))

;; =============================================================================
;; Multi method to turn a blob into an element
(defn img->iimage [img]
  (reify
    rp/IImage

                (cb (.-response xhr)))))
      (.send))))

;; }}}

;; =============================================================================
;; {{{ Crappy stab at seperating out loading into a channel
(defprotocol ILoader
  (load-blob! [_ file-name]))

