Extract useful functions

Author: dpsutton

inf-clojure.el

@@ -199,28 +199,37 @@ has been found.  See also variable `inf-clojure-buffer'."
       (unless no-error
         (error "No Clojure subprocess; see variable `inf-clojure-buffer'"))))
 
+(defun inf-clojure-repl-p ()
+  "Indicates if current buffer is an inf-clojure repl.
+Checks the mode and that there is a live process."
+  (and (derived-mode-p 'inf-clojure-mode)
+       (get-buffer-process (current-buffer))
+       (process-live-p (get-buffer-process (current-buffer)))))
+
+(defun inf-clojure-repls-list ()
+  "Return a list of all known inf-clojure repls."
+  (let (repl-buffers)
+    (dolist (b (buffer-list))
+      (with-current-buffer b
+        (when (inf-clojure-repl-p)
+          (push (buffer-name b) repl-buffers))))
+    repl-buffers))
+
 (defun inf-clojure-set-repl (always-ask)
   "Set an inf clojure buffer as the active repl.
 If in a repl already, use that unless a prefix is used (or
 ALWAYS-ASK).  Otherwise get a list of all active inf-clojure
 repls and offer a choice.  Recommended to rename buffers as they
 are created with `rename-buffer`."
   (interactive "P")
-  (cl-flet ((inf-clojure-repl-p () (and (derived-mode-p 'inf-clojure-mode)
-                                        (get-buffer-process (current-buffer))
-                                        (process-live-p (get-buffer-process (current-buffer))))))
-    (if (and (not always-ask)
-             (inf-clojure-repl-p))
-        (setq inf-clojure-buffer (current-buffer))
-      (let (repl-buffers)
-        (dolist (b (buffer-list))
-          (with-current-buffer b
-            (when (inf-clojure-repl-p)
-              (push (buffer-name b) repl-buffers))))
-        (if (> (length repl-buffers) 0)
-            (when-let ((repl-buffer (completing-read "Use for repl: " repl-buffers nil t)))
-              (setq inf-clojure-buffer (get-buffer repl-buffer)))
-          (user-error "No buffers have an inf-clojure process"))))))
+  (if (and (not always-ask)
+           (inf-clojure-repl-p))
+      (setq inf-clojure-buffer (current-buffer))
+    (let ((repl-buffers (inf-clojure-repls-list)))
+     (if (> (length repl-buffers) 0)
+         (when-let ((repl-buffer (completing-read "Use for repl: " repl-buffers nil t)))
+           (setq inf-clojure-buffer (get-buffer repl-buffer)))
+       (user-error "No buffers have an inf-clojure process")))))
 
 (defvar-local inf-clojure-repl-type nil
   "Symbol to define your REPL type.