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

Fix comments, func calls based on melpazoid, checkdoc, package-lint

Browse Source
This commit is contained in:
Debanjum Singh Solanky
2024-06-20 17:08:42 +05:30
parent 0afe66ac39
commit 9262aea7a5
1 changed files with 86 additions and 63 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -163,20 +163,18 @@ NO-PAGING FILTER))
(defun khoj--keybindings-info-message () (defun khoj--keybindings-info-message ()
"Show available khoj keybindings in-context, when khoj invoked." "Show available khoj keybindings in-context, when khoj invoked."
(let ((enabled-content-types (khoj--get-enabled-content-types))) (concat
(concat "
"
Set Content Type Set Content Type
-------------------------\n" -------------------------\n"
("C-c RET | improve sort \n")))) "C-c RET | improve sort \n"))
(defvar khoj--rerank nil "Track when re-rank of results triggered.") (defvar khoj--rerank nil "Track when re-rank of results triggered.")
(defvar khoj--reference-count 0 "Track number of references currently in chat bufffer.") (defvar khoj--reference-count 0 "Track number of references currently in chat bufffer.")
(defun khoj--improve-sort () "Use cross-encoder to improve sorting of search results." (interactive) (khoj--incremental-search t)) (defun khoj--improve-sort () "Use cross-encoder to improve sorting of search results." (interactive) (khoj--incremental-search t))
(defun khoj--make-search-keymap (&optional existing-keymap) (defun khoj--make-search-keymap (&optional existing-keymap)
"Setup keymap to configure Khoj search. Build of EXISTING-KEYMAP when passed." "Setup keymap to configure Khoj search. Build of EXISTING-KEYMAP when passed."
(let ((enabled-content-types (khoj--get-enabled-content-types)) (let ((kmap (or existing-keymap (make-sparse-keymap))))
(kmap (or existing-keymap (make-sparse-keymap))))
(define-key kmap (kbd "C-c RET") #'khoj--improve-sort) (define-key kmap (kbd "C-c RET") #'khoj--improve-sort)
kmap)) kmap))
@@ -249,12 +247,12 @@ for example), set this to the full interpreter path."
(make-obsolete-variable 'khoj-org-files 'khoj-index-files "1.2.0" 'set) (make-obsolete-variable 'khoj-org-files 'khoj-index-files "1.2.0" 'set)
(defcustom khoj-index-files (org-agenda-files t t) (defcustom khoj-index-files (org-agenda-files t t)
"List of org, markdown, pdf and other plaintext to index on khoj server." "List of org, md, text, pdf to index on khoj server."
:type '(repeat string) :type '(repeat string)
:group 'khoj) :group 'khoj)
(defcustom khoj-index-directories nil (defcustom khoj-index-directories nil
"List of directories with org, markdown, pdf and other plaintext files to index on khoj server." "List of directories with org, md, text, pdf to index on khoj server."
:type '(repeat string) :type '(repeat string)
:group 'khoj) :group 'khoj)
@@ -503,13 +501,15 @@ Use `BOUNDARY' to separate files. This is sent to Khoj server as a POST request.
;; ------------------------------------------- ;; -------------------------------------------
;; Render Response from Khoj server for Emacs ;; Render Response from Khoj server for Emacs
;; ------------------------------------------- ;; -------------------------------------------
(defun construct-find-similar-title (query) (defun khoj--construct-find-similar-title (query)
"Construct title for find-similar query." "Construct title for find-similar QUERY."
(format "Similar to: %s" (format "Similar to: %s"
(replace-regexp-in-string "^[#\\*]* " "" (car (split-string query "\n"))))) (replace-regexp-in-string "^[#\\*]* " "" (car (split-string query "\n")))))
(defun khoj--extract-entries-as-markdown (json-response query is-find-similar) (defun khoj--extract-entries-as-markdown (json-response query is-find-similar)
"Convert JSON-RESPONSE, QUERY from API to markdown entries." "Convert JSON-RESPONSE, QUERY from API to markdown entries.
Use IS-FIND-SIMILAR bool to filter out first result.
As first result is the current entry at point."
(thread-last (thread-last
json-response json-response
;; filter our first result if is find similar as it'll be the current entry at point ;; filter our first result if is find similar as it'll be the current entry at point
@@ -524,13 +524,14 @@ Use `BOUNDARY' to separate files. This is sent to Khoj server as a POST request.
;; Standardize results to 2nd level heading for consistent rendering ;; Standardize results to 2nd level heading for consistent rendering
(replace-regexp-in-string "^\#+" "##")))) (replace-regexp-in-string "^\#+" "##"))))
;; Render entries into markdown formatted string with query set as as top level heading ;; Render entries into markdown formatted string with query set as as top level heading
(format "# %s\n%s" (if is-find-similar (construct-find-similar-title query) query)) (format "# %s\n%s" (if is-find-similar (khoj--construct-find-similar-title query) query))
;; remove leading (, ) or SPC from extracted entries string ;; remove leading (, ) or SPC from extracted entries string
(replace-regexp-in-string "^[\(\) ]" ""))) (replace-regexp-in-string "^[\(\) ]" "")))
(defun khoj--extract-entries-as-org (json-response query is-find-similar) (defun khoj--extract-entries-as-org (json-response query is-find-similar)
"Convert JSON-RESPONSE, QUERY from API to `org-mode' entries. "Convert JSON-RESPONSE, QUERY from API to `org-mode' entries.
Use IS-FIND-SIMILAR to determine if results should be ." Use IS-FIND-SIMILAR bool to filter out first result.
As first result is the current entry at point."
(thread-last (thread-last
json-response json-response
;; filter our first result if is find similar as it'll be the current entry at point ;; filter our first result if is find similar as it'll be the current entry at point
@@ -545,12 +546,14 @@ Use IS-FIND-SIMILAR to determine if results should be ."
;; Standardize results to 2nd level heading for consistent rendering ;; Standardize results to 2nd level heading for consistent rendering
(replace-regexp-in-string "^\*+" "**")))) (replace-regexp-in-string "^\*+" "**"))))
;; Render entries into org formatted string with query set as as top level heading ;; Render entries into org formatted string with query set as as top level heading
(format "* %s\n%s\n" (if is-find-similar (construct-find-similar-title query) query)) (format "* %s\n%s\n" (if is-find-similar (khoj--construct-find-similar-title query) query))
;; remove leading (, ) or SPC from extracted entries string ;; remove leading (, ) or SPC from extracted entries string
(replace-regexp-in-string "^[\(\) ]" ""))) (replace-regexp-in-string "^[\(\) ]" "")))
(defun khoj--extract-entries-as-pdf (json-response query is-find-similar) (defun khoj--extract-entries-as-pdf (json-response query is-find-similar)
"Convert QUERY, JSON-RESPONSE from API with PDF results to `org-mode' entries." "Convert JSON-RESPONSE, QUERY from API to PDF entries.
Use IS-FIND-SIMILAR bool to filter out first result.
As first result is the current entry at point."
(thread-last (thread-last
json-response json-response
;; filter our first result if is find similar as it'll be the current entry at point ;; filter our first result if is find similar as it'll be the current entry at point
@@ -563,7 +566,7 @@ Use IS-FIND-SIMILAR to determine if results should be ."
;; Format pdf entry as a org entry string ;; Format pdf entry as a org entry string
(format "** %s\n\n")))) (format "** %s\n\n"))))
;; Render entries into org formatted string with query set as as top level heading ;; Render entries into org formatted string with query set as as top level heading
(format "* %s\n%s\n" (if is-find-similar (construct-find-similar-title query) query)) (format "* %s\n%s\n" (if is-find-similar (khoj--construct-find-similar-title query) query))
;; remove leading (, ) or SPC from extracted entries string ;; remove leading (, ) or SPC from extracted entries string
(replace-regexp-in-string "^[\(\) ]" ""))) (replace-regexp-in-string "^[\(\) ]" "")))
@@ -596,7 +599,9 @@ Use IS-FIND-SIMILAR to determine if results should be ."
(replace-regexp-in-string "[\(\) ]$" "")))) (replace-regexp-in-string "[\(\) ]$" ""))))
(defun khoj--extract-entries (json-response query is-find-similar) (defun khoj--extract-entries (json-response query is-find-similar)
"Convert JSON-RESPONSE, QUERY from API to text entries." "Convert JSON-RESPONSE, QUERY from API to text entries.
Use IS-FIND-SIMILAR bool to filter out first result.
As first result is the current entry at point."
(thread-last json-response (thread-last json-response
;; filter our first result if is find similar as it'll be the current entry at point ;; filter our first result if is find similar as it'll be the current entry at point
((lambda (response) (if is-find-similar (seq-drop response 1) response))) ((lambda (response) (if is-find-similar (seq-drop response 1) response)))
@@ -613,7 +618,7 @@ Use IS-FIND-SIMILAR to determine if results should be ."
;; Format entries as org entry string ;; Format entries as org entry string
(format "** %s")))) (format "** %s"))))
;; Set query as heading in rendered results buffer ;; Set query as heading in rendered results buffer
(format "* %s\n%s\n" (if is-find-similar (construct-find-similar-title query) query)) (format "* %s\n%s\n" (if is-find-similar (khoj--construct-find-similar-title query) query))
;; remove leading (, ) or SPC from extracted entries string ;; remove leading (, ) or SPC from extracted entries string
(replace-regexp-in-string "^[\(\) ]" "") (replace-regexp-in-string "^[\(\) ]" "")
;; remove trailing (, ) or SPC from extracted entries string ;; remove trailing (, ) or SPC from extracted entries string
@@ -629,13 +634,30 @@ Use IS-FIND-SIMILAR to determine if results should be ."
((and (member 'markdown enabled-content-types) (or (equal file-extension "markdown") (equal file-extension "md"))) "markdown") ((and (member 'markdown enabled-content-types) (or (equal file-extension "markdown") (equal file-extension "md"))) "markdown")
(t khoj-default-content-type)))) (t khoj-default-content-type))))
(defun khoj--org-cycle-content (&optional arg)
"Show all headlines in the buffer, like a table of contents.
With numerical argument ARG, show content up to level ARG.
Simplified fork of `org-cycle-content' from Emacs 29.1 to work with >=27.1."
(interactive "p")
(save-excursion
(goto-char (point-max))
(let ((regexp (if (and (wholenump arg) (> arg 0))
(format "^\\*\\{1,%d\\} " arg)
"^\\*+ "))
(last (point)))
(while (re-search-backward regexp nil t)
(org-fold-region (line-end-position) last t 'outline)
(setq last (line-end-position 0))))))
;; -------------- ;; --------------
;; Query Khoj API ;; Query Khoj API
;; -------------- ;; --------------
(defun khoj--call-api (path &optional method params callback &rest cbargs) (defun khoj--call-api (path &optional method params callback &rest cbargs)
"Sync call API at PATH with METHOD and query PARAMS as kv assoc list. "Sync call API at PATH with METHOD and query PARAMS as kv assoc list.
Return json parsed response as alist." Optionally apply CALLBACK with JSON parsed response and CBARGS."
(let* ((url-request-method (or method "GET")) (let* ((url-request-method (or method "GET"))
(url-request-extra-headers `(("Authorization" . ,(format "Bearer %s" khoj-api-key)))) (url-request-extra-headers `(("Authorization" . ,(format "Bearer %s" khoj-api-key))))
(param-string (if params (url-build-query-string params) "")) (param-string (if params (url-build-query-string params) ""))
@@ -654,7 +676,7 @@ Return json parsed response as alist."
(defun khoj--call-api-async (path &optional method params callback &rest cbargs) (defun khoj--call-api-async (path &optional method params callback &rest cbargs)
"Async call to API at PATH with METHOD and query PARAMS as kv assoc list. "Async call to API at PATH with METHOD and query PARAMS as kv assoc list.
Return json parsed response as alist." Optionally apply CALLBACK with JSON parsed response and CBARGS."
(let* ((url-request-method (or method "GET")) (let* ((url-request-method (or method "GET"))
(url-request-extra-headers `(("Authorization" . ,(format "Bearer %s" khoj-api-key)))) (url-request-extra-headers `(("Authorization" . ,(format "Bearer %s" khoj-api-key))))
(param-string (if params (url-build-query-string params) "")) (param-string (if params (url-build-query-string params) ""))
@@ -678,11 +700,12 @@ Return json parsed response as alist."
(khoj--call-api "/api/config/types" "GET" nil `(lambda (item) (mapcar #'intern item)))) (khoj--call-api "/api/config/types" "GET" nil `(lambda (item) (mapcar #'intern item))))
(defun khoj--query-search-api-and-render-results (query content-type buffer-name &optional rerank is-find-similar) (defun khoj--query-search-api-and-render-results (query content-type buffer-name &optional rerank is-find-similar)
"Query Khoj Search API with QUERY, CONTENT-TYPE and (optional) RERANK as query params "Query Khoj Search API with QUERY, CONTENT-TYPE and RERANK as query params.
Render results in BUFFER-NAME using search results, CONTENT-TYPE and (optional) TITLE." Render search results in BUFFER-NAME using CONTENT-TYPE and QUERY.
(let ((rerank (or rerank "false")) Filter out first similar result if IS-FIND-SIMILAR set."
(params `((q ,query) (t ,content-type) (r ,rerank) (n ,khoj-results-count))) (let* ((rerank (or rerank "false"))
(path "/api/search")) (params `((q ,query) (t ,content-type) (r ,rerank) (n ,khoj-results-count)))
(path "/api/search"))
(khoj--call-api-async path (khoj--call-api-async path
"GET" "GET"
params params
@@ -690,6 +713,8 @@ Render results in BUFFER-NAME using search results, CONTENT-TYPE and (optional)
content-type query buffer-name is-find-similar))) content-type query buffer-name is-find-similar)))
(defun khoj--render-search-results (json-response content-type query buffer-name &optional is-find-similar) (defun khoj--render-search-results (json-response content-type query buffer-name &optional is-find-similar)
"Render search results in BUFFER-NAME using JSON-RESPONSE, CONTENT-TYPE, QUERY.
Filter out first similar result if IS-FIND-SIMILAR set."
;; render json response into formatted entries ;; render json response into formatted entries
(with-current-buffer buffer-name (with-current-buffer buffer-name
(let ((is-find-similar (or is-find-similar nil)) (let ((is-find-similar (or is-find-similar nil))
@@ -699,7 +724,7 @@ Render results in BUFFER-NAME using search results, CONTENT-TYPE and (optional)
(cond ((equal content-type "org") (khoj--extract-entries-as-org json-response query is-find-similar)) (cond ((equal content-type "org") (khoj--extract-entries-as-org json-response query is-find-similar))
((equal content-type "markdown") (khoj--extract-entries-as-markdown json-response query is-find-similar)) ((equal content-type "markdown") (khoj--extract-entries-as-markdown json-response query is-find-similar))
((equal content-type "pdf") (khoj--extract-entries-as-pdf json-response query is-find-similar)) ((equal content-type "pdf") (khoj--extract-entries-as-pdf json-response query is-find-similar))
((equal content-type "image") (khoj--extract-entries-as-images json-response)) ((equal content-type "image") (khoj--extract-entries-as-images json-response query))
(t (khoj--extract-entries json-response query is-find-similar)))) (t (khoj--extract-entries json-response query is-find-similar))))
(cond ((or (equal content-type "all") (cond ((or (equal content-type "all")
(equal content-type "pdf") (equal content-type "pdf")
@@ -709,7 +734,7 @@ Render results in BUFFER-NAME using search results, CONTENT-TYPE and (optional)
(setq-local (setq-local
org-hide-leading-stars t org-hide-leading-stars t
org-startup-with-inline-images t) org-startup-with-inline-images t)
(org-cycle-content 2))) (khoj--org-cycle-content 2)))
((equal content-type "markdown") (progn (markdown-mode) ((equal content-type "markdown") (progn (markdown-mode)
(visual-line-mode))) (visual-line-mode)))
((equal content-type "image") (progn (shr-render-region (point-min) (point-max)) ((equal content-type "image") (progn (shr-render-region (point-min) (point-max))
@@ -730,8 +755,7 @@ Render results in BUFFER-NAME using search results, CONTENT-TYPE and (optional)
"Chat with Khoj." "Chat with Khoj."
(interactive) (interactive)
(when (not (get-buffer khoj--chat-buffer-name)) (when (not (get-buffer khoj--chat-buffer-name))
(khoj--load-chat-session khoj--chat-buffer-name)) (khoj--load-chat-session khoj--chat-buffer-name))
(khoj--open-side-pane khoj--chat-buffer-name)
(let ((query (read-string "Query: "))) (let ((query (read-string "Query: ")))
(when (not (string-empty-p query)) (when (not (string-empty-p query))
(khoj--query-chat-api-and-render-messages query khoj--chat-buffer-name)))) (khoj--query-chat-api-and-render-messages query khoj--chat-buffer-name))))
@@ -761,27 +785,27 @@ Render results in BUFFER-NAME using search results, CONTENT-TYPE and (optional)
(window-resize khoj-window (window-resize khoj-window
(- (truncate (* 0.33 (frame-width))) (window-width)) (- (truncate (* 0.33 (frame-width))) (window-width))
t))))) t)))))
(goto-char (point-min)))) (goto-char (point-max))))
(defun khoj--load-chat-session (buffer-name &optional session-id) (defun khoj--load-chat-session (buffer-name &optional session-id)
"Load Khoj Chat conversation history into BUFFER-NAME." "Load Khoj Chat conversation history from SESSION-ID 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 (assoc 'chat (cdr (assoc 'response (khoj--get-chat-session session-id))))))) (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)
(insert "* Khoj Chat\n")
(when json-response
(thread-last
json-response
;; generate chat messages from Khoj Chat API response
(mapcar #'khoj--format-chat-response)
;; insert chat messages into Khoj Chat Buffer
(mapc #'insert)))
(progn (progn
(erase-buffer)
(insert "* Khoj Chat\n")
(when json-response
(thread-last
json-response
;; generate chat messages from Khoj Chat API response
(mapcar #'khoj--format-chat-response)
;; insert chat messages into Khoj Chat Buffer
(mapc #'insert)))
(org-mode) (org-mode)
(khoj--add-hover-text-to-footnote-refs (point-min)) ;; commented add-hover-text func due to perf issues with the implementation
;;(khoj--add-hover-text-to-footnote-refs (point-min))
;; render reference footnotes as superscript ;; render reference footnotes as superscript
(setq-local (setq-local
org-startup-folded "showall" org-startup-folded "showall"
@@ -799,10 +823,11 @@ Render results in BUFFER-NAME using search results, CONTENT-TYPE and (optional)
;; enable minor modes for khoj chat ;; enable minor modes for khoj chat
(visual-line-mode) (visual-line-mode)
(read-only-mode t))))) (read-only-mode t)))
(khoj--open-side-pane buffer-name)))
(defun khoj--close () (defun khoj--close ()
"Kill Khoj buffer and window" "Kill Khoj buffer and window."
(interactive) (interactive)
(progn (progn
(kill-buffer (current-buffer)) (kill-buffer (current-buffer))
@@ -846,8 +871,7 @@ Render results in BUFFER-NAME using search results, CONTENT-TYPE and (optional)
#'khoj--render-chat-response buffer-name)))) #'khoj--render-chat-response buffer-name))))
(defun khoj--query-chat-api (query callback &rest cbargs) (defun khoj--query-chat-api (query callback &rest cbargs)
"Send QUERY to Khoj Chat API and call CALLBACK with the response. "Send QUERY to Khoj Chat API and call CALLBACK with the response and CBARGS."
CBARGS are optional additional arguments to pass to CALLBACK."
(khoj--call-api-async "/api/chat" (khoj--call-api-async "/api/chat"
"GET" "GET"
`(("q" ,query) ("n" ,khoj-results-count)) `(("q" ,query) ("n" ,khoj-results-count))
@@ -879,8 +903,7 @@ CBARGS are optional additional arguments to pass to CALLBACK."
(defun khoj--open-conversation-session () (defun khoj--open-conversation-session ()
"Menu to select Khoj conversation session to open." "Menu to select Khoj conversation session to open."
(let ((selected-session-id (khoj--select-conversation-session "Open"))) (let ((selected-session-id (khoj--select-conversation-session "Open")))
(khoj--load-chat-session khoj--chat-buffer-name selected-session-id) (khoj--load-chat-session khoj--chat-buffer-name selected-session-id)))
(khoj--open-side-pane khoj--chat-buffer-name)))
(defun khoj--create-chat-session () (defun khoj--create-chat-session ()
"Create new chat session." "Create new chat session."
@@ -890,19 +913,17 @@ CBARGS are optional additional arguments to pass to CALLBACK."
"Create new Khoj conversation session." "Create new Khoj conversation session."
(let* ((session (khoj--create-chat-session)) (let* ((session (khoj--create-chat-session))
(new-session-id (cdr (assoc 'conversation_id session)))) (new-session-id (cdr (assoc 'conversation_id session))))
(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)))
(defun khoj--delete-chat-session (session-id) (defun khoj--delete-chat-session (session-id)
"Delete new chat session." "Delete chat session with SESSION-ID."
(khoj--call-api "/api/chat/history" "DELETE" `(("conversation_id" ,session-id)))) (khoj--call-api "/api/chat/history" "DELETE" `(("conversation_id" ,session-id))))
(defun khoj--delete-conversation-session () (defun khoj--delete-conversation-session ()
"Delete new Khoj conversation session." "Delete new Khoj conversation session."
(let* ((selected-session-id (khoj--select-conversation-session "Delete")) (let* ((selected-session-id (khoj--select-conversation-session "Delete"))
(session (khoj--delete-chat-session selected-session-id))) (session (khoj--delete-chat-session selected-session-id)))
(khoj--load-chat-session khoj--chat-buffer-name) (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.
@@ -939,6 +960,7 @@ RECEIVE-DATE is the message receive date."
(format "\n[fn:%x] %s" khoj--reference-count))))) (format "\n[fn:%x] %s" khoj--reference-count)))))
(defun khoj--generate-online-reference (reference) (defun khoj--generate-online-reference (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 (cdr (assoc 'title reference)))
@@ -951,8 +973,8 @@ RECEIVE-DATE is the message receive date."
(replace-regexp-in-string "\n\n" "\n") (replace-regexp-in-string "\n\n" "\n")
(format "\n[fn:%x] [[%s][%s]]\n%s\n" khoj--reference-count link title))))) (format "\n[fn:%x] [[%s][%s]]\n%s\n" khoj--reference-count link title)))))
(defun khoj--extract-online-references (result-types searches) (defun khoj--extract-online-references (result-types query-result-pairs)
"Extract link, title, and description of specified RESULT-TYPES from SEARCHES." "Extract link, title and description from RESULT-TYPES in QUERY-RESULT-PAIRS."
(let ((result '())) (let ((result '()))
(-map (-map
(lambda (search) (lambda (search)
@@ -974,10 +996,11 @@ RECEIVE-DATE is the message receive date."
(list (cdr search-result)) (list (cdr search-result))
(cdr search-result)))) (cdr search-result))))
search-results))) search-results)))
searches) query-result-pairs)
result)) result))
(defun khoj--render-chat-response (response buffer-name) (defun khoj--render-chat-response (response buffer-name)
"Insert chat message from RESPONSE into BUFFER-NAME."
(with-current-buffer (get-buffer buffer-name) (with-current-buffer (get-buffer buffer-name)
(let ((start-pos (point)) (let ((start-pos (point))
(inhibit-read-only t)) (inhibit-read-only t))
@@ -991,7 +1014,8 @@ RECEIVE-DATE is the message receive date."
(re-search-backward "^\*+ 🏮" nil t))))) (re-search-backward "^\*+ 🏮" nil t)))))
(defun khoj--format-chat-response (json-response &optional callback &rest cbargs) (defun khoj--format-chat-response (json-response &optional callback &rest cbargs)
"Render chat message using JSON-RESPONSE from Khoj Chat API." "Format chat message using JSON-RESPONSE from Khoj Chat API.
Run CALLBACK with CBARGS on formatted message."
(let* ((message (cdr (or (assoc 'response json-response) (assoc 'message json-response)))) (let* ((message (cdr (or (assoc 'response json-response) (assoc 'message json-response))))
(sender (cdr (assoc 'by json-response))) (sender (cdr (assoc 'by json-response)))
(receive-date (cdr (assoc 'created json-response))) (receive-date (cdr (assoc 'created json-response)))
@@ -1170,20 +1194,19 @@ Paragraph only starts at first text after blank line."
"Call find similar on current element, if point has moved to a new element." "Call find similar on current element, if point has moved to a new element."
;; Call find similar ;; Call find similar
(when (and (derived-mode-p 'org-mode) (when (and (derived-mode-p 'org-mode)
(not (null (org-element-at-point))) (org-element-at-point)
(not (string= (buffer-name (current-buffer)) khoj--search-buffer-name)) (not (string= (buffer-name (current-buffer)) khoj--search-buffer-name))
(not (null (get-buffer-window khoj--search-buffer-name)))) (get-buffer-window khoj--search-buffer-name))
(let ((current-heading-pos (khoj--get-current-outline-entry-pos))) (let ((current-heading-pos (khoj--get-current-outline-entry-pos)))
(unless (eq current-heading-pos khoj--last-heading-pos) (unless (eq current-heading-pos khoj--last-heading-pos)
(progn
(setq khoj--last-heading-pos current-heading-pos) (setq khoj--last-heading-pos current-heading-pos)
(khoj--find-similar)))))) (khoj--find-similar)))))
(defun khoj--setup-auto-find-similar () (defun khoj--setup-auto-find-similar ()
"Setup automatic call to find similar to current element." "Setup automatic call to find similar to current element."
(if khoj-auto-find-similar (if khoj-auto-find-similar
(add-hook 'post-command-hook 'khoj--auto-find-similar) (add-hook 'post-command-hook #'khoj--auto-find-similar)
(remove-hook 'post-command-hook 'khoj--auto-find-similar))) (remove-hook 'post-command-hook #'khoj--auto-find-similar)))
(defun khoj-toggle-auto-find-similar () (defun khoj-toggle-auto-find-similar ()
"Toggle automatic call to find similar to current element." "Toggle automatic call to find similar to current element."