From 8dfb26e8e115cf04350c5333ce293c3026361adb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Mon, 22 Jun 2026 21:47:58 +0200
Subject: Convert to generic Message type for formatting

---
 main/Main.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'main/Main.hs')

diff --git a/main/Main.hs b/main/Main.hs
index 2737915..def3b8c 100644
--- a/main/Main.hs
+++ b/main/Main.hs
@@ -444,9 +444,7 @@ interactiveLoop st opts = withTerminal commandCompletion $ \term -> do
                         SelectedConversation conv -> return $ conversationPeer conv
                         _ -> return Nothing
                     when (not tui || maybe False (msgPeer cur `sameIdentity`) mbpid) $ do
-                        line <- printLine term $
-                            (if new then withStyle (setForegroundColor BrightYellow noStyle) else id) $
-                            plainText $ T.pack $ formatDirectMessage tzone msg
+                        line <- printLine term $ formatMessageFT tzone $ makeMessage new msg
                         modifyMVar_ currentLinesVar $ return . (line :)
 
                 case optDmBotEcho opts of
-- 
cgit v1.2.3