       [history props]
       [input props]]]))
 
-;; -------------------------
-;; Initialize app
-
 (defn mount-root []
   (r/render [home-page] (.getElementById js/document "app")))
 

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

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

   {:display-name        "scroll-on-update"
    :component-did-mount scroll
    :reagent-render      (fn [child] child)}))

(defn pprint-output
  [value]
