From 0b95071fe628d91238549b062961e724088d3b8b Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Tue, 26 Nov 2024 03:23:31 -0500 Subject: Update :4 --- src/gizmo/wasp-wikipedia.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src/gizmo/wasp-wikipedia.el') diff --git a/src/gizmo/wasp-wikipedia.el b/src/gizmo/wasp-wikipedia.el index aa226243..af69de07 100644 --- a/src/gizmo/wasp-wikipedia.el +++ b/src/gizmo/wasp-wikipedia.el @@ -32,7 +32,10 @@ Pass the resulting article summary to K." (lambda (&key data &allow-other-keys) (setq w/wikipedia-last-response data) - (if-let ((pages (car (ht-values (ht-get (ht-get w/wikipedia-last-response "query") "pages")))) + (if-let (((ht-p w/wikipedia-last-response)) + (query (ht-get w/wikipedia-last-response "query")) + (prepages (ht-get query "pages")) + (pages (car (ht-values prepages))) (ext (ht-get pages "extract")) (dom (with-temp-buffer (insert ext) (libxml-parse-html-region (point-min) (point-max)))) ) -- cgit v1.2.3