From d3f3e6ee5d5587cdd9f6ad2b87e12651e78248bc Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Sun, 12 Sep 2021 20:52:30 +0200
Subject: [PATCH] Add short output variant to date block

The full date is very long compared to other blocks, which is
problematic when using qbar on devices with small or vertical screens
(e.g. on the Pinephone).
---
 src/QBar/Blocks/Date.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/QBar/Blocks/Date.hs b/src/QBar/Blocks/Date.hs
index dbb867f..f731ed2 100644
--- a/src/QBar/Blocks/Date.hs
+++ b/src/QBar/Blocks/Date.hs
@@ -13,7 +13,9 @@ import Data.Time.LocalTime
 dateBlock :: Block
 dateBlock = runPollBlock' (everyNSeconds 60) $ forever $ do
   zonedTime <- liftIO getZonedTime
+  let logo = "📅\xFE0E "
   let date = T.pack (formatTime defaultTimeLocale "%a %F" zonedTime)
   let time = T.pack (formatTime defaultTimeLocale "%R" zonedTime)
-  let text = normalText ("📅\xFE0E " <> date <> " ") <> activeText time
-  yieldBlockUpdate $ mkBlockOutput text
+  let text = normalText (logo <> date <> " ") <> activeText time
+  let short = normalText logo <> activeText time
+  yieldBlockUpdate $ (mkBlockOutput text) { _shortText = Just short }
-- 
GitLab