yogsototh/aggreact
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

A bit of HTML

Browse source
This commit is contained in:
Yann Esposito (Yogsototh) 2019-01-27 20:19:05 +01:00
parent 70754f81d7
commit acc732a31f
Signed by untrusted user who does not match committer: yogsototh
GPG key ID: 7B19A4C650D59646
2 changed files with 13 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Aggreact/Css.hs
View file

@ -145,6 +145,10 @@ genCss = do
backgroundColor base3 backgroundColor base3
cursor pointer cursor pointer
color base01 color base01
active & do
cursor pointer
backgroundColor solyellow
color white
button ? button ?
border solid (px 1) black border solid (px 1) black
input # ("type" |= "checkbox") ? input # ("type" |= "checkbox") ?

18
src/Aggreact/Html.hs
View file

@ -53,24 +53,24 @@ loginPage :: H.Html
loginPage = do loginPage = do
H.h2 "Login" H.h2 "Login"
H.form ! A.action "/login" ! A.method "post" $ do H.form ! A.action "/login" ! A.method "post" $ do
H.label (H.text "username") H.label ! A.for "username" $ H.text "username"
H.input ! A.name "username" H.input ! A.required "" ! A.placeholder "Enter Username" ! A.name "username"
H.br H.br
H.label (H.text "password") H.label ! A.for "password" $ H.text "password"
H.input ! A.type_ "password" ! A.name "password" H.input ! A.required "" ! A.placeholder "Enter Password" ! A.type_ "password" ! A.name "password"
H.br H.br
H.input ! A.type_ "submit" ! A.value "Login" H.input ! A.type_ "submit" ! A.value "Login"
H.hr H.hr
H.h2 "Create Account" H.h2 "Create Account"
H.form ! A.action "/users" ! A.method "post" $ do H.form ! A.action "/users" ! A.method "post" $ do
H.label (H.text "username") H.label ! A.for "username" $ H.text "username"
H.input ! A.name "username" H.input ! A.required "" ! A.placeholder "Enter Username" ! A.name "username"
H.br H.br
H.label (H.text "password") H.label ! A.for "password" $ H.text "password"
H.input ! A.type_ "password" ! A.name "password" H.input ! A.required "" ! A.placeholder "Enter Password" ! A.type_ "password" ! A.name "password"
H.br H.br
H.label (H.text "email?") H.label (H.text "email?")
H.input ! A.type_ "email" ! A.name "email" H.input ! A.type_ "email" ! A.placeholder "Enter Email" ! A.name "email"
H.br H.br
H.input ! A.type_ "submit" ! A.value "Create Account" H.input ! A.type_ "submit" ! A.value "Create Account"