Standardize REPL commands & improve SPC o r

- SPC o r now prompts for a REPL to open when none was found for the
  current buffer.
- REPL handlers must now follow the naming convention "*/open*-repl".
  e.g. +python/open-ipython-repl, +emacs-lisp/open-repl, etc.
- +eval/open-repl has been split in two:
  - +eval/open-repl-other-window
  - +eval/open-repl-same-window

modules/feature/eval/autoload/evil.el

@@ -19,5 +19,5 @@
   :move-point nil
   (interactive "<r><!>")
   (if (evil-normal-state-p)
-      (+eval/open-repl bang)
+      (+eval/open-repl-other-window bang)
     (+eval/send-region-to-repl beg end bang)))

modules/feature/eval/autoload/repl.el

@@ -6,7 +6,7 @@
 (define-minor-mode +eval-repl-mode
   "A minor mode for REPL buffers.")
 
-(defun +eval--ensure-in-repl-buffer (&optional command same-window-p)
+(defun +eval--ensure-in-repl-buffer (&optional command other-window-p)
   (maphash (lambda (key buffer)
              (unless (buffer-live-p buffer)
                (remhash key +eval-repl-buffers)))
@@ -16,7 +16,7 @@
          (buffer (gethash key +eval-repl-buffers)))
     (cl-check-type buffer (or buffer null))
     (unless (eq buffer (current-buffer))
-      (funcall (if same-window-p #'switch-to-buffer #'pop-to-buffer)
+      (funcall (if other-window-p #'pop-to-buffer #'switch-to-buffer)
                (if (buffer-live-p buffer)
                    buffer
                  (setq buffer
@@ -36,19 +36,51 @@
                    (point-max)))
       buffer)))
 
+(defun +eval-open-repl (prompt-p other-window-p)
+  (let ((command (cdr (assq major-mode +eval-repls))))
+    (when (or (not command) prompt-p)
+      (let* ((choices (or (cl-loop for sym being the symbols
+                                   for sym-name = (symbol-name sym)
+                                   if (string-match "^\\(?:\\+\\)?\\([^/]+\\)/open-\\(?:\\(.+\\)-\\)?repl$" sym-name)
+                                   collect
+                                   (format "%s (%s)"
+                                           (match-string-no-properties 1 sym-name)
+                                           (or (match-string-no-properties 2 sym-name) "default")))
+                          (user-error "There are no known available REPLs")))
+             (choice (or (completing-read "Open a REPL for: " choices)
+                         (user-error "Aborting")))
+             (choice-split (split-string choice " " t))
+             (module (car choice-split))
+             (repl (substring (cadr choice-split) 1 -1)))
+        (setq command
+              (intern-soft
+               (format "+%s/open-%srepl" module
+                       (if (string= repl "default")
+                           ""
+                         repl))))))
+    (unless (commandp command)
+      (error "Couldn't find a valid REPL for %s" major-mode))
+    (when (+eval--ensure-in-repl-buffer command other-window-p)
+      (when (bound-and-true-p evil-mode)
+        (call-interactively #'evil-append-line))
+      t)))
+
 ;;;###autoload
-(defun +eval/open-repl (&optional same-window-p)
+(defun +eval/open-repl-same-window (&optional arg)
   "Opens (or reopens) the REPL associated with the current major-mode and place
 the cursor at the prompt.
 
-If SAME-WINDOW-P is non-nil, open REPL in current window."
+If ARG (universal argument), prompt for a specific REPL to open."
   (interactive "P")
-  (if-let* ((command (cdr (assq major-mode +eval-repls))))
-      (when (+eval--ensure-in-repl-buffer command same-window-p)
-        (when (bound-and-true-p evil-mode)
-          (call-interactively #'evil-append-line))
-        t)
-    (user-error "No REPL is defined for %s" major-mode)))
+  (+eval-open-repl arg))
+
+;;;###autoload
+(defun +eval/open-repl-other-window (&optional arg)
+  "Does `+eval/open-repl', but in a popup window.
+
+If ARG (universal argument), prompt for a specific REPL to open."
+  (interactive "P")
+  (+eval-open-repl arg t))
 
 ;;;###autoload
 (defun +eval/send-region-to-repl (beg end &optional auto-execute-p)

modules/feature/eval/autoload/settings.el

@@ -6,7 +6,7 @@
 ;;;###autoload
 (defvar +eval-repls nil
   "An alist mapping major modes to plists that describe REPLs. Used by
-`+eval/open-repl' and filled with the `:repl' setting.")
+`+eval/open-repl-other-window' and filled with the `:repl' setting.")
 
 ;;;###autodef
 (defun set-repl-handler! (modes command)