diff options
-rwxr-xr-x | countdown.hs | 7 |
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 = | |||
210 | str "\n" | 210 | str "\n" |
211 | <=> | 211 | <=> |
212 | hCenter (hBox [ | 212 | hCenter (hBox [ |
213 | vBox [ cosmicCalendarCurrent, txt "\n", cosmicCalendarNext ], | 213 | -- TODO: accumulate all entries on today's date into one vBox |
214 | if currentEntryIsCurrent then | ||
215 | borderWithLabel (txt "Now on the Cosmic Calendar") currentEntry | ||
216 | else | ||
217 | borderWithLabel (txt "Next on the Cosmic Calendar") nextEntry, | ||
218 | -- vBox [ cosmicCalendarCurrent, txt "\n", cosmicCalendarNext ], | ||
214 | str " ", | 219 | str " ", |
215 | borderWithLabel (str "Cosmic Conversion") (hBox [cosmicConversion, cosmicConversion']) | 220 | borderWithLabel (str "Cosmic Conversion") (hBox [cosmicConversion, cosmicConversion']) |
216 | ]) | 221 | ]) |