diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2026-04-01 00:53:26 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2026-04-01 00:53:26 +0200 |
| commit | 64aa54443e9b12770fadf020ee1189f2f49c5c91 (patch) | |
| tree | c4de9cf2f06e0220fc3fc19f782a9c3527e11fb9 /src | |
| parent | e24ea510232b0831a81ba0d4a2623976f79a3d9f (diff) | |
Colours for join/leave events
Diffstat (limited to 'src')
| -rw-r--r-- | src/Main.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Main.hs b/src/Main.hs index 818d300..45f34db 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -116,9 +116,9 @@ pageLog conf pages index req alias = renderEvent :: Event -> (Maybe Text, (Maybe Text, Text, Maybe Text), Text) renderEvent = \case - Join n addr -> (j "ev-meta", (no, "", j "→"), n <> " joins (" <> addr <> ")") - Part n addr reas -> (j "ev-meta", (no, "", j "←"), n <> " parts (" <> addr <> ") (" <> reas <> ")") - Quit n addr reas -> (j "ev-meta", (no, "", j "×"), n <> " quits (" <> addr <> ") (" <> reas <> ")") + Join n addr -> (j "ev-join", (no, "", j "→"), n <> " joins (" <> addr <> ")") + Part n addr reas -> (j "ev-leave", (no, "", j "←"), n <> " parts (" <> addr <> ") (" <> reas <> ")") + Quit n addr reas -> (j "ev-leave", (no, "", j "×"), n <> " quits (" <> addr <> ") (" <> reas <> ")") ReNick n n' -> (j "ev-meta", (no, n, no), "is now known as " <> n') Talk n m -> (no, (j "<", n, j ">"), m) Notice n m -> (j "ev-notice", (j "-", n, j "-"), m) |