@@ -345,26 +345,12 @@ number (e.g. (\"localhost\" . 5555))."
345345 (stringp (car x))
346346 (numberp (cdr x))))
347347
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\" ." )
368354
369355(defun inf-clojure--whole-comment-line-p (string )
370356 " 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
664650from `inf-clojure-mode-hook' (after the `comint-mode-hook' is
665651run).
666652\( 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 ))))
671658 (if (not (comint-check-proc " *inf-clojure*" ))
672659 ; ; run the new process in the project's root when in a project folder
673660 (let ((default-directory (inf-clojure-project-root))
0 commit comments