cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-21 08:50:51 +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) (in-package :modules)
(defparameter *expand-abbrev-rewriting-rules* '(("^!g" "gemini://") (defparameter *expand-abbrev-rewriting-rules* '(("^!ge" "gemini://")
("^!go" "gopher://")
("^!n" "np://")) ("^!n" "np://"))
"Before displaying messages that module will rewrites the first "Before displaying messages that module will rewrites the first
element of each item (a regular expression) of this list with the second 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)) (open-kami-address trimmed-url))
((text-utils:string-starts-with-p gopher-parser:+gopher-scheme+ trimmed-url) ((text-utils:string-starts-with-p gopher-parser:+gopher-scheme+ trimmed-url)
(multiple-value-bind (host port type selector) (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))) (gopher-window::make-request host port type selector)))
(t (t
(open-gemini-address trimmed-url)))))) (open-gemini-address trimmed-url))))))