haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Bootstrap friendly radio markup (#394)

Browse Source
This commit is contained in:
Michael Snoyman 2012-08-08 17:04:18 +03:00
parent 5bc6b501b2
commit 28e0bf88aa
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
yesod-form/Yesod/Form/Fields.hs
View File

@ -380,15 +380,17 @@ $newline never
|]) |])
(\theId name isSel -> [whamlet| (\theId name isSel -> [whamlet|
$newline never $newline never
<div> <label .radio for=#{theId}-none>
<input id=#{theId}-none type=radio name=#{name} value=none :isSel:checked> <div>
<label for=#{theId}-none>_{MsgSelectNone} <input id=#{theId}-none type=radio name=#{name} value=none :isSel:checked>
_{MsgSelectNone}
|]) |])
(\theId name attrs value isSel text -> [whamlet| (\theId name attrs value isSel text -> [whamlet|
$newline never $newline never
<div> <label .radio for=#{theId}-#{value}>
<input id=#{theId}-#{value} type=radio name=#{name} value=#{value} :isSel:checked *{attrs}> <div>
<label for=#{theId}-#{value}>#{text} <input id=#{theId}-#{value} type=radio name=#{name} value=#{value} :isSel:checked *{attrs}>
\#{text}
|]) |])
boolField :: RenderMessage master FormMessage => Field sub master Bool boolField :: RenderMessage master FormMessage => Field sub master Bool