Display re-ranked results triggered via keybinding in khoj.el

- Prevent immediate overwrite of re-ranked results by
  incremental-search without rerank triggered via post-command-hook.

- This triggers right after the reranking results are rendered, so
  user never ends up seeing them
This commit is contained in:
Debanjum Singh Solanky
2022-08-15 18:41:12 +03:00
parent 7421ef2724
commit 2647e6bab4

View File

@@ -107,6 +107,7 @@
(when (member 'music enabled-content-types) (when (member 'music enabled-content-types)
"C-x M | music\n")))) "C-x M | music\n"))))
(defvar khoj--rerank nil "Track when re-rank of results triggered")
(defun khoj--search-markdown () "Set search-type to 'markdown'." (interactive) (setq khoj--search-type "markdown")) (defun khoj--search-markdown () "Set search-type to 'markdown'." (interactive) (setq khoj--search-type "markdown"))
(defun khoj--search-org () "Set search-type to 'org-mode'." (interactive) (setq khoj--search-type "org")) (defun khoj--search-org () "Set search-type to 'org-mode'." (interactive) (setq khoj--search-type "org"))
(defun khoj--search-ledger () "Set search-type to 'ledger'." (interactive) (setq khoj--search-type "ledger")) (defun khoj--search-ledger () "Set search-type to 'ledger'." (interactive) (setq khoj--search-type "ledger"))
@@ -285,15 +286,24 @@ Render results in BUFFER-NAME."
;; 1. user hasn't started typing query ;; 1. user hasn't started typing query
;; 2. during recursive edits ;; 2. during recursive edits
;; 3. with contents of other buffers user may jump to ;; 3. with contents of other buffers user may jump to
(when (and (not (equal query "")) (active-minibuffer-window) (equal (current-buffer) khoj--minibuffer-window)) ;; 4. search not triggered right after rerank
;; ignore to not overwrite reranked results before the user even sees them
(if khoj--rerank
(setq khoj--rerank nil)
(when
(and
(not (equal query ""))
(active-minibuffer-window)
(equal (current-buffer) khoj--minibuffer-window))
(progn (progn
(when rerank (when rerank
(setq khoj--rerank t)
(message "Khoj: Rerank Results")) (message "Khoj: Rerank Results"))
(khoj--query-api-and-render-results (khoj--query-api-and-render-results
query query
khoj--search-type khoj--search-type
query-url query-url
khoj-buffer-name))))) khoj-buffer-name))))))
(defun khoj--delete-open-network-connections-to-server () (defun khoj--delete-open-network-connections-to-server ()
"Delete all network connections to khoj server." "Delete all network connections to khoj server."