summaryrefslogtreecommitdiff
path: root/cider-browse-ns.el
diff options
context:
space:
mode:
authorRoger Gilliar <roger@gilliar.de>2015-10-12 18:56:08 +0200
committerRoger Gilliar <roger@gilliar.de>2015-10-19 20:43:22 +0200
commit915f5639d821be8f1847d80a770840437c358c88 (patch)
treef65edb8bd3f265e395f076e3d5a0669b476f4969 /cider-browse-ns.el
parente9909b86ac06a8df35fbc1280003ed381c25b7fe (diff)
[Fix #1348] Remove dash dependency
Diffstat (limited to 'cider-browse-ns.el')
-rw-r--r--cider-browse-ns.el15
1 files changed, 8 insertions, 7 deletions
diff --git a/cider-browse-ns.el b/cider-browse-ns.el
index 8b2547d8..3e80ad92 100644
--- a/cider-browse-ns.el
+++ b/cider-browse-ns.el
@@ -35,6 +35,7 @@
(require 'cider-repl)
(require 'cider-client)
+(require 'cider-compat)
(defconst cider-browse-ns-buffer "*Browse NS*")
(defvar-local cider-browse-ns-current-ns nil)
@@ -100,11 +101,11 @@ contents of the buffer are not reset before inserting TITLE and ITEMS."
(with-current-buffer (cider-popup-buffer cider-browse-ns-buffer t)
(let ((vars (cider-sync-request:ns-vars namespace)))
(cider-browse-ns--list (current-buffer)
- namespace
- (mapcar (lambda (var)
- (format "%s"
- (cider-browse-ns--properties var)))
- vars))
+ namespace
+ (mapcar (lambda (var)
+ (format "%s"
+ (cider-browse-ns--properties var)))
+ vars))
(setq-local cider-browse-ns-current-ns namespace))))
;;;###autoload
@@ -131,12 +132,12 @@ contents of the buffer are not reset before inserting TITLE and ITEMS."
(defun cider-browse-ns--doc-at-point ()
"Expand browser according to thing at current point."
(interactive)
- (-when-let (var (cider-browse-ns--var-at-point))
+ (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))
+ (when-let (var (cider-browse-ns--var-at-point))
(cider-find-var current-prefix-arg var)))
(defun cider-browse-ns--handle-mouse (event)