diff --git a/src/interface/emacs/khoj.el b/src/interface/emacs/khoj.el index ce46c23c..d1fa286b 100644 --- a/src/interface/emacs/khoj.el +++ b/src/interface/emacs/khoj.el @@ -993,13 +993,15 @@ RECEIVE-DATE is the message receive date." (lambda (search-result) (-map (lambda (entry) - (let ((link (cdr (or (assoc 'link entry) (assoc 'descriptionLink entry)))) - (title (cdr (or (assoc 'title entry) '(title . ,link)))) - (description (cdr (or (assoc 'snippet entry) (assoc 'description entry))))) + (let* ((link (cdr (or (assoc 'link entry) (assoc 'descriptionLink entry)))) + (title (cdr (or (assoc 'title entry) `(title . ,link)))) + (description (cdr (or (assoc 'snippet entry) (assoc 'description entry))))) (setq result (append result `(((title . ,title) (link . ,link) (description . ,description) (search . ,search-q))))))) ;; wrap search results in a list if it is not already a list (if (or (equal 'knowledgeGraph (car search-result)) (equal 'webpages (car search-result))) - (list (cdr search-result)) + (if (arrayp (cdr search-result)) + (list (elt (cdr search-result) 0)) + (list (cdr search-result))) (cdr search-result)))) search-results))) query-result-pairs)