From 2647e6bab428ebe923d24d3fcde7b9e6140ae2af Mon Sep 17 00:00:00 2001
From: Debanjum Singh Solanky <debanjum@gmail.com>
Date: Mon, 15 Aug 2022 18:41:12 +0300
Subject: [PATCH] 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
---
 src/interface/emacs/khoj.el | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/src/interface/emacs/khoj.el b/src/interface/emacs/khoj.el
index e3907db4..9a76a2bf 100644
--- a/src/interface/emacs/khoj.el
+++ b/src/interface/emacs/khoj.el
@@ -107,6 +107,7 @@
      (when (member 'music enabled-content-types)
        "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-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"))
@@ -285,15 +286,24 @@ Render results in BUFFER-NAME."
     ;;   1. user hasn't started typing query
     ;;   2. during recursive edits
     ;;   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
         (when rerank
+          (setq khoj--rerank t)
           (message "Khoj: Rerank Results"))
         (khoj--query-api-and-render-results
          query
          khoj--search-type
          query-url
-         khoj-buffer-name)))))
+         khoj-buffer-name))))))
 
 (defun khoj--delete-open-network-connections-to-server ()
   "Delete all network connections to khoj server."