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

Fixed tooltip styling in Bootstrap 4

Browse Source
This commit is contained in:
James Burton 2020-11-15 22:31:35 +00:00
parent 973461e70f
commit 1c742a83d3
1 changed files with 25 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
yesod-form-multi/Yesod/Form/MultiInput.hs
View File

@ -97,7 +97,12 @@ data MultiView site = MultiView
-- --
-- @since 1.6.0 -- @since 1.6.0
bs3Settings :: MultiSettings site bs3Settings :: MultiSettings site
bs3Settings = MultiSettings "btn btn-default" "btn btn-danger" "help-block" "has-error" Nothing Nothing (Just errW) bs3Settings = MultiSettings
"btn btn-default"
"btn btn-danger"
"help-block"
"has-error"
Nothing Nothing (Just errW)
where where
errW err = errW err =
[whamlet| [whamlet|
@ -108,7 +113,12 @@ bs3Settings = MultiSettings "btn btn-default" "btn btn-danger" "help-block" "has
-- --
-- @since 1.6.0 -- @since 1.6.0
bs4Settings :: MultiSettings site bs4Settings :: MultiSettings site
bs4Settings = MultiSettings "btn btn-secondary" "btn btn-danger" "help-block" "has-error" Nothing Nothing (Just errW) bs4Settings = MultiSettings
"btn btn-secondary"
"btn btn-danger"
"form-text text-muted"
"has-error"
Nothing Nothing (Just errW)
where where
errW err = errW err =
[whamlet| [whamlet|
@ -120,7 +130,12 @@ bs4Settings = MultiSettings "btn btn-secondary" "btn btn-danger" "help-block" "h
-- --
-- @since 1.7.0 -- @since 1.7.0
bs3FASettings :: MultiSettings site bs3FASettings :: MultiSettings site
bs3FASettings = MultiSettings "btn btn-default" "btn btn-danger" "help-block" "has-error" addIcon delIcon (Just errW) bs3FASettings = MultiSettings
"btn btn-default"
"btn btn-danger"
"help-block"
"has-error"
addIcon delIcon (Just errW)
where where
addIcon = Just [shamlet|<i class="fas fa-plus">|] addIcon = Just [shamlet|<i class="fas fa-plus">|]
delIcon = Just [shamlet|<i class="fas fa-trash-alt">|] delIcon = Just [shamlet|<i class="fas fa-trash-alt">|]
@ -134,7 +149,12 @@ bs3FASettings = MultiSettings "btn btn-default" "btn btn-danger" "help-block" "h
-- --
-- @since 1.7.0 -- @since 1.7.0
bs4FASettings :: MultiSettings site bs4FASettings :: MultiSettings site
bs4FASettings = MultiSettings "btn btn-secondary" "btn btn-danger" "help-block" "has-error" addIcon delIcon (Just errW) bs4FASettings = MultiSettings
"btn btn-secondary"
"btn btn-danger"
"form-text text-muted"
"has-error"
addIcon delIcon (Just errW)
where where
addIcon = Just [shamlet|<i class="fas fa-plus">|] addIcon = Just [shamlet|<i class="fas fa-plus">|]
delIcon = Just [shamlet|<i class="fas fa-trash-alt">|] delIcon = Just [shamlet|<i class="fas fa-trash-alt">|]
@ -167,7 +187,7 @@ amulti field fs defs minVals ms = formToAForm $
widget = do widget = do
[whamlet| [whamlet|
$maybe tooltip <- fvTooltip fv $maybe tooltip <- fvTooltip fv
<span .#{msTooltipClass ms}>#{tooltip} <small .#{msTooltipClass ms}>#{tooltip}
^{fvInput mvCounter} ^{fvInput mvCounter}