From 690a1f4e4a5343ef825b8675afbf775bf184aecb Mon Sep 17 00:00:00 2001 From: Andrew Cady Date: Sat, 17 Sep 2022 03:30:32 -0400 Subject: show only one calendar entry on display at a time --- countdown.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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']) ]) -- cgit v1.2.3