diff options
author | Dieter Komendera <dieter@komendera.com> | 2018-11-03 02:33:29 +0100 |
---|---|---|
committer | Bozhidar Batsov <bozhidar.batsov@gmail.com> | 2018-11-18 18:36:50 +0100 |
commit | 1fd1275a5621096bb3320498e032db3764d09f56 (patch) | |
tree | b37ff2acb0c8d510e1b49310c491d1d686176cbd | |
parent | 6679d5d8d86c0ed789124556989bdedeb9a38ccc (diff) |
Simplify cljs reuse check
-rw-r--r-- | cider-connection.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/cider-connection.el b/cider-connection.el index aaf1b9b7..80e80d6d 100644 --- a/cider-connection.el +++ b/cider-connection.el @@ -644,13 +644,13 @@ PARAMS is a plist as received by `cider-repl-create'." (let* ((proj-dir (plist-get params :project-dir)) (host (plist-get params :host)) (port (plist-get params :port)) - (cljsp (string-match-p "cljs" (symbol-name (plist-get params :repl-type)))) + (cljsp (member (plist-get params :repl-type) '(cljs pending-cljs))) (scored-repls (delq nil (mapcar (lambda (b) (let ((bparams (cider--gather-connect-params nil b))) - (when (eq cljsp (string-match-p "cljs" - (symbol-name (plist-get bparams :repl-type)))) + (when (eq cljsp (member (plist-get bparams :repl-type) + '(cljs pending-cljs))) (cons (buffer-name b) (+ (if (equal proj-dir (plist-get bparams :project-dir)) 8 0) |