diff --git a/src/interface/emacs/khoj.el b/src/interface/emacs/khoj.el index 6289060c..04c09cf1 100644 --- a/src/interface/emacs/khoj.el +++ b/src/interface/emacs/khoj.el @@ -86,11 +86,16 @@ C-x i | images (defun khoj--search-images () (interactive) (setq khoj--search-type "image")) (defun khoj--make-search-keymap (&optional existing-keymap) "Setup keymap to configure Khoj search" - (let ((kmap (or existing-keymap (make-sparse-keymap)))) - (define-key kmap (kbd "C-x m") #'khoj--search-markdown) - (define-key kmap (kbd "C-x o") #'khoj--search-org) - (define-key kmap (kbd "C-x l") #'khoj--search-ledger) - (define-key kmap (kbd "C-x i") #'khoj--search-images) + (let ((enabled-search-types (khoj--get-enabled-search-types)) + (kmap (or existing-keymap (make-sparse-keymap)))) + (when (member 'markdown enabled-search-types) + (define-key kmap (kbd "C-x m") #'khoj--search-markdown)) + (when (member 'org enabled-search-types) + (define-key kmap (kbd "C-x o") #'khoj--search-org)) + (when (member 'ledger enabled-search-types) + (define-key kmap (kbd "C-x l") #'khoj--search-ledger)) + (when (member 'image enabled-search-types) + (define-key kmap (kbd "C-x i") #'khoj--search-images)) kmap)) (defun khoj--display-keybinding-info () "Display information on keybindings to customize khoj search.