(defn
refresh-instarepl!
"Refreshes the InstaREPL."
[instarepl content compiler-fn]
(let
[elems
(ir/get-collections content)
locations
(ir/elems->locations elems (.-offsetTop instarepl))
forms
(->>
elems
(map ir/collection->content)
(map (fn* [p1__18515#] (replace p1__18515# \ " "))))]
(compiler-fn
forms
(fn
[results]
(when
(.-parentElement instarepl)
(set!
(.-innerHTML instarepl)
(ir/results->html results locations)))))))