                [:p "Dear " (::submitter-name (first name-records)) ","]
                
                [:p "Currently, the community is holding the following names on the altar "
-                   "in support of their wellbeing at your request:" 
+                   "in support of their wellbeing at your request. This month, 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 (::held-name-altar %)) name-records)) 
-                
-                "Please let us know if these names should remain, along with any other names "
-                "you'd like added by (re-)submitting names at "
+                  ; (map #(vector :li (::held-name-altar %)) name-records)) 
+                  (map #(vector :li (prefilled-link %)) name-records))
+                   
+                "New names may be submitted at "
                 [:a {:href "https://docs.google.com/forms/d/e/1FAIpQLSc_FFrH7a_ClDmpAq36vA7gdUd1njmoEK0wfhRNaYcjfLox0w/viewform"}
-                "this link"] ". If that link doesn't work, you can copy-paste it into your browser:"]
+                "this link"] ". If the above links don't work, you can copy-paste the form link into your browser:"]
 
                [:p "https://docs.google.com/forms/d/e/1FAIpQLSc_FFrH7a_ClDmpAq36vA7gdUd1njmoEK0wfhRNaYcjfLox0w/viewform"]
 
-               [:p "If we do not hear from you, we will assume they are doing better and "
-                "remove them from the altar."]
+               [:p "If we do not hear from you, we will remove these names from the altar. Jai mitra!"]
 
                ; Note that the \ is an escape character!
                [:p "/|\\"]
                 ]))
      ]))
 
-(rum/mount (hello-world)
+(rum/mount (scrape-it)
            (. js/document (getElementById "app")))
 
 (defn on-js-reload []

                 ::submitter-email ::submitter-name]
           :opt [::procunciation-hints]))

(defn row-to-held-person [[timestamp name-for-altar _ pronunciation your-name your-email is-group? name-public]]
  (merge
    ; Our required fields
    {::when-submitted (fmt/parse goog-datetime timestamp)
     ::held-name-altar (trim name-for-altar)
     ::held-name-public (if (empty? name-public) (first (split name-for-altar #"\s+")) name-public) 
     ; We could make this more robust - but should be fine for now
     ::is-group-or-class (and (not (nil? is-group?)) (starts-with? is-group? "YES"))
     ; ::is-group-or-class is-group?
     ::submitter-email your-email
     ::submitter-name your-name}
    ; And the optional field
    (when-not (empty? pronunciation) {::procunciation-hints pronunciation}) ))

(defn get-wellbeing-data []
  (->

(ns scrape-n-mail.core
    (:require [rum.core :as rum]
              [cljs-http.client :as http]
              [clojure.string :refer [join split starts-with? trim lower-case]]
              [cljs-time.format :as fmt]
              ; dt is for datetime
              [cljs-time.core :as dt]
