add cosmic conversion table

1 files changed, 36 insertions, 0 deletions

diff --git a/countdown.hs b/countdown.hs
index e2a667e..1cf7a55 100755
--- a/countdown.hs
+++ b/countdown.hs
@@ -53,6 +53,7 @@ import Brick.Widgets.Core
 import Brick.AttrMap as A
 import Brick.Util (fg, bg, on, clamp)
 import Brick.Widgets.Core
+import Brick.Widgets.Table
 
 billion :: Integer
 billion = 1000 * 1000 * 1000
@@ -135,6 +136,28 @@ drawUI st = [a]
 
 printRemain unit quantity = printf "%d %s%s remain%s"
 
+showTime :: NominalDiffTime -> String
+showTime t | t < 1           = printf "%.3f seconds" (realToFrac t :: Float)
+showTime t | t == 1          = "1 second"
+-- showTime t | t < 10          = formatTime defaultTimeLocale "%2Es seconds" t -- BUG! Doesn't respect <width> parameter at all!
+showTime t | t < 10          = printf "%.2f seconds" (realToFrac t :: Float)
+showTime t | t < 60          = printf "%.1f seconds" (realToFrac t :: Float)
+showTime t | t == 60         = formatTime defaultTimeLocale "%M minute" t
+showTime t | t < 60*10       = formatTime defaultTimeLocale "%M minutes %Ss" t
+showTime t | t < 60*60       = formatTime defaultTimeLocale "%M minutes" t
+showTime t | t == 60*60      = "1 hour"
+showTime t | t < 60*60*2     = formatTime defaultTimeLocale "%H hour %Mm" t
+showTime t | t < 60*60*24    = formatTime defaultTimeLocale "%H hours %Mm" t
+showTime t | t < 60*60*24*2  = formatTime defaultTimeLocale "%d day %Hh" t
+showTime t | t < 60*60*24*10 = formatTime defaultTimeLocale "%d days %Hh" t
+showTime t                   = formatTime defaultTimeLocale "%d days" t
+-- showTime t = formatTime defaultTimeLocale "%w weeks %D days" t
+
+yearsToCosmicTime :: Integral i => i -> NominalDiffTime
+yearsToCosmicTime = (/ (realToFrac ageOfUniverseInYears)) . (* lengthOfYear) . realToFrac
+
+showCosmicYears = str . showTime . yearsToCosmicTime
+
 countdownWidget :: Bool -> LocalTime -> Widget n
 countdownWidget isSimulated (truncateTime -> t) =
   (hCenter (borderWithLabel (str $ printf "Current time%s" (if isSimulated then " (SIMULATED)" else "")) $
@@ -169,6 +192,19 @@ countdownWidget isSimulated (truncateTime -> t) =
             ])
     ])
     <=>
+    (borderWithLabel (str "Cosmic Conversion") $ renderTable $
+     table
+     [
+        [str "1 billion years"    , showCosmicYears $ 1000 * 1000 * 1000],
+        [str "100 million years"  , showCosmicYears $ 100 * 1000 * 1000],
+        [str "10 million years"   , showCosmicYears $ 10 * 1000 * 1000],
+        [str "1 million years"    , showCosmicYears $ 1000 * 1000],
+        [str "100 thousand years" , showCosmicYears $ 100 * 1000],
+        [str "10 thousand years"  , showCosmicYears $ 10 * 1000],
+        [str "1 thousand years"   , showCosmicYears 1000],
+        [str "100 years"          , showCosmicYears 100]
+     ])
+    <=>
     (borderWithLabel (str progressLabel) $
         updateAttrMap
         (A.mapAttrName yDoneAttr P.progressCompleteAttr .