diff options
| author | Andrew Cady <d@cryptonomic.net> | 2022-09-17 03:30:43 -0400 |
|---|---|---|
| committer | Andrew Cady <d@cryptonomic.net> | 2022-09-17 03:30:43 -0400 |
| commit | 6658be48a3d5a3e05c1df10de74ab61cf15a1822 (patch) | |
| tree | 6caefd0fe0b428b55e55e2563aefc65fc6358d24 | |
| parent | 690a1f4e4a5343ef825b8675afbf775bf184aecb (diff) | |
text-wrap the subtitle
| -rwxr-xr-x | countdown.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/countdown.hs b/countdown.hs index 62c9ce3..565e9c3 100755 --- a/countdown.hs +++ b/countdown.hs | |||
| @@ -251,7 +251,7 @@ countdownWidget isSimulated t = | |||
| 251 | padLeft Max $ str $ showCosmicTime (-timeUntilActive) ++ " ago"] | 251 | padLeft Max $ str $ showCosmicTime (-timeUntilActive) ++ " ago"] |
| 252 | years = fromRational $ toCosmicTime calBeginTime | 252 | years = fromRational $ toCosmicTime calBeginTime |
| 253 | box = borderWithLabel (txt calTitle) $ vBox [ | 253 | box = borderWithLabel (txt calTitle) $ vBox [ |
| 254 | hCenter $ txt $ calSubtitle, | 254 | hCenter $ txtWrap $ calSubtitle, |
| 255 | str "\n", | 255 | str "\n", |
| 256 | hBox [ | 256 | hBox [ |
| 257 | str $ formatTime defaultTimeLocale "%A, %B %e%n%Y-%m-%d %r" $ calBeginTime `addLocalTime` yearStart t, | 257 | str $ formatTime defaultTimeLocale "%A, %B %e%n%Y-%m-%d %r" $ calBeginTime `addLocalTime` yearStart t, |