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

- [gemini] allowed opening local folder using 'ui:open-gemini-address'.

This commit is contained in:
cage 2021-03-27 11:01:36 +01:00
parent 9dd77c549d
commit ff99cd50b6
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/ui-goodies.lisp
View File

@ -1778,10 +1778,9 @@ open-message-link-window:open-message-link"
(defun open-gemini-address ()
"Ask for a gemini address and try to load it"
(flet ((on-input-complete (url)
(if (gemini-parser:gemini-iri-p url)
(gemini-viewer:load-gemini-url url
:priority program-events:+maximum-event-priority+)
(error-message (_ "This is not a valid gemini address")))))
(gemini-viewer:load-gemini-url url
:priority program-events:+maximum-event-priority+)))
(let ((prompt (gemini-open-url-prompt)))
(ask-string-input #'on-input-complete
:prompt prompt