From 32d93542af615cd5d7853916623b5c39c54abd1e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Mon, 22 Jun 2026 22:18:46 +0200
Subject: Unread message highlighting using status column

---
 src/Erebos/Conversation.hs | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

(limited to 'src/Erebos')

diff --git a/src/Erebos/Conversation.hs b/src/Erebos/Conversation.hs
index 1c2b340..0e6690e 100644
--- a/src/Erebos/Conversation.hs
+++ b/src/Erebos/Conversation.hs
@@ -74,12 +74,11 @@ formatMessage :: TimeZone -> Message -> String
 formatMessage tzone = T.unpack . renderPlainText . formatMessageFT tzone
 
 formatMessageFT :: TimeZone -> Message -> FormattedText
-formatMessageFT tzone msg =
-    (if messageUnread msg then FormattedText (CustomTextColor (Just BrightYellow) Nothing) else id) $ mconcat
-        [ PlainText $ T.pack $ formatTime defaultTimeLocale "[%H:%M] " $ utcToLocalTime tzone $ zonedTimeToUTC $ messageTime msg
-        , maybe "<unnamed>" PlainText $ idName $ messageFrom msg
-        , maybe "" ((": " <>) . PlainText) $ messageText msg
-        ]
+formatMessageFT tzone msg = mconcat
+    [ PlainText $ T.pack $ formatTime defaultTimeLocale "[%H:%M] " $ utcToLocalTime tzone $ zonedTimeToUTC $ messageTime msg
+    , maybe "<unnamed>" PlainText $ idName $ messageFrom msg
+    , maybe "" ((": " <>) . PlainText) $ messageText msg
+    ]
 
 
 data Conversation
-- 
cgit v1.2.3