nckx pushed a commit to branch master
in repository maintenance.
commit 8af3dea7db1a29610edaec161c1b865e0bc45721
Author: Tobias Geerinckx-Rice <[email protected]>
AuthorDate: Sun Sep 25 02:00:02 2022 +0200
goggles: Use a premade LINKIFY-REGEXP.
* hydra/goggles.scm (linkify-regexp): New variable.
(make-line-renderer): Use it.
---
hydra/goggles.scm | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/hydra/goggles.scm b/hydra/goggles.scm
index 549782f..685b33a 100755
--- a/hydra/goggles.scm
+++ b/hydra/goggles.scm
@@ -300,6 +300,9 @@ ul {
(define (directory? filename)
(string=? filename (dirname filename)))
+(define linkify-regexp
+ (make-regexp "https?://.+" regexp/icase))
+
(define (make-line-renderer lines)
"Return a procedure that converts a line into an SXML
representation highlighting certain parts."
@@ -334,7 +337,7 @@ representation highlighting certain parts."
(span (@ (class "message"))
,@(reverse (fold (lambda (chunk acc)
(cond
- ((string-match "https?://.+" chunk)
+ ((regexp-exec linkify-regexp chunk)
(cons* " "
`(a (@ (rel "nofollow")
(href ,chunk)) ,chunk)
