[GD-2] Style the login form

src/Guide/Views/Utils.hs

@@ -393,7 +393,7 @@ protectForm :: MonadIO m
   -> GuideAction ctx (HtmlT m ())
 protectForm render formView = do
   (name, value) <- getCsrfTokenPair
-  return $ form formView "" $ do
+  return $ form formView "" [id_ "login-form"] $ do
     input_ [ type_ "hidden", name_ name, value_ value ]
     render formView
 

src/Guide/Views/Utils/Input.hs

@@ -152,12 +152,15 @@ label ref view = label_
     ref' = absoluteRef ref view
 
 
-form :: Monad m => View (HtmlT m ()) -> Text -> HtmlT m () -> HtmlT m ()
+form
-form view action = form_
+  :: Monad m
+  => View (HtmlT m ()) -> Text -> [Attribute] -> HtmlT m () -> HtmlT m ()
+form view action attributes = form_ $
     [ method_  "POST"
     , enctype_ (pack $ show $ viewEncType view)
     , action_  action
     ]
+    ++ attributes
 
 
 errorList :: Monad m => Text -> View (HtmlT m ()) -> HtmlT m ()

templates/css.widget

@@ -343,3 +343,29 @@ textarea.fullwidth {
 .markdown-supported {
   height: 1em;
 }
+
+#login-form {
+  margin: 0px auto;
+  width: 430px;
+  border: 1px solid gray;
+  border-radius: 4px;
+  padding: 40px 50px;
+  padding-bottom: 35px;
+  margin-top: 60px;
+  font-size: 120%;
+}
+
+#login-form > div {
+  margin-bottom: 25px;
+}
+
+#login-form [type='text'], #login-form [type='password'] {
+  float: right;
+  margin-top: -5px;
+  padding: 2px 3px;
+}
+
+#login-form [type='submit'] {
+  width: 100px;
+  margin-top: 10px;
+}