@@ -345,26 +345,12 @@ number (e.g. (\"localhost\" . 5555))."
345
345
(stringp (car x))
346
346
(numberp (cdr x))))
347
347
348
- (defcustom inf-clojure-project-type nil
349
- " Defines the project type.
350
-
351
- If this is `nil`, the project will be automatically detected."
352
- :type 'string
353
- :safe #'stringp
354
- :package-version '(inf-clojure . " 2.1.0" ))
355
-
356
- (defcustom inf-clojure-generic-cmd " lein repl"
357
- " The command used to start a Clojure REPL outside Lein/Boot projects.
358
-
359
- Alternatively you can specify a TCP connection cons pair, instead
360
- of command, consisting of a host and port
361
- number (e.g. (\" localhost\" . 5555)). That's useful if you're
362
- often connecting to a remote REPL process."
363
- :type '(choice (string )
364
- (cons string integer))
365
- :risky #'stringp
366
- :safe #'inf-clojure--endpoint-p
367
- :package-version '(inf-clojure . " 2.0.0" ))
348
+ (defcustom inf-clojure-custom-startup
349
+ nil
350
+ " Form to be used to start inf-clojure.
351
+ Can be a cons pair of (host . port) where host is a string and
352
+ port is an integer, or a string to startup an interpreter like
353
+ \" planck\" ." )
368
354
369
355
(defun inf-clojure--whole-comment-line-p (string )
370
356
" Return non-nil iff STRING is a whole line semicolon comment."
@@ -664,10 +650,11 @@ it (default is value of `inf-clojure-*-cmd'). Runs the hooks
664
650
from `inf-clojure-mode-hook' (after the `comint-mode-hook' is
665
651
run).
666
652
\( Type \\ [describe-mode] in the process buffer for a list of commands.)"
667
- (interactive (list (completing-read " Clojure startup command: "
668
- (mapcar #'cdr inf-clojure-startup-forms)
669
- nil
670
- 'confirm-after-completion )))
653
+ (interactive (list (or inf-clojure-custom-startup
654
+ (completing-read " Clojure startup command: "
655
+ (mapcar #'cdr inf-clojure-startup-forms)
656
+ nil
657
+ 'confirm-after-completion ))))
671
658
(if (not (comint-check-proc " *inf-clojure*" ))
672
659
; ; run the new process in the project's root when in a project folder
673
660
(let ((default-directory (inf-clojure-project-root))
0 commit comments