Improve defaults when extracting fields from online reference in khoj.el

This commit is contained in:
Debanjum Singh Solanky 2024-06-20 17:19:32 +05:30
parent 9262aea7a5
commit 59032a06d5

View file

@ -962,9 +962,9 @@ RECEIVE-DATE is the message receive date."
(defun khoj--generate-online-reference (reference)
"Create `org-mode' footnotes for online REFERENCE."
(setq khoj--reference-count (1+ khoj--reference-count))
(let ((link (cdr (assoc 'link reference)))
(title (cdr (assoc 'title reference)))
(description (cdr (assoc 'description reference))))
(let* ((link (cdr (assoc 'link reference)))
(title (or (cdr (assoc 'title reference)) link))
(description (or (cdr (assoc 'description reference)) title)))
(cons
(propertize (format "^{ [fn:%x]}" khoj--reference-count) 'help-echo (format "%s\n%s" link description))
(thread-last