 (defn github-menu-item [{:keys [github]}]
   [:li.mdl-menu__item {:on-click github} "GitHub"])
 
-(defn about-menu-item [{:keys [show-about-dialog]}]
+(defn about-menu-item [props]
   [:li.mdl-menu__item {:on-click show-about-dialog} "About"])
 
-(defn reset-menu-item [{:keys [show-reset-dialog]}]
+(defn reset-menu-item [props]
   [:li.mdl-menu__item {:on-click show-reset-dialog} "Reset REPL"])
 
 (defn home-page-menu [props]

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

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

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

(defn show-reset-dialog []
  (show-dialog "reset-dialog"))

(defn show-about-dialog []
  (show-dialog "about-dialog"))

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