         tokens (pos/pos-tagger sent)
         total-time (- (js/Date.now) start-time)
         html-text (common/tokens->html tokens)]
-    (js/console.log html-text)
     {:sentence sent
      :tokens tokens
      :html html-text

   [:form
    [:div [:textarea {:id "input-text" :class "form-control"
                      :rows 3 :defaultValue (:sentence @state)}]]
    [:div [:button {:class "btn btn-primary" :on-click analyze} "Analyze"]]]
   [:div {:class "results"}
    [:div {:class "panel panel-default"}
     [:div {:class "panel-heading"}


(defonce state (r/atom (convert-sent init-sent)))

(defn analyze []
  (let [input (.-value (by-id "input-text"))
        new-state (convert-sent input)]
    (reset! state new-state)))

(defn update-sent [event]
  (.preventDefault event)
  (analyze))

(defn update-grammar-threshold [e]
  (js/console.log (.-target e))
  (let [value (.. e -currentTarget -value)]
    (reset! pos/grammar-threshold value)
    (analyze)))

(defn page []
  [:div
