diff options
| author | LLLL Colonq <llll@colonq> | 2024-11-26 03:23:31 -0500 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2024-11-26 03:23:31 -0500 |
| commit | 0b95071fe628d91238549b062961e724088d3b8b (patch) | |
| tree | b4cf3ae960e0b52ed014ab4ba423fda1075e5d60 /src/gizmo/wasp-wikipedia.el | |
| parent | 6e3c47b1ad746f0891592a97cc6ffb6e0280adbb (diff) | |
Update :4
Diffstat (limited to 'src/gizmo/wasp-wikipedia.el')
| -rw-r--r-- | src/gizmo/wasp-wikipedia.el | 5 |
1 files changed, 4 insertions, 1 deletions
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)))) ) |