                                :ns         ns
                                :expression expression}))))))
 
-(defn eval-input [props]
-  (let [state (:state props)]
-    (eval-str state (:input @state))))
-
-(defn history-prev* [{:keys [cursor history] :as state}]
+(defn history-prev [{:keys [cursor history] :as state}]
   (let [c          (count history)
         new-cursor (inc cursor)]
     (if (<= new-cursor c)

     [mdl/upgrade
      [:button.mdl-button.mdl-js-button.mdl-button--fab.mdl-js-ripple-effect.mdl-button--colored
       (merge (when is-blank? {:disabled true})
              {:on-click #(eval-input props)})
       [:i.material-icons "send"]]]]))




(defn init! []
  (mount-root))
