[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: hydra: Filter joins, parts, and quits from logs.
From: |
Ricardo Wurmus |
Subject: |
01/01: hydra: Filter joins, parts, and quits from logs. |
Date: |
Thu, 8 Aug 2019 10:53:14 -0400 (EDT) |
rekado pushed a commit to branch master
in repository maintenance.
commit 6f7e2437b375fc585462d4f9a91f6db81a73db5f
Author: Ricardo Wurmus <address@hidden>
Date: Thu Aug 8 16:52:34 2019 +0200
hydra: Filter joins, parts, and quits from logs.
* hydra/goggles.scm (make-line-renderer): Strip off joins/parts/quits
lines.
---
hydra/goggles.scm | 3 +++
1 file changed, 3 insertions(+)
diff --git a/hydra/goggles.scm b/hydra/goggles.scm
index b762172..169b3c3 100644
--- a/hydra/goggles.scm
+++ b/hydra/goggles.scm
@@ -114,6 +114,9 @@ representation highlighting certain parts."
(first colors)))
(match-lambda
(("") '(br))
+ ;; Filter noise.
+ ((time "***" (or "Joins:" "Parts:" "Quits:") . msg)
+ '())
((time "***" . msg)
(let ((id (string-filter char-set:digit time)))
`(div (@ (class "line") (id ,id))