Replace feature/eval build system with def-menu!

modules/feature/eval/autoload/build.el

@@ -1,45 +0,0 @@
-;;; feature/eval/autoload/build.el -*- lexical-binding: t; -*-
-
-(defvar-local +eval-last-builder nil
-  "The last builder run in the current buffer.")
-
-(defvar +eval-current-builder nil
-  "The spec for the currently running builder. Available from inside builder
-functions.")
-
-(defun +eval--read-builder ()
-  (when-let (builders
-             (cl-remove-if-not
-              (lambda (plist)
-                (if-let (pred (plist-get plist :when))
-                    (and (or (symbolp pred)
-                             (functionp pred))
-                         (funcall pred))
-                  t))
-              (cl-delete-duplicates
-               (reverse (cdr (assq major-mode +eval-builders)))
-               :key 'car)
-              :key 'cdr))
-    (if (= (length builders) 1)
-        (car builders)
-      (when-let (builder (completing-read "Build: " (mapcar #'car builders) nil t))
-        (assq (intern builder) builders)))))
-
-;;;###autoload
-(defun +eval/build (builder)
-  "TODO"
-  (interactive
-   (list (or +eval-last-builder
-             (+eval--read-builder)
-             (error "No builder for this buffer"))))
-  (unless builder
-    (error "Builder not found in registered builders"))
-  (let ((name  (car builder))
-        (fn (plist-get (cdr builder) :fn)))
-    (message "Running %s" name)
-    (if (or (functionp fn)
-            (and (symbolp fn) (fboundp fn)))
-        (let ((+eval-current-builder builder))
-          (funcall fn))
-      (error "'%s' builder is invalid" name))))
-

modules/feature/eval/autoload/eval.el

@@ -4,22 +4,22 @@
 (defun +eval/buffer ()
   "Evaluate the whole buffer."
   (interactive)
-  (cond ((assq major-mode +eval-runners-alist)
+  (cond ((assq major-mode +eval-runners)
          (+eval/region (point-min) (point-max)))
         (t (quickrun))))
 
 ;;;###autoload
 (defun +eval/region (beg end)
-  "Evaluate a region and, if large enough, prints its output to a popup buffer (if an
-elisp buffer). Otherwise forward the region to Quickrun."
+  "Evaluate a region between BEG and END and display the output."
   (interactive "r")
   (let ((load-file-name buffer-file-name))
-    (if-let (runner (cdr (assq major-mode +eval-runners-alist)))
+    (if-let (runner (cdr (assq major-mode +eval-runners)))
         (funcall runner beg end)
       (quickrun-region beg end))))
 
 ;;;###autoload
 (defun +eval/region-and-replace (beg end)
+  "Evaluation a region between BEG and END, and replace it with the result."
   (interactive "r")
   (cond ((eq major-mode 'emacs-lisp-mode)
          (kill-region beg end)

modules/feature/eval/autoload/evil.el

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

modules/feature/eval/autoload/repl.el

@@ -25,7 +25,7 @@
           t))))
 
 ;;;###autoload
-(defun +eval/repl ()
+(defun +eval/open-repl ()
   "Opens (or reopens) the REPL associated with the current major-mode and place
 the cursor at the prompt."
   (interactive)
@@ -36,7 +36,7 @@ the cursor at the prompt."
       t)))
 
 ;;;###autoload
-(defun +eval/repl-send-region (beg end &optional auto-execute-p)
+(defun +eval/send-region-to-repl (beg end &optional auto-execute-p)
   "REPL must be open! Sends a selected region to it. If AUTO-EXECUTE-P, then
 execute it immediately after."
   (interactive "r")