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

- [kami] prevented landing on the debugger if communicating with a kami 

server fails.
This commit is contained in:
cage 2023-02-14 21:17:46 +01:00
parent 2b416820a1
commit 4a9e41a307
1 changed files with 8 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/ui-goodies.lisp
View File

@ -2983,18 +2983,14 @@ printed, on the main window."
(open-attach-window:open-attachment avatar-url))) (open-attach-window:open-attachment avatar-url)))
(defmacro with-notify-kami-error (&body body) (defmacro with-notify-kami-error (&body body)
`(handler-bind ((purgatory:9p-error `(with-notify-errors
(lambda (e) (handler-bind ((purgatory:9p-error
(ui:notify (format nil (_ "Error: ~a") e) (lambda (e)
:life (* (swconf:config-notification-life) 5) (ui:notify (format nil (_ "Error: ~a") e)
:as-error t) :life (* (swconf:config-notification-life) 5)
(invoke-restart 'purgatory:ignore-error e))) :as-error t)
(error (invoke-restart 'purgatory:ignore-error e))))
(lambda (e) ,@body)))
(ui:notify (format nil (_ "Error: ~a") e)
:life (* (swconf:config-notification-life) 5)
:as-error t))))
,@body))
(defun open-file-explorer (&optional (root "/")) (defun open-file-explorer (&optional (root "/"))
(with-enqueued-process () (with-enqueued-process ()