     (if (= mode "default")
       [defn-form-content app-atom]
       [anothers-defn-form-content app-atom])))
-
-(defn xtra-info-form [app-atom]
-  [xtra-info-form-content app-atom])
 
 (defn definition [app-atom]
   (fn [app-atom]

     ;[xtra-info-form app-atom]
     (if (nil? (get @app-atom :defn-obj))
       [defn-form app-atom]
       [xtra-info-form app-atom])
     ]))

; (defn about-page []
;   [:div [:h2 "About whatishistory"]

                             (.preventDefault evt)
                             (save-xtra-info app-atom))} "Submit"]]]])

(defn anothers-xtra-info-form-content [app-atom]
  [:form {:class "anothersXtraInfoForm"}
   [:p "Your contribution is greatly appreciated. If you are willing, it would
          enrich the information being gathered here if you could provide some 
          additional contextual information."]
     [:div
      [:label {:for "profession"} "What is the author's profession?"]
      [:input {:type "text"
               :id "profession"
               :placeholder "Profession"
               :on-change (fn [evt]
                            (swap! app-atom assoc :profession evt.target.value))}]
      [:label {:for "country"} "Where was the auth when she/he penned this definition?"]
      [:select {:on-change (fn [evt]
                            (swap! app-atom assoc :definition evt.target.value))}
       (for [country js/window.countries]
         [:option {:key (hash country)} country])]
      [:div
       [:button {:class "button-primary submit"
                 :on-click (fn [evt]
                             (.preventDefault evt)
                             (save-xtra-info app-atom))} "Submit"]]]])

(defn defn-form [app-atom]
  (if (nil? (get @app-atom :defn-form-mode))
    (swap! app-atom assoc :defn-form-mode "default"))
