reinstate event countdown (conditionally)

1 files changed, 3 insertions, 1 deletions

diff --git a/countdown.hs b/countdown.hs
index 33d0b38..f2a41ff 100755
--- a/countdown.hs
+++ b/countdown.hs
@@ -246,7 +246,9 @@ countdownWidget isSimulated t =
                                 padLeft Max $ str $ showCosmicTime (-timeUntilActive) ++ " ago"]
         years = fromRational $ toCosmicTime calBeginTime
         box = vBox [
-          str "\n",
+          if currentEntryIsCurrent
+          then str "\n"
+          else eventCountdown <=> str "\n",
           hCenter $ txt calTitle,
           hCenter $ txt calSubtitle,
           str "\n",