diff options
author | expez <expez@expez.com> | 2015-04-25 10:59:29 +0200 |
---|---|---|
committer | expez <expez@expez.com> | 2015-04-25 14:29:38 +0200 |
commit | 0d30e6fe2b5b0fd5d8682142c5b9c21be1d75a4d (patch) | |
tree | ea01587b9db3ff463ee57ded2acbafec80eb9086 /cider-browse-ns.el | |
parent | 33ab642100cc3f7e0880ced4ba3fecbc0931a507 (diff) |
Add 'd' and 's' to cider-browse-ns-map
'd' shows doc', 's' shows source
Diffstat (limited to 'cider-browse-ns.el')
-rw-r--r-- | cider-browse-ns.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/cider-browse-ns.el b/cider-browse-ns.el index 2e711e71..4c83c627 100644 --- a/cider-browse-ns.el +++ b/cider-browse-ns.el @@ -45,6 +45,8 @@ (defvar cider-browse-ns-mode-map (let ((map (make-sparse-keymap))) (set-keymap-parent map cider-popup-buffer-mode-map) + (define-key map "d" #'cider-browse-ns-doc-at-point) + (define-key map "s" #'cider-browse-ns-find-at-point) (define-key map [return] #'cider-browse-ns-doc-at-point) (define-key map "^" #'cider-browse-ns-all) (define-key map "n" #'next-line) @@ -126,6 +128,11 @@ (-when-let (var (cider-browse-ns--var-at-point)) (cider-doc-lookup var))) +(defun cider-browse-ns-find-at-point () + (interactive) + (when-let (var (cider-browse-ns--var-at-point)) + (cider-find-var current-prefix-arg var))) + (defun cider-browse-ns-handle-mouse (event) "Handle mouse click EVENT." (interactive "e") |