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

Make khoj.el server start, stop, restart, setup methods interactive

Browse Source 
No need to erase temporary buffers before working on them
This commit is contained in:
Debanjum Singh Solanky
2023-03-27 01:11:43 +07:00
parent cb40a96c85
commit 8a21aff438
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -248,6 +248,7 @@ for example), set this to the full interpreter path."
(defun khoj--server-start () (defun khoj--server-start ()
"Start the khoj server." "Start the khoj server."
(interactive)
(let* ((url-parts (split-string (cadr (split-string khoj-server-url "://")) ":")) (let* ((url-parts (split-string (cadr (split-string khoj-server-url "://")) ":"))
(server-host (nth 0 url-parts)) (server-host (nth 0 url-parts))
(server-port (or (nth 1 url-parts) "80")) (server-port (or (nth 1 url-parts) "80"))
@@ -288,6 +289,7 @@ for example), set this to the full interpreter path."
(defun khoj--server-stop () (defun khoj--server-stop ()
"Stop the khoj server." "Stop the khoj server."
(interactive)
(when (khoj--server-running?) (when (khoj--server-running?)
(message "khoj.el: Stopping server...") (message "khoj.el: Stopping server...")
(kill-process khoj--server-process) (kill-process khoj--server-process)
@@ -295,11 +297,13 @@ for example), set this to the full interpreter path."
(defun khoj--server-restart () (defun khoj--server-restart ()
"Restart the khoj server." "Restart the khoj server."
(interactive)
(khoj--server-stop) (khoj--server-stop)
(khoj--server-start)) (khoj--server-start))
(defun khoj--server-setup () (defun khoj--server-setup ()
"Install and start the khoj server, if required." "Install and start the khoj server, if required."
(interactive)
;; Install khoj server, if not available but expected on local machine ;; Install khoj server, if not available but expected on local machine
(when (and is-khoj-server-local (when (and is-khoj-server-local
(or (not (executable-find khoj-server-command)) (or (not (executable-find khoj-server-command))
@@ -502,7 +506,6 @@ CONFIG is json obtained from Khoj config API."
(let ((config-url (format "%s/api/config/types" khoj-server-url)) (let ((config-url (format "%s/api/config/types" khoj-server-url))
(url-request-method "GET")) (url-request-method "GET"))
(with-temp-buffer (with-temp-buffer
(erase-buffer)
(url-insert-file-contents config-url) (url-insert-file-contents config-url)
(thread-last (thread-last
(json-parse-buffer :object-type 'alist) (json-parse-buffer :object-type 'alist)
@@ -649,7 +652,6 @@ Render results in BUFFER-NAME using QUERY, CONTENT-TYPE."
(encoded-query (url-hexify-string query)) (encoded-query (url-hexify-string query))
(query-url (format "%s/api/chat?q=%s" khoj-server-url encoded-query))) (query-url (format "%s/api/chat?q=%s" khoj-server-url encoded-query)))
(with-temp-buffer (with-temp-buffer
(erase-buffer)
(url-insert-file-contents query-url) (url-insert-file-contents query-url)
(json-parse-buffer :object-type 'alist)))) (json-parse-buffer :object-type 'alist))))
@@ -892,7 +894,7 @@ Paragraph only starts at first text after blank line."
(interactive (list (transient-args transient-current-command))) (interactive (list (transient-args transient-current-command)))
(khoj--chat)) (khoj--chat))
(transient-define-prefix khoj-menu () (transient-define-prefix khoj--menu ()
"Create Khoj Menu to Configure and Execute Commands." "Create Khoj Menu to Configure and Execute Commands."
[["Configure Search" [["Configure Search"
("n" "Results Count" "--results-count=" :init-value (lambda (obj) (oset obj value (format "%s" khoj-results-count)))) ("n" "Results Count" "--results-count=" :init-value (lambda (obj) (oset obj value (format "%s" khoj-results-count))))
@@ -921,7 +923,7 @@ Paragraph only starts at first text after blank line."
(khoj--server-setup)) (khoj--server-setup))
(while (not khoj--server-ready?) (while (not khoj--server-ready?)
(sleep-for 0.5)) (sleep-for 0.5))
(khoj-menu)) (khoj--menu))
(provide 'khoj) (provide 'khoj)