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

Fix org entry extraction test, variable prefixed with khoj in khoj.el

Browse Source 
Discovered via failing build and test workflows on Github
This commit is contained in:
Debanjum Singh Solanky
2023-03-27 16:42:38 +07:00
parent 7243059507
commit 526a927bce
2 changed files with 11 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -65,7 +65,7 @@
:group 'khoj :group 'khoj
:type 'string) :type 'string)
(defcustom is-khoj-server-local t (defcustom khoj-server-is-local t
"Is Khoj server on local machine?." "Is Khoj server on local machine?."
:group 'khoj :group 'khoj
:type 'boolean) :type 'boolean)
@@ -185,13 +185,13 @@ Use `which-key` if available, else display simple message in echo area"
(executable-find "khoj.exe") (executable-find "khoj.exe")
"khoj") "khoj")
"Command to interact with Khoj server." "Command to interact with Khoj server."
:group 'khoj :type 'string
:type 'string) :group 'khoj)
(defcustom khoj-server-args '("--no-gui") (defcustom khoj-server-args '("--no-gui")
"Arguments to pass to Khoj server on startup." "Arguments to pass to Khoj server on startup."
:group 'khoj :type '(repeat string)
:type '(repeat string)) :group 'khoj)
(defcustom khoj-server-python-command (defcustom khoj-server-python-command
(if (equal system-type 'windows-nt) (if (equal system-type 'windows-nt)
@@ -219,13 +219,13 @@ for example), set this to the full interpreter path."
(defcustom khoj-org-files-index (org-agenda-files t t) (defcustom khoj-org-files-index (org-agenda-files t t)
"List of org-files to index on khoj server." "List of org-files to index on khoj server."
:group 'khoj :type '(repeat string)
:type '(repeat string)) :group 'khoj)
(defcustom khoj-openai-api-key nil (defcustom khoj-openai-api-key nil
"OpenAI API key used to configure chat on khoj server." "OpenAI API key used to configure chat on khoj server."
:group 'khoj :type 'string
:type 'string) :group 'khoj)
(defvar khoj--server-process nil "Track Khoj server process.") (defvar khoj--server-process nil "Track Khoj server process.")
(defvar khoj--server-name "*khoj-server*" "Track Khoj server buffer.") (defvar khoj--server-name "*khoj-server*" "Track Khoj server buffer.")
@@ -326,7 +326,7 @@ for example), set this to the full interpreter path."
"Install and start the khoj server, if required." "Install and start the khoj server, if required."
(interactive) (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 khoj-server-is-local
(or (not (executable-find khoj-server-command)) (or (not (executable-find khoj-server-command))
(not (khoj--server-get-version)))) (not (khoj--server-get-version))))
(khoj--server-install-upgrade)) (khoj--server-install-upgrade))

3
src/interface/emacs/tests/khoj-tests.el
View File

@@ -109,8 +109,7 @@ Penance to Immortality\n\
** Act\n\ ** Act\n\
\n\ \n\
Rule everything\n\ Rule everything\n\
\n\ \n"))))
#+STARTUP: showall hidestars inlineimages"))))
(ert-deftest khoj-tests--extract-entries-as-ledger () (ert-deftest khoj-tests--extract-entries-as-ledger ()