diff options
author | Tianxiang Xiong <tianxiang.xiong@fundingcircle.com> | 2017-07-07 22:23:59 -0700 |
---|---|---|
committer | Bozhidar Batsov <bozhidar.batsov@gmail.com> | 2017-07-08 12:18:29 +0300 |
commit | de973bd444f9e0e4fd5e3f930a9d991c2e0c047f (patch) | |
tree | ff3e9eceb7f489eef39a03d2455844102a8cc98f /cider-browse-spec.el | |
parent | b7f79b180a1f65ffebdbc1cf0ff8b8fa496f8b06 (diff) |
Make `filter-regex` for `cider-browse-spec-all` optional
It's tedious to call `(cider-browse-spec-all "")` each time.
Diffstat (limited to 'cider-browse-spec.el')
-rw-r--r-- | cider-browse-spec.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/cider-browse-spec.el b/cider-browse-spec.el index 3958bde0..c4fabadf 100644 --- a/cider-browse-spec.el +++ b/cider-browse-spec.el @@ -297,7 +297,7 @@ a more user friendly representation of SPEC-FORM." (defun cider-browse-spec (spec) "Start a new navigation and browse to SPEC definition." (interactive (list (completing-read "Browse spec: " - (cider-sync-request:spec-list "") + (cider-sync-request:spec-list) nil nil (cider-symbol-at-point)))) (cider-browse-spec--clear-nav-history) @@ -305,9 +305,11 @@ a more user friendly representation of SPEC-FORM." ;;;###autoload -(defun cider-browse-spec-all (filter-regex) +(defun cider-browse-spec-all (&optional filter-regex) "List all loaded specs in BUFFER filtered by FILTER-REGEX. -If FILTER-REGEX is empty, list all specs in the registry." + +Optional argument FILTER-REGEX is a regexp string matching spec names. The +default value, \"\", matches all specs in the registry." (interactive (list (read-string "Filter regex: "))) (with-current-buffer (cider-popup-buffer cider-browse-spec-buffer t) (let ((specs (cider-sync-request:spec-list filter-regex))) @@ -335,7 +337,7 @@ If FILTER-REGEX is empty, list all specs in the registry." (cider-browse-spec-all (cl-second (pop cider-browse-spec-navigation))) (cider-browse-spec--browse (pop cider-browse-spec-navigation)))) (unless (cider-browse-spec--is-nav-searchp (cl-first cider-browse-spec-navigation)) - (cider-browse-spec-all "")))) + (cider-browse-spec-all)))) (defun cider-browse-spec-handle-mouse (event) "Handle mouse click EVENT." |