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

Show available Khoj keybindings to customize search using which-key

Browse Source 
Fallback to showing simple khoj keybindings info message in echo area
when which-key not available
This commit is contained in:
Debanjum Singh Solanky
2022-08-05 20:15:51 +03:00
parent 6a8b2a6936
commit 9fa3345000
1 changed files with 25 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -71,16 +71,7 @@
(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.")
(defun khoj--make-search-keymap (&optional existing-keymap) (defvar khoj--keybindings-info-message
"Setup keymap to configure Khoj search"
(let ((kmap (or existing-keymap (make-sparse-keymap))))
(define-key kmap (kbd "C-x m") '(lambda () (interactive) (setq khoj--search-type "markdown")))
(define-key kmap (kbd "C-x o") '(lambda () (interactive) (setq khoj--search-type "org")))
(define-key kmap (kbd "C-x l") '(lambda () (interactive) (setq khoj--search-type "ledger")))
(define-key kmap (kbd "C-x i") '(lambda () (interactive) (setq khoj--search-type "image")))
kmap))
(defvar khoj--keybindings-help-message
" "
Set Search Type Set Search Type
------------------------- -------------------------
@@ -89,6 +80,28 @@ C-x o | org-mode
C-x l | ledger/beancount C-x l | ledger/beancount
C-x i | images C-x i | images
") ")
(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"))
(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)
kmap))
(defun khoj--display-keybinding-info ()
"Display information on keybindings to customize khoj search.
Use `which-key` if available, else display simple message in echo area"
(if (fboundp 'which-key--create-buffer-and-show)
(which-key--create-buffer-and-show
(kbd "C-x")
(symbolp (khoj--make-search-keymap))
'(lambda (binding) (string-prefix-p "khoj--" (cdr binding)))
"Khoj Bindings")
(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"
@@ -265,7 +278,8 @@ C-x i | images
(lambda () (lambda ()
;; Add khoj keybindings for configuring search to minibuffer keybindings ;; Add khoj keybindings for configuring search to minibuffer keybindings
(khoj--make-search-keymap minibuffer-local-map) (khoj--make-search-keymap minibuffer-local-map)
(message "%s" khoj--keybindings-help-message) ;; Display information on keybindings to customize khoj search
(khoj--display-keybinding-info)
;; set current (mini-)buffer entered as khoj minibuffer ;; set current (mini-)buffer entered as khoj minibuffer
;; used to query khoj API only when user in khoj minibuffer ;; used to query khoj API only when user in khoj minibuffer
(setq khoj--minibuffer-window (current-buffer)) (setq khoj--minibuffer-window (current-buffer))