cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-03-26 13:00:05 +01:00
Code Issues

- wrapped call to external editor to catch errors and print a message.

Browse Source
This commit is contained in:
cage 2021-05-29 14:48:02 +02:00
parent c323ef3847
commit f6465768b8
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/ui-goodies.lisp
View File

@ -907,7 +907,8 @@ Force the checking for new message in the thread the selected message belong."
:if-does-not-exist :error)
(write-sequence body stream))
(croatoan:end-screen)
(os-utils:open-with-editor temp-file)
(tui:with-notify-errors
(os-utils:open-with-editor temp-file))
(setf body (fs:slurp-file temp-file))))))
(defun close-send-message-window ()
@ -1005,7 +1006,8 @@ Force the checking for new message in the thread the selected message belong."
(add-signature temp-file)
(let ((reference-open-file (get-universal-time)))
(croatoan:end-screen)
(os-utils:open-with-editor temp-file)
(tui:with-notify-errors
(os-utils:open-with-editor temp-file))
(when (and (> (fs:file-size temp-file)
0)
(> (fs:get-stat-mtime temp-file)