       [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

                (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
(defprotocol ILoader
  (load-blob! [_ file-name]))


          )
          ret-chan 
        ))))

;; }}}

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