git.gnu.io has moved to IP address 209.51.188.249 -- please double check where you are logging in.

Commit 2ec37b02 authored by Bryan Richter's avatar Bryan Richter

Clear up distinction between form and page

parent 524e6170
......@@ -117,14 +117,7 @@ getPHomeR handle = do
getCreateAccountR :: Handler Html
getCreateAccountR = do
(form, _) <- generateFormPost $ createUserForm Nothing
defaultLayoutNew "create-account" $ do
snowdriftTitle "Free the Commons"
[whamlet|
^{alphaRewriteNotice}
<form method=POST>
^{form}
<input type=submit>
|]
$(widget "page/create-account" "Free the Commons")
-- | Handles form posting for a user signing up.
postCreateAccountR :: Handler Html
......
<.auth>
^{extra}
<h1>Create account
<p>
By registering, you agree to Snowdrift.coop's (exceptionally ethical)
<a href=@{TermsR}>Terms&nbsp;of&nbsp;Use
and
<a href=@{PrivacyR}>Privacy&nbsp;Policy</a>.
#{extra}
<label for=#{fvId identView}>Account name (private, used for logging in):
^{fvInput identView}
<label for=#{fvId identView}>Account name (private, used for logging in):
^{fvInput identView}
<label for=#{fvId passph1View}>Passphrase:
^{fvInput passph1View}
<label for=#{fvId passph1View}>Passphrase:
^{fvInput passph1View}
<label for=#{fvId passph2View}>Repeat passphrase:
^{fvInput passph2View}
<label for=#{fvId passph2View}>Repeat passphrase:
^{fvInput passph2View}
<label for=#{fvId nameView}>Name (public, optional):
^{fvInput nameView}
<label for=#{fvId nameView}>Name (public, optional):
^{fvInput nameView}
<label for=#{fvId emailView}>Email (private, optional):
^{fvInput emailView}
<label for=#{fvId emailView}>Email (private, optional):
^{fvInput emailView}
<label for=#{fvId avatarView}>Avatar (link, optional):
^{fvInput avatarView}
<label for=#{fvId avatarView}>Avatar (link, optional):
^{fvInput avatarView}
<label for=#{fvId nickView}>IRC Nick (irc.freenode.net, optional):
^{fvInput nickView}
<button .bigbutton type=submit>
Submit
<label for=#{fvId nickView}>IRC Nick (irc.freenode.net, optional):
^{fvInput nickView}
<h1>Create account
<p>
By registering, you agree to Snowdrift.coop's (exceptionally ethical)
<a href=@{TermsR}>Terms&nbsp;of&nbsp;Use
and
<a href=@{PrivacyR}>Privacy&nbsp;Policy</a>.
<form method=POST>
^{form}
<button .bigbutton type=submit>
Submit
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment