diff options
Diffstat (limited to 'countdown.hs')
-rwxr-xr-x | countdown.hs | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/countdown.hs b/countdown.hs index 54f79f5..5080649 100755 --- a/countdown.hs +++ b/countdown.hs | |||
@@ -220,11 +220,6 @@ countdownWidget isSimulated t = | |||
220 | borderWithLabel (str "Cosmic Conversion") (hBox [cosmicConversion, cosmicConversion']) | 220 | borderWithLabel (str "Cosmic Conversion") (hBox [cosmicConversion, cosmicConversion']) |
221 | ]) | 221 | ]) |
222 | where | 222 | where |
223 | cosmicCalendarCurrent = | ||
224 | borderWithLabel (str $ printf "%s on the Cosmic Calendar" (if currentEntryIsCurrent then "Now" else "Previously" :: Text)) | ||
225 | currentEntry | ||
226 | cosmicCalendarNext = borderWithLabel (txt "Next on the Cosmic Calendar") nextEntry | ||
227 | |||
228 | -- TODO: We want to display "today" or "now" on the cosmic calendar; | 223 | -- TODO: We want to display "today" or "now" on the cosmic calendar; |
229 | -- We want to display what happened previously on the cosmic calendar | 224 | -- We want to display what happened previously on the cosmic calendar |
230 | -- We want to say how long ago the previous happening was relative to today's date and today's place on the cosmic calendar | 225 | -- We want to say how long ago the previous happening was relative to today's date and today's place on the cosmic calendar |