summaryrefslogtreecommitdiff
path: root/countdown.hs
diff options
context:
space:
mode:
Diffstat (limited to 'countdown.hs')
-rwxr-xr-xcountdown.hs5
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