cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-17 08:10:36 +01:00
Code Issues

- used an error message instead of a notification when opening a file that does not exists (thanks op\!).

Browse Source
This commit is contained in:
cage 2021-11-12 20:27:11 +01:00
parent ebddc9e1e6
commit 01eef29432
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/program-events.lisp
View File

@ -1204,15 +1204,17 @@
(ui:add-links-to-tour local-links) (ui:add-links-to-tour local-links)
(gemini-viewer:push-url-to-history window local-path))) (gemini-viewer:push-url-to-history window local-path)))
(t (t
(let* ((file-string (fs:slurp-file local-path)) (handler-case
(parent-dir (fs:parent-dir-path local-path)) (let* ((file-string (fs:slurp-file local-path))
(event (make-instance 'gemini-display-data-page (parent-dir (fs:parent-dir-path local-path))
:local-path parent-dir (event (make-instance 'gemini-display-data-page
:window window :local-path parent-dir
:payload file-string))) :window window
(let ((*process-events-immediately* t)) :payload file-string)))
(push-event event)) (let ((*process-events-immediately* t))
(gemini-viewer:push-url-to-history window local-path)))))))) (push-event event))
(gemini-viewer:push-url-to-history window local-path))
(error (e) (ui:error-message (format nil "~a" e))))))))))
(defclass gemini-back-event (program-event) ()) (defclass gemini-back-event (program-event) ())