@@ -740,7 +740,7 @@ to continue it."
740
740
With prefix argument EOB-P, positions cursor at end of buffer."
741
741
(interactive " P" )
742
742
(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)
744
744
(call-interactively #'inf-clojure ))
745
745
(when eob-p
746
746
(push-mark )
@@ -785,8 +785,6 @@ to suppress the usage of the target buffer discovery logic."
785
785
The name is simply the final segment of the path."
786
786
(file-name-nondirectory (directory-file-name dir)))
787
787
788
- ; ; TODO add entrypoint here!!
789
- ; ; include :connection-method (shorter name!)
790
788
;;;### autoload
791
789
(defun inf-clojure (cmd )
792
790
" 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"
906
904
(planck . " planck -n %s" )
907
905
(babashka . " bb socket-repl %s" )))
908
906
909
-
910
907
;;;### autoload
911
908
(defun inf-clojure-socket (&optional &rest args )
912
909
" Starts a socket REPL server and connects to it via `inf-clojure' .
913
910
ARGS are optional, in the case where PORT is not chosen one is
914
911
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.
916
913
917
914
ARGS must come in pairs ATTRIBUTE VALUE.
918
915
@@ -1073,7 +1070,7 @@ Indent FORM. FORM is expected to have been trimmed."
1073
1070
(let ((clojure-process (inf-clojure-proc)))
1074
1071
; ; ensure the repl buffer scrolls. See similar fix in CIDER:
1075
1072
; ; 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))
1077
1074
(selected-window ))
1078
1075
(with-current-buffer (process-buffer clojure-process)
1079
1076
(comint-goto-process-mark )
0 commit comments