From 933d8987ff812c27e4e4c1d1a6cf246b6694278b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 28 Jun 2026 11:32:50 +0200
Subject: Add class for unread messages

Changelog: Highlight new (unread) messages.
---
 src/Main.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Main.hs b/src/Main.hs
index 9cfbc91..beb5683 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -512,6 +512,8 @@ appendMessages GlobalState {..} ul remove msgs = do
                 , ( "msg-text", maybe "" T.unpack $ messageText msg )
                 ]
         li <- js_document_createElement (toJSString "li")
+        when (messageUnread msg) $ do
+            js_classList_add li (toJSString "unread")
         forM_ parts $ \( cls, content ) -> do
             element <- js_document_createElement (toJSString "span")
             js_classList_add element $ toJSString cls
-- 
cgit v1.2.3