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

Keep name of buffer for Khoj results in a variable

Browse Source
This commit is contained in:
Debanjum Singh Solanky
2022-08-05 17:31:46 +03:00
parent 0a5c6d067a
commit cc9a395e0a
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -65,6 +65,9 @@
(defconst khoj--query-prompt "🦅Khoj: " (defconst khoj--query-prompt "🦅Khoj: "
"Query prompt shown to user in the minibuffer.") "Query prompt shown to user in the minibuffer.")
(defconst khoj--buffer-name "*🦅Khoj*"
"Name of buffer to show results from Khoj.")
(defvar khoj--search-type "org" (defvar khoj--search-type "org"
"The type of content to perform search on.") "The type of content to perform search on.")
@@ -192,7 +195,7 @@
;; Incremental Search on Khoj ;; Incremental Search on Khoj
(defun khoj--incremental-search (&optional rerank) (defun khoj--incremental-search (&optional rerank)
(let* ((rerank-str (cond (rerank "true") (t "false"))) (let* ((rerank-str (cond (rerank "true") (t "false")))
(buffer-name (get-buffer-create "*Khoj*")) (khoj-buffer-name (get-buffer-create khoj--buffer-name))
(query (minibuffer-contents-no-properties)) (query (minibuffer-contents-no-properties))
(query-url (khoj--construct-api-query query khoj--search-type rerank-str))) (query-url (khoj--construct-api-query query khoj--search-type rerank-str)))
;; Query khoj API only when user in khoj minibuffer. ;; Query khoj API only when user in khoj minibuffer.
@@ -205,7 +208,7 @@
query query
khoj--search-type khoj--search-type
query-url query-url
buffer-name))))) khoj-buffer-name)))))
(defun delete-open-network-connections-to-khoj () (defun delete-open-network-connections-to-khoj ()
"Delete all network connections to khoj server" "Delete all network connections to khoj server"
@@ -237,7 +240,7 @@
(defun khoj () (defun khoj ()
"Natural, Incremental Search for your personal notes, transactions and music using Khoj" "Natural, Incremental Search for your personal notes, transactions and music using Khoj"
(interactive) (interactive)
(let* ((khoj-buffer-name (get-buffer-create "*Khoj*"))) (let* ((khoj-buffer-name (get-buffer-create khoj--buffer-name)))
;; set khoj search type to last used or based on current buffer ;; set khoj search type to last used or based on current buffer
(setq khoj--search-type (or khoj--search-type (khoj--buffer-name-to-search-type (buffer-name)))) (setq khoj--search-type (or khoj--search-type (khoj--buffer-name-to-search-type (buffer-name))))
;; setup temporary keymap for khoj ;; setup temporary keymap for khoj
@@ -266,7 +269,7 @@
(default-type (khoj--buffer-name-to-search-type (buffer-name))) (default-type (khoj--buffer-name-to-search-type (buffer-name)))
(search-type (completing-read "Type: " '("org" "markdown" "ledger" "music" "image") nil t default-type)) (search-type (completing-read "Type: " '("org" "markdown" "ledger" "music" "image") nil t default-type))
(query-url (khoj--construct-api-query query search-type rerank)) (query-url (khoj--construct-api-query query search-type rerank))
(buffer-name (get-buffer-create (format "*Khoj (q:%s t:%s)*" query search-type)))) (buffer-name (get-buffer-create (format "*%s (q:%s t:%s)*" khoj--buffer-name query search-type))))
(khoj--query-api-and-render-results (khoj--query-api-and-render-results
query query
search-type search-type