diff --git a/src/Aggreact/Css.hs b/src/Aggreact/Css.hs
index d37d1de..cba8525 100644
--- a/src/Aggreact/Css.hs
+++ b/src/Aggreact/Css.hs
@@ -145,6 +145,10 @@ genCss = do
       backgroundColor base3
       cursor pointer
       color base01
+    active & do
+      cursor pointer
+      backgroundColor solyellow
+      color white
   button ?
     border solid (px 1) black
   input # ("type" |= "checkbox") ?
diff --git a/src/Aggreact/Html.hs b/src/Aggreact/Html.hs
index c44deae..11ce302 100644
--- a/src/Aggreact/Html.hs
+++ b/src/Aggreact/Html.hs
@@ -53,24 +53,24 @@ loginPage :: H.Html
 loginPage = do
   H.h2 "Login"
   H.form ! A.action "/login" ! A.method "post" $ do
-    H.label (H.text "username")
-    H.input ! A.name "username"
+    H.label ! A.for "username" $ H.text "username"
+    H.input ! A.required "" ! A.placeholder "Enter Username" ! A.name "username"
     H.br
-    H.label (H.text "password")
-    H.input ! A.type_ "password" ! A.name "password"
+    H.label ! A.for "password" $ H.text "password"
+    H.input ! A.required "" ! A.placeholder "Enter Password" ! A.type_ "password" ! A.name "password"
     H.br
     H.input ! A.type_ "submit" ! A.value "Login"
   H.hr
   H.h2 "Create Account"
   H.form ! A.action "/users" ! A.method "post" $ do
-    H.label (H.text "username")
-    H.input ! A.name "username"
+    H.label ! A.for "username" $ H.text "username"
+    H.input ! A.required "" ! A.placeholder "Enter Username" ! A.name "username"
     H.br
-    H.label (H.text "password")
-    H.input ! A.type_ "password" ! A.name "password"
+    H.label ! A.for "password" $ H.text "password"
+    H.input ! A.required "" ! A.placeholder "Enter Password" ! A.type_ "password" ! A.name "password"
     H.br
     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.input ! A.type_ "submit" ! A.value "Create Account"