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

Only show keybindings reference for enabled search types in khoj.el

Browse Source
This commit is contained in:
Debanjum Singh Solanky
2022-08-07 18:01:21 +03:00
parent 6dc9801f45
commit ebee716026
1 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -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.