fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Introduce visibleWidget

Browse Source
This commit is contained in:
Gregor Kleen 2019-01-30 09:44:16 +01:00
parent 54070956a6
commit 78fc27dc04
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Handler/Utils.hs
View File

@ -69,3 +69,8 @@ warnTermDays tid times = do
forM_ warnholidays $ warnI MsgDayIsAHoliday forM_ warnholidays $ warnI MsgDayIsAHoliday
forM_ outoflecture $ warnI MsgDayIsOutOfLecture forM_ outoflecture $ warnI MsgDayIsOutOfLecture
forM_ outoftermdays $ warnI MsgDayIsOutOfTerm forM_ outoftermdays $ warnI MsgDayIsOutOfTerm
visibleWidget :: Bool -> Widget
-- ^ @visibleWidget False@ is an icon that denotes that something™ is not visible
visibleWidget True = mempty
visibleWidget False = [whamlet|<i .fas .fa-eye-slash>|]

2
templates/adminTest.hamlet
View File

@ -36,3 +36,5 @@
^{modal "Klick mich für Content-Test" (Right "Test Inhalt für Modal")} ^{modal "Klick mich für Content-Test" (Right "Test Inhalt für Modal")}
<li> <li>
^{modal "Email-Test" (Right emailWidget')} ^{modal "Email-Test" (Right emailWidget')}
<li>
^{visibleWidget False}