Replace feature/eval build system with def-menu!

modules/feature/eval/README.org

@@ -1,13 +1,12 @@
 #+TITLE: :feature eval
 
-This modules adds support for REPLs, build tasks and code evaluation.
+This modules adds support for evaluating code from inside Emacs. This includes REPLs and direct access to the interpreters and compilers of many languages.
 
 * Table of Contents :TOC:
 - [[#install][Install]]
 - [[#usage][Usage]]
 - [[#configuration][Configuration]]
   - [[#repls][REPLs]]
-  - [[#build-tasks][Build Tasks]]
   - [[#code-evaluation][Code Evaluation]]
 
 * Install
@@ -20,15 +19,8 @@ Check the README.org in that language's module for details.
   Invoked via:
   + ~:repl~ (evil ex-command)
   + =<leader> o r= in normal mode (or visual mode, which sends the selection to the open REPL)
-  + ~M-x +eval/repl~
-  + ~M-x +eval/repl-send-region~ while a selection (and REPL) is active
-
-+ *Build Tasks*
-  You will be prompted to select a task. Only the ones that meet the predicate will be listed.
-  + ~:build~ (evil ex-command)
-  + =M-b= (by default)
-  + =<leader> o b= in normal mode
-  + ~M-x +eval/build~
+  + ~M-x +eval/open-repl~
+  + ~M-x +eval/send-region-to-repl~ while a selection (and REPL) is active
 
 + *Code Evaluation*
   Quickrun can be invoked via:
@@ -60,35 +52,6 @@ FUNCTION must return the repl buffer. Any window changes are ignored, then hande
 (set! :repl 'emacs-lisp-mode #'+emacs-lisp/repl)
 #+END_SRC
 
-** Build Tasks
-A build task is little more than a major-mode-local interactive command that performs a task, such as compiling the current project or running unit tests. A predicate function can be supplied to ensure a command is only available when it is appropriate.
-
-#+BEGIN_SRC emacs-lisp
-(defun +lua/run-love ()
-  "Run the current project in love 10.0."
-  (async-shell-command
-   (format "/usr/bin/love %s"
-           (shell-quote-argument (doom-project-root)))))
-
-(defun +lua/build ()
-  "Run a build script in the project root."
-  (let ((default-directory (doom-project-root)))
-    (compile "luajit build.lua")))
-
-(defun +lua/generate-docs ()
-  "Generate project documentation."
-  (let ((default-directory (doom-project-root)))
-    (compile "luadoc *.lua")))
-
-(defun +lua-love-p ()
-  "Returns non-nil if the current project is a love project."
-  (doom-project-has! (and "main.lua" "config.lua")))
-
-(set! :build 'run           'lua-mode #'+lua/run-love :when (+lua-love-p))
-(set! :build 'build-project 'lua-mode #'+lua/build    :when (+lua-love-p))
-(set! :build 'generate-docs 'lua-mode #'+lua/generate-docs)
-#+END_SRC
-
 ** Code Evaluation
 Run regions or entire buffers with [[https://github.com/syohex/emacs-quickrun][Quickrun]]. Output will be sent to a popup window.
 

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")

modules/feature/eval/config.el

@@ -1,39 +1,15 @@
 ;;; feature/eval/config.el -*- lexical-binding: t; -*-
 
-;;
-;; Code building
-;;
-
-(defvar +eval-builders nil
-  "A nested alist, mapping major modes to build function plists. Used by
-`+eval/build' and filled with the `:build' setting.")
-
-(def-setting! :build (name modes fn &rest plist)
-  "Define a build function (FN) for MODES (can be major or minor) called NAME.
-
-PLIST accepts the following properties:
-
-  :when FORM    A predicate to determine if the builder is appropriate for this
-                buffer."
-  `(dolist (mode ',(doom-enlist (doom-unquote modes)) +eval-builders)
-     (unless (assq mode +eval-builders)
-       (push (list mode) +eval-builders))
-     (cl-pushnew (cons ,name (append (list :fn ,fn) (list ,@plist)))
-                 (cdr (assq mode +eval-builders))
-                 :test #'eq :key #'car)))
-
-
 ;;
 ;; REPLs
 ;;
 
 (defvar +eval-repls nil
   "An alist mapping major modes to plists that describe REPLs. Used by
-`+eval/repl' and filled with the `:repl' setting.")
+`+eval/open-repl' and filled with the `:repl' setting.")
 
 (define-minor-mode +eval-repl-mode
-  "A minor mode for REPL buffers."
-  :init-value nil)
+  "A minor mode for REPL buffers.")
 
 (def-setting! :repl (mode command)
   "Define a REPL for a mode. MODE is a major mode symbol and COMMAND is a
@@ -53,7 +29,7 @@ function that creates and returns the REPL buffer."
 (setq eval-expression-print-length nil
       eval-expression-print-level  nil)
 
-(defvar +eval-runners-alist nil
+(defvar +eval-runners nil
   "Alist mapping major modes to interactive runner functions.")
 
 (def-setting! :eval (mode command)
@@ -67,10 +43,10 @@ function that creates and returns the REPL buffer."
 3. If MODE is not a string and COMMAND is an alist, see `quickrun-add-command':
    (quickrun-add-command MODE COMMAND :mode MODE).
 4. If MODE is not a string and COMMANd is a symbol, add it to
-   `+eval-runners-alist', which is used by `+eval/region'."
+   `+eval-runners', which is used by `+eval/region'."
   (let ((command (doom-unquote command)))
     (cond ((symbolp command)
-           `(push (cons ,mode ',command) +eval-runners-alist))
+           `(push (cons ,mode ',command) +eval-runners))
           ((stringp command)
            `(after! quickrun
               (push (cons ,mode ',command)