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

Start Khoj server from Emacs using khoj.el

Browse source
This commit is contained in:
Debanjum Singh Solanky 2023-03-26 09:38:46 +07:00
parent c92d79118a
commit 99d19dcf43
1 changed files with 27 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -183,6 +183,11 @@ Use `which-key` if available, else display simple message in echo area"
:group 'khoj :group 'khoj
:type 'string) :type 'string)
(defcustom khoj-server-args '("--no-gui")
"Arguments to pass to Khoj server on startup."
:group 'khoj
:type '(repeat string))
(defcustom khoj-server-python-command (defcustom khoj-server-python-command
(if (equal system-type 'windows-nt) (if (equal system-type 'windows-nt)
(or (executable-find "py") (or (executable-find "py")
@ -207,6 +212,9 @@ for example), set this to the full interpreter path."
(member val '("python" "python3" "pythonw" "py"))) (member val '("python" "python3" "pythonw" "py")))
:group 'khoj) :group 'khoj)
(defvar khoj--server-process nil "Track Khoj server process.")
(defvar khoj--server-name "khoj-server" "Track Khoj server buffer.")
(defun khoj--server-get-version () (defun khoj--server-get-version ()
"Return the khoj server version." "Return the khoj server version."
(with-temp-buffer (with-temp-buffer
@ -227,6 +235,25 @@ for example), set this to the full interpreter path."
(message "khoj.el: Failed to install Khoj server. Please install it manually using pip install `khoj-assistant'.\n%s" (buffer-string)) (message "khoj.el: Failed to install Khoj server. Please install it manually using pip install `khoj-assistant'.\n%s" (buffer-string))
(message "khoj.el: Installed and upgraded Khoj server version: %s" (khoj--server-get-version))))) (message "khoj.el: Installed and upgraded Khoj server version: %s" (khoj--server-get-version)))))
(defun khoj--server-start ()
"Start the khoj server."
(let* ((url-parts (split-string (cadr (split-string khoj-server-url "://")) ":"))
(server-host (nth 0 url-parts))
(server-port (or (nth 1 url-parts) "80"))
(server-args (append khoj-server-args
(list (format "--host=%s" server-host)
(format "--port=%s" server-port)))))
(message "khoj.el: Starting server at %s %s..." server-host server-port)
(setq khoj--server-process
(apply 'start-process
khoj--server-name
khoj--server-name
khoj-server-command
server-args))
(if (not khoj--server-process)
(message "khoj.el: Failed to start Khoj server. Please start it manually by running `khoj' on terminal.\n%s" (buffer-string))
(message "khoj.el: Khoj server running at: %s" khoj-server-url))))
;; ----------------------------------------------- ;; -----------------------------------------------
;; Extract and Render Entries of each Content Type ;; Extract and Render Entries of each Content Type