From cbcc7c294b0737824614fe306bfc0dc30062be50 Mon Sep 17 00:00:00 2001 From: cage Date: Sun, 25 Feb 2024 16:40:03 +0100 Subject: [PATCH] - [GUI] returned a more useful error message to user when an error occurred while refreshing posts from gemlogs. --- src/gui/server/public-api-gemini-gemlog.lisp | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) 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 ()