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

- [gopher] added notification of any error signaled when making a gopher request.

This commit is contained in:
cage 2022-10-01 17:02:46 +02:00
parent ad14de7e41
commit 2bbf092975
1 changed files with 46 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/gopher-window.lisp
View File

@ -228,6 +228,7 @@
port port
type type
selector))) selector)))
(with-notify-errors
(cond (cond
((gopher-parser::%line-type-dir-p type) ((gopher-parser::%line-type-dir-p type)
(gemini-viewer:push-url-to-history message-win link) (gemini-viewer:push-url-to-history message-win link)
@ -272,7 +273,7 @@
(write-sequence buffer stream))) (write-sequence buffer stream)))
(finish-output stream) (finish-output stream)
(os-utils:open-resource-with-external-program filesystem-utils:temp-file (os-utils:open-resource-with-external-program filesystem-utils:temp-file
nil))))))) nil))))))))
(defun open-menu-link () (defun open-menu-link ()
(a:when-let* ((win *gopher-window*) (a:when-let* ((win *gopher-window*)