向Yesod表單添加樣式

Question

我正在嘗試為Yesod使用身份驗證插件：yesod-auth-account。 它提供了一個默認形式，我希望為其添加一些引導程序/模板特定的樣式。 如果使用自定義表單，則必須重寫許多方法。

這是特別緊迫的，因為我想在不同的顯示上下文（在導航欄中，在注冊表單旁邊等）中重用該表單。

有任何想法嗎？

Answer 1

您可以包裝默認電子郵件AuthPlugin ：

authEmailCustom :: YesodAuthEmail m => AuthPlugin m
authEmailCustom =
    AuthPlugin "email" (apDispatch authEmail) $ \tm ->
        [whamlet|
<form method="post" action="@{tm loginR}">
    <input type="email" name="email">
    <input type="password" name="password">
    <input type="submit" value="submit">
    <a href="@{tm registerR}">I don't have an account
|]

只需替換您的樣式表即可。 然后使用它代替默認值：

instance YesodAuth App where
    ...
    authPlugins _ = [authEmailCustom]

希望這可以幫助。