From 0b19730b1a817455d98f9f3e6402841710bcc62c Mon Sep 17 00:00:00 2001
From: Gregor Kleen <kleen@cip.ifi.lmu.de>
Date: Wed, 30 Jan 2019 09:44:16 +0100
Subject: [PATCH] Introduce visibleWidget

---
 src/Handler/Utils.hs       | 5 +++++
 templates/adminTest.hamlet | 2 ++
 2 files changed, 7 insertions(+)

diff --git a/src/Handler/Utils.hs b/src/Handler/Utils.hs
index 7ccf0a731..3ecc4b932 100644
--- a/src/Handler/Utils.hs
+++ b/src/Handler/Utils.hs
@@ -69,3 +69,8 @@ warnTermDays tid times = do
   forM_ warnholidays  $ warnI MsgDayIsAHoliday
   forM_ outoflecture  $ warnI MsgDayIsOutOfLecture
   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>|]
diff --git a/templates/adminTest.hamlet b/templates/adminTest.hamlet
index 2cc3f24f3..8290759e6 100644
--- a/templates/adminTest.hamlet
+++ b/templates/adminTest.hamlet
@@ -36,3 +36,5 @@
       ^{modal "Klick mich für Content-Test" (Right "Test Inhalt für Modal")}
     <li>
       ^{modal "Email-Test" (Right emailWidget')}
+    <li>
+      ^{visibleWidget False}