diff options
| -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 |