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

- [GUI] returned a more useful error message to user when an error occurred while refreshing posts from gemlogs.

Browse Source
This commit is contained in:
cage 2024-02-25 16:40:03 +01:00
parent 904fb6cf7e
commit cbcc7c294b
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/gui/server/public-api-gemini-gemlog.lisp
View File

@ -58,12 +58,16 @@
:contents table))) :contents table)))
(defun gemini-gemlog-refresh-subscription (gemlog-url) (defun gemini-gemlog-refresh-subscription (gemlog-url)
(list (cons "url" gemlog-url) (handler-case
(cons "new-posts" (gemini-subscription:refresh-subscription-low-level gemlog-url)))) (list (cons "url" gemlog-url)
(cons "new-posts" (gemini-subscription:refresh-subscription-low-level gemlog-url)))
(error (e)
(error (format nil (_ "Error getting posts from ~s: ~a") gemlog-url e)))))
(defclass gemini-gemlog-subscriptions-refreshed (box) ()) (defclass gemini-gemlog-subscriptions-refreshed (box) ())
(defmethod yason:encode ((object gemini-gemlog-subscriptions-refreshed) &optional (stream *standard-output*)) (defmethod yason:encode ((object gemini-gemlog-subscriptions-refreshed)
&optional (stream *standard-output*))
(encode-flat-array-of-plists (unbox object) stream)) (encode-flat-array-of-plists (unbox object) stream))
(defun gemini-gemlog-refresh-all-subscriptions () (defun gemini-gemlog-refresh-all-subscriptions ()