mirror of https://codeberg.org/cage/tinmop/
- [kami] prevented landing on the debugger if communicating with a kami
server fails.
This commit is contained in:
parent
2b416820a1
commit
4a9e41a307
|
@ -2983,18 +2983,14 @@ printed, on the main window."
|
|||
(open-attach-window:open-attachment avatar-url)))
|
||||
|
||||
(defmacro with-notify-kami-error (&body body)
|
||||
`(handler-bind ((purgatory:9p-error
|
||||
(lambda (e)
|
||||
(ui:notify (format nil (_ "Error: ~a") e)
|
||||
:life (* (swconf:config-notification-life) 5)
|
||||
:as-error t)
|
||||
(invoke-restart 'purgatory:ignore-error e)))
|
||||
(error
|
||||
(lambda (e)
|
||||
(ui:notify (format nil (_ "Error: ~a") e)
|
||||
:life (* (swconf:config-notification-life) 5)
|
||||
:as-error t))))
|
||||
,@body))
|
||||
`(with-notify-errors
|
||||
(handler-bind ((purgatory:9p-error
|
||||
(lambda (e)
|
||||
(ui:notify (format nil (_ "Error: ~a") e)
|
||||
:life (* (swconf:config-notification-life) 5)
|
||||
:as-error t)
|
||||
(invoke-restart 'purgatory:ignore-error e))))
|
||||
,@body)))
|
||||
|
||||
(defun open-file-explorer (&optional (root "/"))
|
||||
(with-enqueued-process ()
|
||||
|
|
Loading…
Reference in New Issue