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

Send content for indexing on server at a regular interval from khoj.el

Browse Source 
- Allow indexing frequency to be configurable by user
- Ensure there is only one khoj indexing timer running
This commit is contained in:
Debanjum Singh Solanky
2023-10-12 20:32:41 -07:00
parent bed3aff059
commit 292f0420ad
1 changed files with 15 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -97,6 +97,11 @@
:group 'khoj :group 'khoj
:type 'string) :type 'string)
(defcustom khoj-index-interval 3600
"Interval (in seconds) to wait before updating content index."
:group 'khoj
:type 'number)
(defcustom khoj-default-content-type "org" (defcustom khoj-default-content-type "org"
"The default content type to perform search on." "The default content type to perform search on."
:group 'khoj :group 'khoj
@@ -128,6 +133,9 @@
(defvar khoj--search-on-idle-timer nil (defvar khoj--search-on-idle-timer nil
"Idle timer to trigger incremental search.") "Idle timer to trigger incremental search.")
(defvar khoj--index-timer nil
"Timer to trigger content indexing.")
(declare-function org-element-property "org-mode" (PROPERTY ELEMENT)) (declare-function org-element-property "org-mode" (PROPERTY ELEMENT))
(declare-function org-element-type "org-mode" (ELEMENT)) (declare-function org-element-type "org-mode" (ELEMENT))
(declare-function markdown-mode "markdown-mode" ()) (declare-function markdown-mode "markdown-mode" ())
@@ -531,7 +539,6 @@ CONFIG is json obtained from Khoj config API."
(let ((boundary (format "-------------------------%d" (random (expt 10 10)))) (let ((boundary (format "-------------------------%d" (random (expt 10 10))))
(files-to-index (or file-paths (files-to-index (or file-paths
(append (mapcan (lambda (dir) (directory-files-recursively dir "\\.org$")) khoj-org-directories) khoj-org-files)))) (append (mapcan (lambda (dir) (directory-files-recursively dir "\\.org$")) khoj-org-directories) khoj-org-files))))
(let* ((url-request-method "POST") (let* ((url-request-method "POST")
(url-request-extra-headers `(("content-type" . ,(format "multipart/form-data; boundary=%s" boundary)) (url-request-extra-headers `(("content-type" . ,(format "multipart/form-data; boundary=%s" boundary))
("x-api-key" . ,khoj-server-api-key))) ("x-api-key" . ,khoj-server-api-key)))
@@ -555,9 +562,15 @@ CONFIG is json obtained from Khoj config API."
(lambda (status) (lambda (status)
(with-current-buffer (current-buffer) (with-current-buffer (current-buffer)
(goto-char url-http-end-of-headers) (goto-char url-http-end-of-headers)
(message "khoj.el: status: %s. response: %s" status (string-trim (buffer-substring-no-properties (point) (point-max)))))) (message "khoj.el: Update Content Index. Status: %s. response: %s" status (string-trim (buffer-substring-no-properties (point) (point-max))))))
nil t t))))) nil t t)))))
;; Cancel any running indexing timer
(when khoj--index-timer
(cancel-timer khoj--index-timer))
;; Send files to index on server every `khoj-index-interval' seconds
(setq khoj--index-timer
(run-with-timer 60 khoj-index-interval 'khoj--server-index-files))
;; ----------------------------------------------- ;; -----------------------------------------------