show only one calendar entry on display at a time

1 files changed, 6 insertions, 1 deletions

diff --git a/countdown.hs b/countdown.hs
index 0f19ef7..62c9ce3 100755
--- a/countdown.hs
+++ b/countdown.hs
@@ -210,7 +210,12 @@ countdownWidget isSimulated t =
     str "\n"
     <=>
     hCenter (hBox [
-                vBox [ cosmicCalendarCurrent, txt "\n", cosmicCalendarNext ],
+                -- TODO: accumulate all entries on today's date into one vBox
+                if currentEntryIsCurrent then
+                  borderWithLabel (txt "Now on the Cosmic Calendar") currentEntry
+                else
+                  borderWithLabel (txt "Next on the Cosmic Calendar") nextEntry,
+                -- vBox [ cosmicCalendarCurrent, txt "\n", cosmicCalendarNext ],
                 str "   ",
                 borderWithLabel (str "Cosmic Conversion") (hBox [cosmicConversion, cosmicConversion'])
     ])