klbr/khoj
1
0
Fork 0
mirror of https://github.com/khoaliber/khoj.git synced 2026-03-07 13:23:15 +00:00
Code Issues Packages Projects Releases Wiki Activity

Render foonote reference links as superscript for Khoj Chat on Emacs

Browse Source
This commit is contained in:
Debanjum Singh Solanky
2023-03-26 05:28:44 +07:00
parent 285a2b86d2
commit f6ff7b1beb
1 changed files with 18 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -360,13 +360,24 @@ Render results in BUFFER-NAME using QUERY, CONTENT-TYPE."
(mapcar #'khoj--render-chat-response) (mapcar #'khoj--render-chat-response)
;; insert chat messages into Khoj Chat Buffer ;; insert chat messages into Khoj Chat Buffer
(mapc #'insert)) (mapc #'insert))
(progn (org-mode) (progn
(visual-line-mode) (khoj--add-hover-text-to-footnote-refs (point-min))
(khoj--add-hover-text-to-footnote-refs (point-min))
(use-local-map (copy-keymap org-mode-map)) ;; render reference footnotes as superscript
(local-set-key (kbd "m") #'khoj--chat) (setq-local
(local-set-key (kbd "C-x m") #'khoj--chat) org-use-sub-superscripts '{}
(read-only-mode t))))) org-pretty-entities-include-sub-superscripts t
org-pretty-entities t)
;; create khoj chat shortcut keybindings
(use-local-map (copy-keymap org-mode-map))
(local-set-key (kbd "m") #'khoj--chat)
(local-set-key (kbd "C-x m") #'khoj--chat)
;; enable appropriate khoj chat major, minor modes
(org-mode)
(visual-line-mode)
(read-only-mode t)))))
(defun khoj--add-hover-text-to-footnote-refs (start-pos) (defun khoj--add-hover-text-to-footnote-refs (start-pos)
"Show footnote defs on mouse hover on footnote refs from START-POS." "Show footnote defs on mouse hover on footnote refs from START-POS."