klbr/khoj
1
0
Fork 0
mirror of https://github.com/khoaliber/khoj.git synced 2026-03-04 21:29:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

Get Khoj search-types enabled by user in Emacs

Browse Source
This commit is contained in:
Debanjum Singh Solanky
2022-08-07 17:28:43 +03:00
parent f3c1512c38
commit 6dc9801f45
1 changed files with 14 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -180,6 +180,20 @@ Use `which-key` if available, else display simple message in echo area"
((or (equal file-extension "markdown") (equal file-extension "md")) "markdown")
(t "org"))))
(defun khoj--get-enabled-search-types ()
(let ((config-url (format "%s/config/data" khoj--server-url)))
(with-temp-buffer
(erase-buffer)
(url-insert-file-contents config-url)
(let* ((json-response (json-parse-buffer :object-type 'alist))
(content-type (cdr (assoc 'content-type json-response))))
;; return content-type items with configuration
(mapcar
'car
(cl-remove-if-not
'(lambda (a) (not (eq (cdr a) :null)))
content-type))))))
(defun khoj--construct-api-query (query search-type &optional rerank)
(let ((rerank (or rerank "false"))
(results-count (or khoj--results-count 5))