Define keymap for Bog

Instead of just suggesting keys, create a keymap, but don't bind it to a
prefix key.

1 files changed, 14 insertions, 0 deletions

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