03/04: goggles: Use a premade LINKIFY-REGEXP.

[Tobias Geerinckx-Rice]

nckx pushed a commit to branch master
in repository maintenance.

commit 8af3dea7db1a29610edaec161c1b865e0bc45721
Author: Tobias Geerinckx-Rice <me@tobias.gr>
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)