diff options
| -rw-r--r-- | pages/style.css | 6 | ||||
| -rw-r--r-- | src/Main.hs | 6 |
2 files changed, 9 insertions, 3 deletions
diff --git a/pages/style.css b/pages/style.css index 551bb21..e11ea26 100644 --- a/pages/style.css +++ b/pages/style.css @@ -5,6 +5,8 @@ body { --footer-text-color: #333; --footer-bg-color: #eee; --meta-color: #777; + --join-color: #66c; + --leave-color: #b66; --nickwrap-color: #999; --link-color: #33f; } @@ -17,6 +19,8 @@ body { --footer-bg-color: #333; --footer-text-color: #eee; --meta-color: #676767; + --join-color: #7777c7; + --leave-color: #b05757; --nickwrap-color: var(--meta-color); --link-color: #abf; } @@ -123,6 +127,8 @@ table#events td:nth-child(-n + 2) { span.nickwrap { color: var(--nickwrap-color); } table#events tr.ev-meta > td:nth-child(n + 2) { color: var(--meta-color); } +table#events tr.ev-join > td:nth-child(n + 2) { color: var(--join-color); } +table#events tr.ev-leave > td:nth-child(n + 2) { color: var(--leave-color); } table#events tr.ev-act > td:nth-child(n + 2) { font-style: italic; } table#events tr.ev-notice > td:nth-child(n + 2) { font-weight: bold; } table#events tr.ev-parseerror > td:nth-child(n + 2) { color: red; } 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) |