02/04: goggles: Tighten protocol regexp.

[Tobias Geerinckx-Rice]

nckx pushed a commit to branch master
in repository maintenance.

commit 853f47e678c39a3e680a77a87f04a0c81470b3b7
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Sun Sep 25 02:00:00 2022 +0200

    goggles: Tighten protocol regexp.
    
    Even if Goog^Wthe W3C decides to add ‘httpx:’ tomorrow, it's just if not
    more likely to be called XTTP.
    
    * hydra/goggles.scm (make-line-renderer): Match https? explicitly.
---
 hydra/goggles.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hydra/goggles.scm b/hydra/goggles.scm
index dcc63eb..549782f 100755
--- a/hydra/goggles.scm
+++ b/hydra/goggles.scm
@@ -334,7 +334,7 @@ representation highlighting certain parts."
              (span (@ (class "message"))
                    ,@(reverse (fold (lambda (chunk acc)
                                       (cond
-                                       ((string-match "http.?://.+" chunk)
+                                       ((string-match "https?://.+" chunk)
                                         (cons* " "
                                                `(a (@ (rel "nofollow")
                                                      (href ,chunk)) ,chunk)