klbr/khoj
1
0
Fork 0
mirror of https://github.com/khoaliber/khoj.git synced 2026-03-10 05:39:11 +00:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Debanjum Singh Solanky
2024-06-20 17:19:32 +05:30
parent 9262aea7a5
commit 59032a06d5
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/interface/emacs/khoj.el
View File

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