                  (reset! hyphenation ""))
     :disabled (when (or (string/blank? @word)
                         (not (hyphenation-valid? @hyphenation))
-                        (= @hyphenation @official-hyphenation))
+                        (= @hyphenation @suggested-hyphenation))
                 "disabled")}
    "Add"])
 

    [:option {:value 0} "Old Spelling"]
    [:option {:value 1} "New Spelling"]]])

(defn new-hyphenation []
  [:div.form
   [spelling-filter]
   [word-field]
   [hyphenation-field]
   [hyphenation-add-button]])


    :spelling 1
    :word ""
    :hyphenation ""
    :suggested-hyphenation ""}))

(def spelling (reagent/cursor app-state [:spelling]))
(def word (reagent/cursor app-state [:word]))
(def hyphenation (reagent/cursor app-state [:hyphenation]))
(def suggested-hyphenation (reagent/cursor app-state [:suggested-hyphenation]))

(defn update-hyphenations! [f & args]
  (apply swap! app-state update-in [:hyphenations] f args))
