           (.load js/gapi "client:auth2" #(init-client config-keys)) )
         #_(println keys-resp) )))
 
-
-(rum/defc hello-world < rum/reactive []
+(defn prefilled-link [{name-altar ::held-name-altar
+                       name-public ::held-name-public
+                       pronunciation ::procunciation-hints
+                       group ::is-group-or-class
+                       submitter-name ::submitter-name
+                       submitter-email ::submitter-email}]
+  ; Format into links like this:
+  ; https://docs.google.com/forms/d/e/1FAIpQLSc_FFrH7a_ClDmpAq36vA7gdUd1njmoEK0wfhRNaYcjfLox0w/viewform?usp=pp_url&entry.1145228181=name-for-altar&entry.2041965689=name-for-public&entry.1791240241=pronunciation-hints&entry.628312063=YES,+this+is+a+group&entry.552838120=your-name&entry.681476151=your-email 
+  ; https://docs.google.com/forms/d/e/1FAIpQLSc_FFrH7a_ClDmpAq36vA7gdUd1njmoEK0wfhRNaYcjfLox0w/viewform?usp=pp_url&entry.1145228181&entry.2041965689&entry.1791240241&entry.552838120&entry.681476151
+  (let [url-root 
+        "https://docs.google.com/forms/d/e/1FAIpQLSc_FFrH7a_ClDmpAq36vA7gdUd1njmoEK0wfhRNaYcjfLox0w/viewform?usp=pp_url"
+        custom-url
+        (join \& [ url-root
+                  (str "entry.1145228181=" name-altar)
+                  (str "entry.2041965689=" name-public)
+                  (str "entry.1791240241=" pronunciation)
+                  (if group "entry.628312063=YES,+this+is+a+group")
+                  (str "entry.552838120=" submitter-name)
+                  (str "entry.681476151=" submitter-email)])]
+
+    [:a {:href custom-url} name-altar]
+  ))
+
+(rum/defc scrape-it < rum/reactive []
   (let [curr-data (rum/react app-data)]
     [:div
       [:h2 "Wellness Scraper"]

               [: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:" 
                (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 "
                [: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:"]

               [: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."]

               ; Note that the \ is an escape character!
               [:p "/|\\"]
                ]))
     ]))

(rum/mount (hello-world)
           (. js/document (getElementById "app")))

(defn on-js-reload []

(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]
