webapp: Added help buttons and links next to fields that require explanations.
This commit is contained in:
parent
98231b3248
commit
4f4209b833
14 changed files with 254 additions and 63 deletions
|
@ -27,9 +27,18 @@ textField = F.textField
|
|||
|]
|
||||
}
|
||||
|
||||
{- Also without required attribute. -}
|
||||
passwordField :: RenderMessage master FormMessage => Field sub master Text
|
||||
passwordField = F.passwordField
|
||||
{ fieldView = \theId name attrs val _isReq -> toWidget [hamlet|
|
||||
<input id="#{theId}" name="#{name}" *{attrs} type="password" value="#{either id id val}">
|
||||
|]
|
||||
}
|
||||
|
||||
{- Makes a note widget be displayed after a field. -}
|
||||
withNote :: RenderMessage master FormMessage => Field sub master a -> GWidget sub master () -> Field sub master a
|
||||
withNote field note = field { fieldView = newview }
|
||||
where
|
||||
newview theId name attrs val isReq =
|
||||
let fieldwidget = (fieldView field) theId name attrs val isReq
|
||||
in [whamlet|^{fieldwidget} <span>^{note}</span>|]
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue