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

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
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" (defvar khoj--search-type "org"
"The type of content to perform search on.") "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 Set Search Type
------------------------- -------------------------\n"
C-x m | markdown (when (member 'markdown enabled-search-types)
C-x o | org-mode "C-x m | markdown\n")
C-x l | ledger/beancount (when (member 'org enabled-search-types)
C-x i | images "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-markdown () (interactive) (setq khoj--search-type "markdown"))
(defun khoj--search-org () (interactive) (setq khoj--search-type "org")) (defun khoj--search-org () (interactive) (setq khoj--search-type "org"))
(defun khoj--search-ledger () (interactive) (setq khoj--search-type "ledger")) (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) (which-key--show-keymap (symbol-name 'khoj--keymap)
(symbol-value 'khoj--keymap) (symbol-value 'khoj--keymap)
nil t t)) nil t t))
(message "%s" khoj--keybindings-info-message))) (message "%s" (khoj--keybindings-info-message))))
(defun khoj--extract-entries-as-markdown (json-response query) (defun khoj--extract-entries-as-markdown (json-response query)
"Convert json response from API to markdown entries" "Convert json response from API to markdown entries"