      [:div.flex-h
       [repl-input props]
       [run-button props]]]]])
-
-(defn input-ok? [{:keys [history]}]
-  (or (= (count history) 0)
-      (some? (-> history last second :result))))
 
 
 (defn history [props]

         :cursor 0
         :input ""))

(defn eval-input [state]
  (let [expression (str/trim (:input @state))]
    (when-not (str/blank? expression)
      (eval-str! expression)
      (swap! state assoc :ready? false :input "" :cursor 0))))

        "Copy Output"])
     [clipboard
      [:li.mdl-menu__item
       {:data-clipboard-text (pr-str (:value result))}
       "Copy Result"]]]]])

(defn history-card-expression [props ns expression]
  [:div.mdl-card__title
   [:div
    [:code.CodeMirror-lines (str ns "=>")]]
   [:div
    [editor/code expression]]])

(defn history-card-output [props output]
  [:div
