cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- collected gemini links too.

This commit is contained in:
cage 2020-06-23 16:50:15 +02:00
parent 88f285e87e
commit fc43ffb423
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/text-utils.lisp
View File

@ -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 ""))