From 3fa7d8f03ae8be2b4d2327efb7fd670efa975223 Mon Sep 17 00:00:00 2001 From: Debanjum Singh Solanky Date: Wed, 27 Jul 2022 02:48:27 +0400 Subject: [PATCH] Skeleton to allow incremental search on Khoj via Emacs --- src/interface/emacs/khoj.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/src/interface/emacs/khoj.el b/src/interface/emacs/khoj.el index 33f6edaf..2c8c2691 100644 --- a/src/interface/emacs/khoj.el +++ b/src/interface/emacs/khoj.el @@ -122,6 +122,19 @@ (let ((encoded-query (url-hexify-string query))) (format "%s/search?q=%s&t=%s" khoj--server-url encoded-query search-type))) +(defun query-khoj (beg end len) + (let ((query (minibuffer-contents))) + (message "t"))) + +(defun remove-khoj () + (remove-hook 'after-change-functions #'query-khoj)) + +(minibuffer-with-setup-hook + (lambda () + (add-hook 'after-change-functions #'query-khoj) + (add-hook 'minibuffer-exit-hook #'remove-khoj)) + (read-string "Query: ")) + ;;;###autoload (defun khoj (query) "Search your content naturally using the Khoj API"