Skip to content

Commit 8989f40

Browse files
committed
[Fix #3133] Don't use cider-jack-in-lein-plugins for non-Lein projects
1 parent c875fc6 commit 8989f40

File tree

1 file changed

+13
-23
lines changed

1 file changed

+13
-23
lines changed

cider.el

Lines changed: 13 additions & 23 deletions
Original file line numberDiff line numberDiff line change
@@ -479,21 +479,14 @@ Added to `cider-jack-in-lein-plugins' (which see) when doing
479479
`cider-jack-in-cljs'.")
480480
(put 'cider-jack-in-cljs-lein-plugins 'risky-local-variable t)
481481

482-
(defun cider-jack-in-normalized-lein-plugins (&optional project-type)
482+
(defun cider-jack-in-normalized-lein-plugins ()
483483
"Return a normalized list of Leiningen plugins to be injected.
484484
See `cider-jack-in-lein-plugins' for the format, except that the list
485-
returned by this function does not include keyword arguments.
486-
487-
PROJECT-TYPE will be observed, for avoiding injecting plugins
488-
where it doesn't make sense."
489-
(let* ((corpus (if (and cider-enrich-classpath
490-
(eq project-type 'lein))
491-
(append cider-jack-in-lein-plugins
492-
'(("mx.cider/enrich-classpath" "1.8.0")))
493-
cider-jack-in-lein-plugins))
494-
(corpus (append corpus
495-
`(("cider/cider-nrepl" ,cider-injected-middleware-version)))))
496-
(thread-last corpus
485+
returned by this function does not include keyword arguments."
486+
(let (plugins (append cider-jack-in-lein-plugins
487+
`(("mx.cider/enrich-classpath" "1.8.0")
488+
("cider/cider-nrepl" ,cider-injected-middleware-version))))
489+
(thread-last plugins
497490
(seq-filter
498491
(lambda (spec)
499492
(if-let* ((pred (plist-get (seq-drop spec 2) :predicate)))
@@ -558,16 +551,16 @@ string is quoted for passing as argument to an inferior shell."
558551
" ")
559552
" " params))
560553

561-
(defun cider-boot-jack-in-dependencies (global-opts params dependencies plugins middlewares)
554+
(defun cider-boot-jack-in-dependencies (global-opts params dependencies middlewares)
562555
"Create boot jack-in dependencies.
563556
Does so by concatenating GLOBAL-OPTS, DEPENDENCIES,
564-
PLUGINS and MIDDLEWARES. PARAMS and MIDDLEWARES are passed on to
565-
`cider-boot-middleware-task` before concatenating and DEPENDENCIES and PLUGINS
557+
and MIDDLEWARES. PARAMS and MIDDLEWARES are passed on to
558+
`cider-boot-middleware-task` before concatenating and DEPENDENCIES
566559
are passed on to `cider-boot-dependencies`."
567560
(concat global-opts
568561
(unless (seq-empty-p global-opts) " ")
569562
"-i \"(require 'cider.tasks)\" " ;; Note the space at the end here
570-
(cider-boot-dependencies (append dependencies plugins))
563+
(cider-boot-dependencies (append dependencies `(("cider/cider-nrepl" ,cider-injected-middleware-version))))
571564
(cider-boot-middleware-task params middlewares)))
572565

573566
(defun cider--lein-artifact-exclusions (exclusions)
@@ -617,9 +610,7 @@ one used."
617610
(let* ((deps-string (string-join
618611
(seq-map (lambda (dep)
619612
(format "%s {:mvn/version \"%s\"}" (car dep) (cadr dep)))
620-
;; NOTE: injecting Lein plugins for deps.edn projects
621-
;; seems a bit dubious, worth revisiting at some point.
622-
(append dependencies cider-jack-in-lein-plugins))
613+
(append dependencies `(("cider/cider-nrepl" ,cider-injected-middleware-version))))
623614
" "))
624615
(middleware (mapconcat
625616
(apply-partially #'format "%s")
@@ -639,7 +630,7 @@ one used."
639630
(defun cider-shadow-cljs-jack-in-dependencies (global-opts params dependencies)
640631
"Create shadow-cljs jack-in deps.
641632
Does so by concatenating GLOBAL-OPTS, DEPENDENCIES finally PARAMS."
642-
(let ((dependencies (append dependencies cider-jack-in-lein-plugins)))
633+
(let ((dependencies (append dependencies `(("cider/cider-nrepl" ,cider-injected-middleware-version)))))
643634
(concat
644635
global-opts
645636
(unless (seq-empty-p global-opts) " ")
@@ -680,7 +671,7 @@ dependencies."
680671
(cider-add-clojure-dependencies-maybe
681672
cider-jack-in-dependencies)
682673
cider-jack-in-dependencies-exclusions
683-
(cider-jack-in-normalized-lein-plugins project-type)
674+
(cider-jack-in-normalized-lein-plugins)
684675
(if cider-enrich-classpath
685676
(append cider-jack-in-lein-middlewares
686677
'("cider.enrich-classpath/middleware"))
@@ -690,7 +681,6 @@ dependencies."
690681
params
691682
(cider-add-clojure-dependencies-maybe
692683
cider-jack-in-dependencies)
693-
(cider-jack-in-normalized-lein-plugins project-type)
694684
(cider-jack-in-normalized-nrepl-middlewares)))
695685
('clojure-cli (cider-clojure-cli-jack-in-dependencies
696686
global-opts

0 commit comments

Comments
 (0)