diff --git a/src/gui/server/public-api-gemini-gemlog.lisp b/src/gui/server/public-api-gemini-gemlog.lisp index 67376a3..5b9256c 100644 --- a/src/gui/server/public-api-gemini-gemlog.lisp +++ b/src/gui/server/public-api-gemini-gemlog.lisp @@ -58,12 +58,16 @@ :contents table))) (defun gemini-gemlog-refresh-subscription (gemlog-url) - (list (cons "url" gemlog-url) - (cons "new-posts" (gemini-subscription:refresh-subscription-low-level gemlog-url)))) + (handler-case + (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) ()) -(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)) (defun gemini-gemlog-refresh-all-subscriptions ()