              :on-change (fn [evt]
                           (swap! app-atom assoc :email-confirm evt.target.value))}]
     [:span {:class "emailConfirm"}
-     (if (email-confirmed (get @app-atom :email) (get @app-atom :email-confirm)) 
+     (if (email-confirmed app-atom) 
        [:span {:class "check"} "\u2714"]
        [:span {:class "x-mark"} "\u2718"])]
     [:textarea {:class "defnInput twelve columns"

      (swap! app-atom assoc :curr-user curr-user))
    (js/console.log "user: " (get @app-atom :curr-user))))

(defn save-defn [app-atom]
  (let [Definition (js/Parse.Object.extend "Definition")
        new-defn (Definition.)]
    (.setACL new-defn (js/Parse.ACL. (.current js/Parse.User)))
    (def new-defn-promise (.save new-defn #js {
                         :definedby (get @app-atom :curr-user)
                         :definition (get @app-atom :definition)
                         :author (condp = (get @app-atom :author)
                                   nil "Anonymous"
                                   ""  "Anonymous"
                                   (get @app-atom :author))
                         :email (get @app-atom :email)
                         :definitionSubject "history"
                         :mehuman "1"}))
    (.then new-defn-promise (fn [defn]
                              (js/console.log "definition saved: " defn)
                              (swap! app-atom assoc :defn-obj defn)))
    (.fail new-defn-promise #(js/alert "Something went wrong :/. Please try again."))))


(defn save-xtra-info [app-atom]

        (.then save-defn-promise #(js/console.log "saved xtra data"))
        (.fail save-defn-promise (fn [err]
                                 (js/console.error err)))))))

(defn get-defn [idx]
  (js/Parse.Cloud.run
   "getDefn"
