From 72287d6dc7d7319cc401aa605526ca1ba4dc4886 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Fri, 21 Mar 2014 01:46:00 -0400 Subject: Define keymap for Bog Instead of just suggesting keys, create a keymap, but don't bind it to a prefix key. --- bog.el | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'bog.el') diff --git a/bog.el b/bog.el index 22bdedd..99694c3 100644 --- a/bog.el +++ b/bog.el @@ -545,6 +545,20 @@ level `bog-refile-maxlevel' are considered." (font-lock-add-keywords 'org-mode '((bog-non-heading-citekey-p . 'bog-citekey-face))) + +;;; Keymap + +(defvar bog-mode-map + (let ((map (make-sparse-keymap))) + (define-key map "p" 'bog-find-citekey-pdf) + (define-key map "r" 'bog-rename-staged-pdf-to-citekey) + (define-key map "b" 'bog-find-citekey-bib) + (define-key map "h" 'bog-goto-citekey-heading-in-buffer) + (define-key map "H" 'bog-goto-citekey-heading-in-notes) + (define-key map "w" 'bog-search-citekey-on-web) + map) + "Keymap for Bog.") + (provide 'bog) ;; bog.el ends here -- cgit v1.2.3