From c7c32a7467db5a0e7ec0d24f0d198d4295ccaed0 Mon Sep 17 00:00:00 2001 From: Debanjum Singh Solanky Date: Sun, 23 Jun 2024 08:12:13 +0530 Subject: [PATCH] Improve online chat reference extraction in Khoj.el Emacs package - Handle online references with no title - Improve handling references which are arrays instead of lists --- src/interface/emacs/khoj.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) 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)