Skip to content

Commit 8770742

Browse files
author
Mike Bruce
committed
[clojure-emacs#209] clean up!
1 parent 62ea697 commit 8770742

File tree

1 file changed

+3
-6
lines changed

1 file changed

+3
-6
lines changed

Diff for: inf-clojure.el

+3-6
Original file line numberDiff line numberDiff line change
@@ -740,7 +740,7 @@ to continue it."
740740
With prefix argument EOB-P, positions cursor at end of buffer."
741741
(interactive "P")
742742
(if (get-buffer-process inf-clojure-buffer)
743-
(inf-clojure--swap-to-buffer-window inf-buffer)
743+
(inf-clojure--swap-to-buffer-window inf-clojure-buffer)
744744
(call-interactively #'inf-clojure))
745745
(when eob-p
746746
(push-mark)
@@ -785,8 +785,6 @@ to suppress the usage of the target buffer discovery logic."
785785
The name is simply the final segment of the path."
786786
(file-name-nondirectory (directory-file-name dir)))
787787

788-
;; TODO add entrypoint here!!
789-
;; include :connection-method (shorter name!)
790788
;;;###autoload
791789
(defun inf-clojure (cmd)
792790
"Run an inferior Clojure process, input and output via buffer `*inf-clojure*'.
@@ -906,13 +904,12 @@ OUTPUT is the latest data received from the process"
906904
(planck . "planck -n %s")
907905
(babashka . "bb socket-repl %s")))
908906

909-
910907
;;;###autoload
911908
(defun inf-clojure-socket (&optional &rest args)
912909
"Starts a socket REPL server and connects to it via `inf-clojure'.
913910
ARGS are optional, in the case where PORT is not chosen one is
914911
randomly selected between 5500 and 6000. The default for
915-
REPL-TYPE is clojure.
912+
REPL-TYPE is clojure. If you are inside a project, `inf-clojure-socket' will always run in the project directory.
916913
917914
ARGS must come in pairs ATTRIBUTE VALUE.
918915
@@ -1073,7 +1070,7 @@ Indent FORM. FORM is expected to have been trimmed."
10731070
(let ((clojure-process (inf-clojure-proc)))
10741071
;; ensure the repl buffer scrolls. See similar fix in CIDER:
10751072
;; https://github.com/clojure-emacs/cider/pull/2590
1076-
(with-selected-window (or (get-buffer-window (inf-clojure--get-buffer))
1073+
(with-selected-window (or (get-buffer-window (inf-clojure-buffer))
10771074
(selected-window))
10781075
(with-current-buffer (process-buffer clojure-process)
10791076
(comint-goto-process-mark)

0 commit comments

Comments
 (0)