diff options
| -rw-r--r-- | README.md | 20 | ||||
| -rw-r--r-- | bog-readme.org | 16 | ||||
| -rw-r--r-- | bog.el | 14 |
3 files changed, 26 insertions, 24 deletions
@@ -110,16 +110,10 @@ The variables below are important for specifying how Bog behaves. a directory of single-entry BibTeX files or a single BibTeX file is used. -# Recommended keybindings - -Bog doesn't claim any keybindings, but using "C-c b" as a prefix while -in Org mode is a good option. - - (define-prefix-command 'bog-map) - (define-key org-mode-map (kbd "C-c b") 'bog-map) - (define-key bog-map "p" 'bog-find-citekey-pdf) - (define-key bog-map "r" 'bog-rename-staged-pdf-to-citekey) - (define-key bog-map "b" 'bog-find-citekey-bib) - (define-key bog-map "h" 'bog-goto-citekey-heading-in-buffer) - (define-key bog-map "H" 'bog-goto-citekey-heading-in-notes) - (define-key bog-map "w" 'bog-search-citekey-on-web)
\ No newline at end of file +# Keybindings + +A keymap is defined for Bog, but a prefix isn't claimed. The code below +shows how to use "C-c b" as the prefix while in Org mode. + + (eval-after-load 'org + '(define-key org-mode-map (kbd "C-c b") bog-mode-map))
\ No newline at end of file diff --git a/bog-readme.org b/bog-readme.org index b79f0fd..9e18fd3 100644 --- a/bog-readme.org +++ b/bog-readme.org @@ -118,18 +118,12 @@ The variables below are important for specifying how Bog behaves. a directory of single-entry BibTeX files or a single BibTeX file is used. -* Recommended keybindings +* Keybindings -Bog doesn't claim any keybindings, but using "C-c b" as a prefix while -in Org mode is a good option. +A keymap is defined for Bog, but a prefix isn't claimed. The code below +shows how to use "C-c b" as the prefix while in Org mode. #+begin_src emacs-lisp - (define-prefix-command 'bog-map) - (define-key org-mode-map (kbd "C-c b") 'bog-map) - (define-key bog-map "p" 'bog-find-citekey-pdf) - (define-key bog-map "r" 'bog-rename-staged-pdf-to-citekey) - (define-key bog-map "b" 'bog-find-citekey-bib) - (define-key bog-map "h" 'bog-goto-citekey-heading-in-buffer) - (define-key bog-map "H" 'bog-goto-citekey-heading-in-notes) - (define-key bog-map "w" 'bog-search-citekey-on-web) + (eval-after-load 'org + '(define-key org-mode-map (kbd "C-c b") bog-mode-map)) #+end_src @@ -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 |