gistfile1.txt

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

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

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