From fc43ffb42390bb8d566cf8b23f689345abd82d88 Mon Sep 17 00:00:00 2001 From: cage Date: Tue, 23 Jun 2020 16:50:15 +0200 Subject: [PATCH] - collected gemini links too. --- src/text-utils.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/text-utils.lisp b/src/text-utils.lisp index 699ba8c..5228206 100644 --- a/src/text-utils.lisp +++ b/src/text-utils.lisp @@ -652,7 +652,7 @@ printed in the box column by column; in the example above the results are: (list columns))))) (fit))) -(defun collect-links (text &optional (schemes '("http" "https" "ftp"))) +(defun collect-links (text &optional (schemes '("http" "https" "ftp" "gemini"))) "Collect all hyperlinks in a text marked from a list of valid `schemes'" (flet ((build-re-scheme () (let ((res ""))