Skip to content

Commit 30638a0

Browse files
dpsuttonbbatsov
authored andcommitted
Remove old defcustomed
defcustom `inf-clojure-custom-startup` startup string or (host . port)
1 parent ac40726 commit 30638a0

File tree

1 file changed

+11
-24
lines changed

1 file changed

+11
-24
lines changed

inf-clojure.el

Lines changed: 11 additions & 24 deletions
Original file line numberDiff line numberDiff line change
@@ -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
664650
from `inf-clojure-mode-hook' (after the `comint-mode-hook' is
665651
run).
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

Comments
 (0)