sij/khoj
1
0
Fork 0
mirror of https://github.com/khoj-ai/khoj.git synced 2024-11-28 01:45:07 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Make default search type used in the Emacs interface configurable

Browse source
This commit is contained in:
Debanjum Singh Solanky 2022-08-07 18:04:26 +03:00
parent 5a10c47499
commit d08c25b62b
1 changed files with 15 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
src/interface/emacs/khoj.el
View file

@ -56,6 +56,14 @@
:group 'khoj :group 'khoj
:type 'integer) :type 'integer)
(defcustom khoj-default-search-type "org"
"The default content type to perform search on."
:group 'khoj
:type '(choice (const "org")
(const "markdown")
(const "ledger")
(const "music")))
(defvar khoj--rerank-timer nil (defvar khoj--rerank-timer nil
"Idle timer to make cross-encoder re-rank incremental search results if user idle.") "Idle timer to make cross-encoder re-rank incremental search results if user idle.")
@ -180,13 +188,14 @@ Use `which-key` if available, else display simple message in echo area"
json-response))))) json-response)))))
(defun khoj--buffer-name-to-search-type (buffer-name) (defun khoj--buffer-name-to-search-type (buffer-name)
(let ((file-extension (file-name-extension buffer-name))) (let ((enabled-search-types (khoj--get-enabled-search-types))
(file-extension (file-name-extension buffer-name)))
(cond (cond
((equal buffer-name "Music.org") "music") ((and (member 'music enabled-search-types) (equal buffer-name "Music.org")) "music")
((or (equal file-extension "bean") (equal file-extension "beancount")) "ledger") ((and (member 'ledger enabled-search-types) (or (equal file-extension "bean") (equal file-extension "beancount"))) "ledger")
((equal file-extension "org") "org") ((and (member 'org enabled-search-types) (equal file-extension "org")) "org")
((or (equal file-extension "markdown") (equal file-extension "md")) "markdown") ((and (member 'markdown enabled-search-types) (or (equal file-extension "markdown") (equal file-extension "md"))) "markdown")
(t "org")))) (t khoj-default-search-type))))
(defun khoj--get-enabled-search-types () (defun khoj--get-enabled-search-types ()
(let ((config-url (format "%s/config/data" khoj--server-url))) (let ((config-url (format "%s/config/data" khoj--server-url)))