Allow setting default-search-type to image. Make docstrings compact

This commit is contained in:
Debanjum Singh Solanky
2023-01-18 22:01:17 -03:00
parent 216b17cfd0
commit 00daea16df

View File

@@ -76,13 +76,14 @@
:type '(choice (const "org") :type '(choice (const "org")
(const "markdown") (const "markdown")
(const "ledger") (const "ledger")
(const "image")
(const "music"))) (const "music")))
(defvar khoj--minibuffer-window nil (defvar khoj--minibuffer-window nil
"Minibuffer window being used by user to enter query.") "Minibuffer window used to enter query.")
(defconst khoj--query-prompt "🦅Khoj: " (defconst khoj--query-prompt "🦅Khoj: "
"Query prompt shown to user in the minibuffer.") "Query prompt shown in the minibuffer.")
(defconst khoj--buffer-name "*🦅Khoj*" (defconst khoj--buffer-name "*🦅Khoj*"
"Name of buffer to show results from Khoj.") "Name of buffer to show results from Khoj.")
@@ -97,7 +98,7 @@
NO-PAGING FILTER)) NO-PAGING FILTER))
(defun khoj--keybindings-info-message () (defun khoj--keybindings-info-message ()
"Show available khoj keybindings in-context, when user invokes Khoj." "Show available khoj keybindings in-context, when khoj invoked."
(let ((enabled-content-types (khoj--get-enabled-content-types))) (let ((enabled-content-types (khoj--get-enabled-content-types)))
(concat (concat
" "
@@ -110,7 +111,7 @@ NO-PAGING FILTER))
(when (member 'ledger enabled-content-types) (when (member 'ledger enabled-content-types)
"C-x l | ledger\n") "C-x l | ledger\n")
(when (member 'image enabled-content-types) (when (member 'image enabled-content-types)
"C-x i | images\n") "C-x i | image\n")
(when (member 'music enabled-content-types) (when (member 'music enabled-content-types)
"C-x M | music\n")))) "C-x M | music\n"))))