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

- fixed test for conditional macro call.

This commit is contained in:
cage 2023-12-07 17:31:33 +01:00
parent e255f87eaf
commit c613cefa13
1 changed files with 17 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
src/tui-utils.lisp
View File

@ -503,20 +503,22 @@ latter has a length equals to `total-size'"))
(defmacro with-notify-errors (&body body)
#+(or debug-mode debug-tui-errors) `(progn ,@body)
#-debug-mode `(handler-case
(progn
,@body)
(error (e)
(ui:notify (format nil (_ "Error: ~a") e)
:life (* (swconf:config-notification-life) 5)
:as-error t)
nil)))
#-(or debug-mode debug-tui-errors)
`(handler-case
(progn
,@body)
(error (e)
(ui:notify (format nil (_ "Error: ~a") e)
:life (* (swconf:config-notification-life) 5)
:as-error t)
nil)))
(defmacro with-print-error-message (&body body)
#+debug-mode `(progn ,@body)
#-debug-mode `(handler-case
(progn
,@body)
(error (e)
(ui:error-message (format nil (_ "Error: ~a") e))
nil)))
#+(or debug-mode debug-tui-errors) `(progn ,@body)
#-(or debug-mode debug-tui-errors)
`(handler-case
(progn
,@body)
(error (e)
(ui:error-message (format nil (_ "Error: ~a") e))
nil)))