                   (str "entry.1791240241=" pronunciation)
                   (if group "entry.628312063=YES,+this+is+a+group")
                   (str "entry.552838120=" submitter-name)
-                  (str "entry.681476151=" submitter-email)])]
+                  (str "entry.681476151=" submitter-email)
+                  (if renew-indefinitely "entry.1548017252=Yes,+please")])]
 
     [:a {:href custom-url} name-altar]
   ))

                    ; This may change as the form changes - even if the same kind of information remains
                    ; The way Svani is handling this now, we assume all currently visible names are being held
                    ; Retired names are sent to the archive sheet (this could be automated)
                    :range "Form Responses!A1:H"}) )
    ; values is the parsed version
    ; For now, we keep all the data - we can filter on the view
    ; We use rest to skip our header row

(s/def ::held-name-public string?)
(s/def ::procunciation-hints string?)
(s/def ::is-group-or-class boolean?)
(s/def ::renew-indefinitely boolean?)
; XXX This is copy-pasted validation. May need to examine to make sure it's good
(def email-regex #"^[a-zA-Z0-9._%+-]+@[a-zA-Z0-9.-]+\.[a-zA-Z]{2,63}$")
(s/def ::submitter-email (s/and string? #(re-matches email-regex %)))
