                :history-next      #(swap! state history-next)
                :more-columns      #(swap! state more-columns)
                :less-columns      #(swap! state less-columns)
-               :show-reset-dialog #(show-dialog "reset-dialog")
-               :show-about-dialog #(show-dialog "about-dialog")
                :github            #(set! (.-location js/window) "https://github.com/theasp/cljs-webrepl")
                :title-icon        "images/cljs-white.svg"
                :title             "Cljs-WebREPL"}]

    (when-not (.-showModal dialog)
      (.registerDialog js/dialogPolyfill dialog))
    (.showModal dialog)))

(defn pprint-str [data]
  (-> (with-out-str (fipp/pprint data))

     {:on-click #(close-dialog "about-dialog")}
     "Ok"]]])

(defn reset-repl-button [props]
  [:button.mdl-button.mdl-js-button.mdl-js-ripple-effect
   {:on-click show-reset-dialog
    :style    {:color "#fff"}}
