                 (cb (.-response xhr)))))
       (.send))))
 
-(defn cb->chan
-  "Convert a callback function "
-  [ cb-fn ]
-  (let [ret-chan (chan )]
-    (do
-      (->>
-        (fn [ret-val] (put-close! ret-chan ret-val))
-        (cb-fn))
-      ret-chan))
-  )
+;; }}}
 
 ;; =============================================================================
-;; Crappy stab at seperating out loading into a channel
+;; {{{ Crappy stab at seperating out loading into a channel
 (defprotocol ILoader
   (load-blob! [_ file-name]))
 

      [0 0 (rp/width this) (rp/height this)])
    (img [_] el)))

(defn msg [v s]
  (println (str s "(" (type v) ")"))
  v)

(defn mk-resource-manager []
  (let [store (atom empty-store)]
    (println "TRYIN THIS!")
    (do
      (reify
        IResourceManagerInfo

          )
          ret-chan 
        ))))

;; }}}

;; =============================================================================
;; todo
