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; font-size: 15px;
} }
&.tooltip__handle.urgency__info {
color: var(--color-info);
}
&.tooltip__handle.urgency__success { &.tooltip__handle.urgency__success {
color: var(--color-success); color: var(--color-success);
} }
@ -47,9 +44,6 @@
&:hover { &:hover {
color: var(--color-dark); color: var(--color-dark);
&.tooltip__handle.urgency__info {
color: var(--color-info-dark);
}
&.tooltip__handle.urgency__success { &.tooltip__handle.urgency__success {
color: var(--color-success-dark); color: var(--color-success-dark);
} }

View File

@ -146,10 +146,14 @@ postAdminTestR = do
$forall m <- msgs $forall m <- msgs
<li>#{m} <li>#{m}
|] |]
let testTooltip = toWidget [whamlet|Hier könnte Ihr Tooltip stehen!|] :: WidgetFor UniWorX () let testTooltipMsg = toWidget [whamlet| So sehen aktuell Tooltips via iconTooltip aus. |] :: WidgetFor UniWorX ()
let msgCont = "Allerletzte Warnung!" :: Html
msgStat = Warning
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@. {- 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. Der Handler sollte jeweils aktuelle Beispiele für alle möglichen Funktionalitäten enthalten, so dass man immer weiß, wo man nachschlagen kann.
<p> <p>
^{iconTooltip testTooltip Nothing} ^{iconTooltip testTooltipMsg Nothing}
^{messageTooltip (Message msgStat msgCont Nothing)} ^{messageTooltip msgInfoTooltip}
^{messageTooltip msgSuccessTooltip}
^{messageTooltip msgWarningTooltip}
^{messageTooltip msgErrorTooltip}
^{messageTooltip msgNonDefaultIconTooltip}
<p> <p>
<span .tooltip> <span .tooltip>