From 5a10c47499cf6fe8af3a8d224622dac038aeda9b Mon Sep 17 00:00:00 2001 From: Debanjum Singh Solanky Date: Sun, 7 Aug 2022 18:03:06 +0300 Subject: [PATCH] Allow setting music as search type in khoj.el. Had forgotten to include it earlier --- src/interface/emacs/khoj.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/interface/emacs/khoj.el b/src/interface/emacs/khoj.el index 04c09cf1..651185b3 100644 --- a/src/interface/emacs/khoj.el +++ b/src/interface/emacs/khoj.el @@ -84,6 +84,7 @@ C-x i | images (defun khoj--search-org () (interactive) (setq khoj--search-type "org")) (defun khoj--search-ledger () (interactive) (setq khoj--search-type "ledger")) (defun khoj--search-images () (interactive) (setq khoj--search-type "image")) +(defun khoj--search-music () (interactive) (setq khoj--search-type "music")) (defun khoj--make-search-keymap (&optional existing-keymap) "Setup keymap to configure Khoj search" (let ((enabled-search-types (khoj--get-enabled-search-types)) @@ -96,6 +97,8 @@ C-x i | images (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)) + (when (member 'music enabled-search-types) + (define-key kmap (kbd "C-x M") #'khoj--search-music)) kmap)) (defun khoj--display-keybinding-info () "Display information on keybindings to customize khoj search.