diff options
author | Bozhidar Batsov <bozhidar@tradeo.com> | 2014-12-22 20:11:40 +0200 |
---|---|---|
committer | Bozhidar Batsov <bozhidar@tradeo.com> | 2014-12-22 20:12:15 +0200 |
commit | 8110c9916103ace217ea5088127d1ed54e5821ea (patch) | |
tree | 4a1ea881e01ab9ae80853fb0cf4208f2bafd24e3 /cider-doc.el | |
parent | 58a1730da1fdf60553a6c29636fff32f74e1b9b4 (diff) |
Make it possible to trigger Grimoire doc lookup from doc buffers
Diffstat (limited to 'cider-doc.el')
-rw-r--r-- | cider-doc.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/cider-doc.el b/cider-doc.el index ec66c344..4918b1c7 100644 --- a/cider-doc.el +++ b/cider-doc.el @@ -126,6 +126,7 @@ (defvar cider-docview-mode-map (let ((map (make-sparse-keymap))) (define-key map "q" 'cider-popup-buffer-quit-function) + (define-key map "g" 'cider-docview-grimoire) (define-key map "j" 'cider-docview-javadoc) (define-key map "s" 'cider-docview-source) (define-key map (kbd "<backtab>") 'backward-button) @@ -133,6 +134,7 @@ (easy-menu-define cider-docview-mode-menu map "Menu for CIDER's doc mode" `("CiderDoc" + ["Look up in Grimoire" cider-docview-grimoire] ["JavaDoc in browser" cider-docview-javadoc] ["Jump to source" cider-docview-source] "--" @@ -147,6 +149,7 @@ (setq buffer-read-only t) (setq-local truncate-lines t) (setq-local electric-indent-chars nil) + (setq-local cider-docview-ns nil) (setq-local cider-docview-symbol nil) (setq-local cider-docview-javadoc-url nil) (setq-local cider-docview-file nil) @@ -172,6 +175,12 @@ (cider-jump-to buffer (cons cider-docview-line nil) nil)) (message "No source location for %s" cider-docview-symbol))) +(defun cider-docview-grimoire () + (interactive) + (if cider-docview-ns + (cider-grimoire-lookup cider-docview-symbol) + (message "%s cannot be looked up on Grimoire"))) + ;;; Font Lock and Formatting @@ -345,9 +354,11 @@ Tables are marked to be ignored by line wrap." (let ((javadoc (nrepl-dict-get info "javadoc")) (file (nrepl-dict-get info "file")) (line (nrepl-dict-get info "line")) + (ns (nrepl-dict-get info "ns")) (inhibit-read-only t)) (cider-docview-mode) + (setq-local cider-docview-ns ns) (setq-local cider-docview-symbol symbol) (setq-local cider-docview-javadoc-url javadoc) (setq-local cider-docview-file file) |