From 6658be48a3d5a3e05c1df10de74ab61cf15a1822 Mon Sep 17 00:00:00 2001
From: Andrew Cady <d@cryptonomic.net>
Date: Sat, 17 Sep 2022 03:30:43 -0400
Subject: text-wrap the subtitle

---
 countdown.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 =
                                 padLeft Max $ str $ showCosmicTime (-timeUntilActive) ++ " ago"]
         years = fromRational $ toCosmicTime calBeginTime
         box = borderWithLabel (txt calTitle) $ vBox [
-          hCenter $ txt $ calSubtitle,
+          hCenter $ txtWrap $ calSubtitle,
           str "\n",
           hBox [
             str $ formatTime defaultTimeLocale "%A, %B %e%n%Y-%m-%d %r" $ calBeginTime `addLocalTime` yearStart t,
-- 
cgit v1.2.3