 
         (when-let [records (:sheet-data curr-data)]
           (for [[submitter-email name-records] (group-by ::submitter-email records)]
-            [
-              [:hr]
-              [:p submitter-email]
-               [:br] 
-               [:p "Dear " (::submitter-name (first name-records)) ","]
-
-               [:p "Our call for names for Wellbeing for August 2018 is out: http://center.transformativechange.org/?p=1883"]
-
-               [:p "Currently, the community is holding the following names on the altar "
-                   "in support of their wellbeing at your request. You can click "
-                   "directly on each name you would like to remain and get a pre-filled form. "
-                   "Please check each submission before clicking the submit button, and let Dav know "
-                   "if there is anything incorrect." 
-
-                (into [:ul {:id "content"}]
-                  ; We currently assume all visible data is "current"
-                  ; (filter #(s/includes? (aget % 0) "2017"))
-                  ; Each line is a list, this joins them in to one string
-                  (map #(vector :li (prefilled-link %)) name-records))
-                   
-                "New names may be submitted at "
-                [:a {:href blank-form} "this link"] 
-                ". If the above links don't work, you can copy-paste the form link into your browser:"]
-
-               [:p blank-form]
-
-               [:p [:em "As explained in the group email, it is traditional to offer Dana "
-                        "along with the submission of names. Here's "
-                        [:a {:href payment-link} "the link."]]]
-
-               [:p "If we do not hear from you, we will remove these names from the altar. J'ai mitra!"]
-
-               ; Note that the \ is an escape character!
-               [:p "/|\\"]
-                ]))
+            (email-text submitter-email name-records) ))
      ]))
 
 (rum/mount (scrape-it)

    [:a {:href custom-url} name-altar]
  ))

(rum/defc scrape-it < rum/reactive []
  (let [curr-data (rum/react app-data)]
    [:div

          (.load js/gapi "client:auth2" #(init-client config-keys)) )
        #_(println keys-resp) )))

; TODO - make this generic so it only adds the fields that are specified
(defn prefilled-link [{name-altar ::held-name-altar
                       name-public ::held-name-public
                       pronunciation ::procunciation-hints
