cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2024-12-22 23:47:56 +01:00
Code Issues

- allowed also collection of gopher address, printed on the message window, in the link window.

Browse Source
This commit is contained in:
cage 2022-11-15 20:29:56 +01:00
parent 65c9ac64d0
commit b710f36774
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
etc/shared.conf
View File

@ -87,6 +87,10 @@ color-regexp = "-> gemini://[^ ]+" yellow underline
color-regexp = "gemini://[^ ]+" #ff0000
#gopher links
color-regexp = "gopher://[^ ]+" #ff0000
# (c) and (r)
color-regexp = "(?i)(\\(c\\))|(\\(r\\))" #ff0000 bold

2
src/text-utils.lisp
View File

@ -698,7 +698,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" "gemini")))
(defun collect-links (text &optional (schemes '("http" "https" "ftp" "gemini" "gopher")))
"Collect all hyperlinks in a text marked from a list of valid `schemes'"
(flet ((build-re-scheme ()
(let ((res ""))