countdown to show seconds left in year

1 files changed, 10 insertions, 5 deletions

diff --git a/countdown.hs b/countdown.hs
index 2a1f654..a7488de 100755
--- a/countdown.hs
+++ b/countdown.hs
@@ -289,11 +289,16 @@ countdownWidget showConversion isSimulated t =
     countdownBox =
       (borderWithLabel (str $ printf "Countdown %d" currentYear) $
         vBox $
-        (str $ printf "Day %d of %d\nSecond %s of %s"
-          dayNum
-          numDays
-          (commas $ (1 + toSeconds yearElapsed :: Int))
-          (commas $ toSeconds yearLength)) : remains
+        let secondsNow = 1 + toSeconds yearElapsed :: Int
+            secondsTotal = toSeconds yearLength
+        in
+          (str $ printf "Day %d of %d\nSecond %s of %s\n%s seconds remain"
+            dayNum
+            numDays
+            (commas secondsNow)
+            (commas secondsTotal)
+            (commas $ secondsTotal - secondsNow)
+          ) : remains
         )
     remains =
         [