sij/khoj
1
0
Fork 0
mirror of https://github.com/khoj-ai/khoj.git synced 2024-11-23 23:48:56 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions 16

Delete old conversation sessions from the chat menu in Khoj Emacs

Browse source
This commit is contained in:
Debanjum Singh Solanky 2024-06-13 08:29:51 +05:30
parent e3d995a74f
commit db056c896d
1 changed files with 18 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
src/interface/emacs/khoj.el
View file

@ -888,6 +888,17 @@ CBARGS are optional additional arguments to pass to CALLBACK."
(khoj--load-chat-session khoj--chat-buffer-name new-session-id) (khoj--load-chat-session khoj--chat-buffer-name new-session-id)
(khoj--open-side-pane khoj--chat-buffer-name))) (khoj--open-side-pane khoj--chat-buffer-name)))
(defun khoj--delete-chat-session (session-id)
"Delete new chat session."
(khoj--call-api "/api/chat/history" "DELETE" `(("conversation_id" ,session-id))))
(defun khoj--delete-conversation-session ()
"Delete new Khoj conversation session."
(let* ((selected-session-id (khoj--select-conversation-session "Delete"))
(session (khoj--delete-chat-session selected-session-id)))
(khoj--load-chat-session khoj--chat-buffer-name)
(khoj--open-side-pane khoj--chat-buffer-name)))
(defun khoj--render-chat-message (message sender &optional receive-date) (defun khoj--render-chat-message (message sender &optional receive-date)
"Render chat messages as `org-mode' list item. "Render chat messages as `org-mode' list item.
MESSAGE is the text of the chat message. MESSAGE is the text of the chat message.
@ -1208,12 +1219,19 @@ Paragraph only starts at first text after blank line."
(interactive (list (transient-args transient-current-command))) (interactive (list (transient-args transient-current-command)))
(khoj--new-conversation-session)) (khoj--new-conversation-session))
(transient-define-suffix khoj--delete-conversation-session-command (&optional _)
"Command to select Khoj conversation sessions to delete."
(interactive (list (transient-args transient-current-command)))
(khoj--delete-conversation-session))
(transient-define-prefix khoj--chat-menu () (transient-define-prefix khoj--chat-menu ()
"Open the Khoj chat menu." "Open the Khoj chat menu."
["Act" ["Act"
("c" "Chat" khoj--chat-command) ("c" "Chat" khoj--chat-command)
("o" "Open Conversation" khoj--open-conversation-session-command) ("o" "Open Conversation" khoj--open-conversation-session-command)
("n" "New Conversation" khoj--new-conversation-session-command) ("n" "New Conversation" khoj--new-conversation-session-command)
("d" "Delete Conversation" khoj--delete-conversation-session-command)
("q" "Quit" transient-quit-one)
]) ])
(transient-define-prefix khoj--menu () (transient-define-prefix khoj--menu ()