An on-ready handler for Hoplon pages; works but not the most elegant. (added .clj to filename to make gist syntax highlight)

onready.cljs.hl.clj

(page "onready.html")

(defn doc-ready-handler []
  ;; do some stuff after page is loaded and ready
  )

(defn on-ready [fn]
  (aset js/document
        "onreadystatechange"
        (fn []
          (let [ready-state (. js/document -readyState)]
            (when (= "complete" ready-state)
              (fn))))))

(html
 (head
  (on-ready doc-ready-handler))
 (body))