    {:display-name        "scroll-on-update"
     :component-did-mount scroll
     :reagent-render      (fn [child] child)}))
-
-;; (defn highlight [node]
-;;   (let [node (r/dom-node node)]
-;;     (highlight/highlightBlock node)))
-
-;; (defn highlight-clojure [value]
-;;   (r/create-class
-;;    :display-name "highlight"
-;;    :component-did-mount highlight
-;;    :reagent-render (fn [value] [:code.clojure value])))
 
 (defn pprint-output
   [value]

        [:code [:pre output]]]
       [:hr.border]])
    [:div.card-data.result
     (cond
       (some? exception)
       [:code exception]

       :else
       [:code
        [:pre
         (syntaxify (with-out-str (pprint result)))]])]]])

      [history props]
      [input props]]]))

(defn mount-root []
  (r/render [home-page] (.getElementById js/document "app")))

