From 677ec20a6c300e33686526175325dc7dafee7953 Mon Sep 17 00:00:00 2001 From: Bozhidar Batsov Date: Tue, 19 Dec 2017 20:27:19 +0200 Subject: [Fix #2112] Add a new interactive command cider-find-keyword It basically finds the first usage of the namespace-qualified keywords. For `::other.namespace/foo` this command would go to `other.namespace` and then find the first mention of `:foo` in it. --- cider-repl.el | 3 +++ 1 file changed, 3 insertions(+) (limited to 'cider-repl.el') diff --git a/cider-repl.el b/cider-repl.el index ed8b033a..a2445ffe 100644 --- a/cider-repl.el +++ b/cider-repl.el @@ -1431,6 +1431,7 @@ constructs." (declare-function cider-find-resource "cider-interaction") (declare-function cider-restart "cider-interaction") (declare-function cider-find-ns "cider-interaction") +(declare-function cider-find-keyword "cider-interaction") (declare-function cider-switch-to-last-clojure-buffer "cider-mode") (defvar cider-repl-mode-map @@ -1440,6 +1441,7 @@ constructs." (define-key map (kbd "C-c C-t") 'cider-test-commands-map) (define-key map (kbd "M-.") #'cider-find-var) (define-key map (kbd "C-c C-.") #'cider-find-ns) + (define-key map (kbd "C-c C-:") #'cider-find-keyword) (define-key map (kbd "M-,") #'cider-pop-back) (define-key map (kbd "C-c M-.") #'cider-find-resource) (define-key map (kbd "RET") #'cider-repl-return) @@ -1486,6 +1488,7 @@ constructs." ("Find" ["Find definition" cider-find-var] ["Find resource" cider-find-resource] + ["Find keyword" cider-find-keyword] ["Go back" cider-pop-back]) "--" ["Switch to Clojure buffer" cider-switch-to-last-clojure-buffer] -- cgit v1.2.3