diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-11-21 20:12:14 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-11-21 20:12:14 +0100 |
| commit | 8bc75bc96817e3be7ffd508e8c06b9ec6f409531 (patch) | |
| tree | 8f8180edaee0286001d7d01dace8a06b2d62e146 /main/Main.hs | |
| parent | 223e10691606a8d1885887fd6bb7570e1318e063 (diff) | |
Show unread messages when selecting conversation
Changelog: Show unread messages when selecting conversation
Diffstat (limited to 'main/Main.hs')
| -rw-r--r-- | main/Main.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/main/Main.hs b/main/Main.hs index d8a1f91..d7d42aa 100644 --- a/main/Main.hs +++ b/main/Main.hs @@ -737,6 +737,10 @@ cmdSelectContext = do when (not (roomStateSubscribe rstate)) $ do chatroomSetSubscribe (head $ roomStateData rstate) True _ -> return () + handleError (\_ -> return ()) $ do + conv <- getConversationFromContext ctx + tzone <- liftIO $ getCurrentTimeZone + mapM_ (cmdPutStrLn . formatMessage tzone) $ takeWhile messageUnread $ conversationHistory conv cmdSend :: Command cmdSend = void $ do |