style(tooltips): remove info grey style and update admin page

This commit is contained in:
Sarah Vaupel 2019-10-01 14:53:21 +02:00
parent e1b7170259
commit 74022b9305
3 changed files with 13 additions and 11 deletions

View File

@ -31,9 +31,6 @@
font-size: 15px;
}
&.tooltip__handle.urgency__info {
color: var(--color-info);
}
&.tooltip__handle.urgency__success {
color: var(--color-success);
}
@ -47,9 +44,6 @@
&:hover {
color: var(--color-dark);
&.tooltip__handle.urgency__info {
color: var(--color-info-dark);
}
&.tooltip__handle.urgency__success {
color: var(--color-success-dark);
}

View File

@ -146,10 +146,14 @@ postAdminTestR = do
$forall m <- msgs
<li>#{m}
|]
let testTooltip = toWidget [whamlet|Hier könnte Ihr Tooltip stehen!|] :: WidgetFor UniWorX ()
let msgCont = "Allerletzte Warnung!" :: Html
msgStat = Warning
let testTooltipMsg = toWidget [whamlet| So sehen aktuell Tooltips via iconTooltip aus. |] :: WidgetFor UniWorX ()
msgInfoTooltip <- messageI Info ("Info-Tooltip via messageI" :: Text)
msgSuccessTooltip <- messageI Success ("Success-Tooltip via messageI" :: Text)
msgWarningTooltip <- messageI Warning ("Warning-Tooltip via messageI" :: Text)
msgErrorTooltip <- messageI Error ("Error-Tooltip via messageI" :: Text)
msgNonDefaultIconTooltip <- messageIconI Info IconEmail ("Info-Tooltip mit lustigem Icon" :: Text)
{- The following demonstrates the use of @massInput@.

View File

@ -8,8 +8,12 @@
Der Handler sollte jeweils aktuelle Beispiele für alle möglichen Funktionalitäten enthalten, so dass man immer weiß, wo man nachschlagen kann.
<p>
^{iconTooltip testTooltip Nothing}
^{messageTooltip (Message msgStat msgCont Nothing)}
^{iconTooltip testTooltipMsg Nothing}
^{messageTooltip msgInfoTooltip}
^{messageTooltip msgSuccessTooltip}
^{messageTooltip msgWarningTooltip}
^{messageTooltip msgErrorTooltip}
^{messageTooltip msgNonDefaultIconTooltip}
<p>
<span .tooltip>