cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-17 08:10:36 +01:00
Code Issues

- fixed 'ui:open-net-address';

Browse Source 
- [module] expanded gopher abbreviation in 'expand-abbrev-command-window.lisp'.
This commit is contained in:
cage 2022-08-28 18:48:02 +02:00
parent 4df12b144a
commit 9b6e6a9f15
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
modules/expand-abbrev-command-window.lisp
View File

@ -32,7 +32,8 @@
(in-package :modules)
(defparameter *expand-abbrev-rewriting-rules* '(("^!g" "gemini://")
(defparameter *expand-abbrev-rewriting-rules* '(("^!ge" "gemini://")
("^!go" "gopher://")
("^!n" "np://"))
"Before displaying messages that module will rewrites the first
element of each item (a regular expression) of this list with the second

2
src/ui-goodies.lisp
View File

@ -2181,7 +2181,7 @@ Currently the only recognized protocols are gemini and kami."
(open-kami-address trimmed-url))
((text-utils:string-starts-with-p gopher-parser:+gopher-scheme+ trimmed-url)
(multiple-value-bind (host port type selector)
(gopher-parser:parse-iri address)
(gopher-parser:parse-iri trimmed-url)
(gopher-window::make-request host port type selector)))
(t
(open-gemini-address trimmed-url))))))