diff options
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)))) ) |