gistfile1.txt

(require '[reagent.core :as r])

(defn i []
  (let [dims (r/atom {})
        this (atom nil)
        resized? (atom nil)]
    (fn [][:div
           [:img {:src "http://www.lispcast.com/img/pre-conj/rich-hickey.jpeg"
                  :ref (fn [x] (reset! this x))
                  :on-load
                  (fn [x]
                    (when-not @resized?
                      (reset! dims {:width (.-width @this)
                                    :height (.-height @this)})
                      (set! (.-width (.-style @this)) "100%")))}]
           [:div (pr-str @dims)]])))

(r/render-component [i]
                    (js/document.getElementById "klipse-container"))