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

Fix loading an empty chat session in Emacs

Browse Source
This commit is contained in:
Debanjum Singh Solanky
2024-06-12 22:49:47 +05:30
parent e21c0648ae
commit c33954cd93
1 changed files with 11 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -755,16 +755,17 @@ Render results in BUFFER-NAME using search results, CONTENT-TYPE and (optional)
"Load Khoj Chat conversation history into BUFFER-NAME." "Load Khoj Chat conversation history into BUFFER-NAME."
(setq khoj--reference-count 0) (setq khoj--reference-count 0)
(let ((inhibit-read-only t) (let ((inhibit-read-only t)
(json-response (cdr (elt (cdr (assoc 'response (khoj--get-chat-session session-id))) 0)))) (json-response (cdr (assoc 'chat (cdr (assoc 'response (khoj--get-chat-session session-id)))))))
(with-current-buffer (get-buffer-create buffer-name) (with-current-buffer (get-buffer-create buffer-name)
(erase-buffer) (erase-buffer)
(insert "* Khoj Chat\n") (insert "* Khoj Chat\n")
(thread-last (when json-response
json-response (thread-last
;; generate chat messages from Khoj Chat API response json-response
(mapcar #'khoj--format-chat-response) ;; generate chat messages from Khoj Chat API response
;; insert chat messages into Khoj Chat Buffer (mapcar #'khoj--format-chat-response)
(mapc #'insert)) ;; insert chat messages into Khoj Chat Buffer
(mapc #'insert)))
(progn (progn
(org-mode) (org-mode)
(khoj--add-hover-text-to-footnote-refs (point-min)) (khoj--add-hover-text-to-footnote-refs (point-min))
@@ -846,7 +847,9 @@ CBARGS are optional additional arguments to pass to CALLBACK."
"Menu to select Khoj conversation session to open." "Menu to select Khoj conversation session to open."
(let* ((sessions (khoj--get-chat-sessions)) (let* ((sessions (khoj--get-chat-sessions))
(session-alist (-map (lambda (session) (session-alist (-map (lambda (session)
(cons (cdr (assoc 'slug session)) (cons (if (not (equal :null (cdr (assoc 'slug session))))
(cdr (assoc 'slug session))
(format "New Conversation (%s)" (cdr (assoc 'conversation_id session))))
(cdr (assoc 'conversation_id session)))) (cdr (assoc 'conversation_id session))))
sessions)) sessions))
(selected-session-slug (completing-read "Open Conversation: " session-alist nil t)) (selected-session-slug (completing-read "Open Conversation: " session-alist nil t))