diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-06-28 11:32:50 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-06-28 15:38:11 +0200 |
| commit | 933d8987ff812c27e4e4c1d1a6cf246b6694278b (patch) | |
| tree | 3afd17afd7bdef84e8764baa7fac06120d116f34 /src/Main.hs | |
| parent | 8f722a1c19e75a77dbbdbd36f38ec7b347d9bf77 (diff) | |
Add class for unread messages
Changelog: Highlight new (unread) messages.
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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 |