sij/khoj
1
0
Fork 0
mirror of https://github.com/khoj-ai/khoj.git synced 2025-02-17 16:14:21 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Only show keybindings for enabled search types in simple info menu too

Browse source 
Convert the khoj--keybindings-info-message into a func
Dynamically generate info menu
Show keybindings for enabled search types only
This commit is contained in:
Debanjum Singh Solanky 2022-08-07 18:40:35 +03:00
parent d08c25b62b
commit 127c6e78df
1 changed files with 17 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -79,15 +79,23 @@
(defvar khoj--search-type "org"
"The type of content to perform search on.")
(defvar khoj--keybindings-info-message
"
(defun khoj--keybindings-info-message ()
(let ((enabled-search-types (khoj--get-enabled-search-types)))
(concat
"
Set Search Type
-------------------------
C-x m | markdown
C-x o | org-mode
C-x l | ledger/beancount
C-x i | images
")
-------------------------\n"
(when (member 'markdown enabled-search-types)
"C-x m | markdown\n")
(when (member 'org enabled-search-types)
"C-x o | org-mode\n")
(when (member 'ledger enabled-search-types)
"C-x l | ledger\n")
(when (member 'image enabled-search-types)
"C-x i | images\n")
(when (member 'music enabled-search-types)
"C-x M | music\n"))))
(defun khoj--search-markdown () (interactive) (setq khoj--search-type "markdown"))
(defun khoj--search-org () (interactive) (setq khoj--search-type "org"))
(defun khoj--search-ledger () (interactive) (setq khoj--search-type "ledger"))
@ -116,7 +124,7 @@ Use `which-key` if available, else display simple message in echo area"
(which-key--show-keymap (symbol-name 'khoj--keymap)
(symbol-value 'khoj--keymap)
nil t t))
(message "%s" khoj--keybindings-info-message)))
(message "%s" (khoj--keybindings-info-message))))
(defun khoj--extract-entries-as-markdown (json-response query)
"Convert json response from API to markdown entries"