fix "cosmic time ago" display (partially)

1 files changed, 7 insertions, 2 deletions

diff --git a/countdown.hs b/countdown.hs
index b64b685..0d072e1 100755
--- a/countdown.hs
+++ b/countdown.hs
@@ -264,14 +264,19 @@ countdownWidget showConversion isSimulated t =
           hCenter $ txt calSubtitle,
           str "\n",
           hBox [
-            str $ formatTime defaultTimeLocale "%A, %B %e%n%Y-%m-%d %r" $ calBeginTime `addLocalTime` yearStart t,
+            let cosmicSecondsAgo = nominalDiffTimeToSeconds (yearEnd cosmicCalendarT `diffLocalTime` cosmicCalendarT)
+                cosmicCalendarT = calBeginTime `addLocalTime` yearStart t
+            in vBox [
+              str $ formatTime defaultTimeLocale "%A, %B %e%n%Y-%m-%d %r" $ cosmicCalendarT,
+              -- TODO: Choose correct cosmic unit
+              str $ printf "%s cosmic second%s ago" (commasF' 1 cosmicSecondsAgo) (pluralize cosmicSecondsAgo)
+            ],
             padLeft Max $ vBox [
               str $ showLarge years ++ " years",
               str $ printf "%s years ago" $ showLarge $ realToFrac (ageOfUniverseInYears - floor years)
             ]
           ],
           -- str $ printf "%s years ago" (commas $ ageOfUniverseInYears - floor years),
-          str $ printf "%s years ago" $ showLarge $ realToFrac (ageOfUniverseInYears - floor years),
           if not short
           then
             str "\n" <=>