💥 Remove :feature category

:feature was a "catch-all" category. Many of its modules fit better in
other categories, so they've been moved:

- feature/debugger -> tools/debugger
- feature/evil -> editor/evil
- feature/eval -> tools/eval
- feature/lookup -> tools/lookup
- feature/snippets -> editor/snippets
- feature/file-templates -> editor/file-templates
- feature/workspaces -> ui/workspaces

More potential changes in the future:

- A new :term category for terminal emulation modules (eshell, term and
  vterm).
- A new :os category for modules dedicated to os-specific functionality.
  The :tools macos module would fit here, but so would modules for nixos
  and arch.
- A new :services category for web-service integration, like wakatime,
  twitter, elfeed, gist and pastebin services.

modules/tools/eval/README.org

@@ -0,0 +1,117 @@
+#+TITLE:   tools/eval
+#+DATE:    February 13, 2017
+#+SINCE:   v2.0
+#+STARTUP: inlineimages
+
+* Table of Contents :TOC_3:noexport:
+- [[Description][Description]]
+  - [[Module Flags][Module Flags]]
+  - [[Plugins][Plugins]]
+  - [[Hacks][Hacks]]
+- [[Prerequisites][Prerequisites]]
+- [[Features][Features]]
+  - [[Inline Code Evaluation][Inline Code Evaluation]]
+  - [[REPLs][REPLs]]
+- [[Configuration][Configuration]]
+  - [[Register a REPL for a major-mode][Register a REPL for a major-mode]]
+  - [[Change how code is evaluated in a major mode][Change how code is evaluated in a major mode]]
+- [[Troubleshooting][Troubleshooting]]
+
+* Description
+This modules adds inline code evaluation support to Emacs, and supplies a
+universal interface for opening and interacting with REPLs.
+
+** Module Flags
+This module has no flags.
+
+** Plugins
++ [[https://github.com/syohex/emacs-quickrun][quickrun]]
+
+** Hacks
++ Quickrun has been modified to:
+  + Use only one output window, in case of consecutive execution of code.
+  + The quickrun window will resize itself to fit its output, once the
+    underlying process is finished executing the code.
+
+* Prerequisites
+This module has no direct prerequisites.
+
+However, specific languages may require additional setup. Check the
+documentation of that language's module for details.
+
+* Features
+** Inline Code Evaluation
+Quickrun can be invoked via:
++ ~M-x +eval/buffer~ (or ~gR~, or ~M-r~)
++ ~M-x +eval/region~
++ ~M-x +eval/region-and-replace~
++ Evil users can use the ~gr~ operator to select and run a region.
+
+** REPLs
+Invoked via:
++ =SPC o r= or ~:repl~ will open a REPL in a popup window. =C-u SPC o r= or
+  ~:repl!~ will open a REPL in the current window. If a REPL is already open and
+  a selection is active, it will be sent to the REPL.
++ ~M-x +eval/open-repl-other-window~
++ ~M-x +eval/open-repl-same-window~
++ ~M-x +eval/send-region-to-repl~ while a selection (and REPL) is active
+
+* Configuration
+** Register a REPL for a major-mode
+REPLs are defined for most languages Doom supports. Check that language module's
+README.org to see if it does (and if it requires additional setup).
+
+To use them, you may use ~M-x +eval/open-repl-other-window~, ~M-x
++eval/open-repl-same-window~, ~:repl~ (for evil users) or the default binding:
+=SPC o r=. These will open a REPL in a popup window.
+
+#+begin_quote
+You can simply call that mode's REPL command manually. e.g. ~M-x ielm~, but
+#+end_quote
+
+Otherwise, you can define your own for a specified major mode:
+
+~(set-repl-handler! MAJOR-MODE FUNCTION)~
+
+FUNCTION should return a repl buffer. Any window changes in this function are
+ignored, then the REPL is opened in a popup window.
+
+#+BEGIN_SRC emacs-lisp
+(defun +lua/open-repl ()
+  (interactive)
+  (lua-start-process "lua" "lua")
+  (pop-to-buffer lua-process-buffer))
+
+(set-repl-handler! 'lua-mode #'+lua/open-repl)
+#+END_SRC
+
+** Change how code is evaluated in a major mode
+Run regions or entire buffers with [[https://github.com/syohex/emacs-quickrun][Quickrun]]. Output is show in a popup window.
+
+Quickrun includes support for many languages, usually by sending text directly
+to interpreters or compilers. However, occasionally, you'll find a language
+without support (like [[https://crystal-lang.org/][Crystal]]), or a language with better Emacs integration
+(like elisp).
+
+Here's how you define a "runner":
+
+#+BEGIN_SRC emacs-lisp
+(set-eval-handler! 'crystal-mode
+  '((:command     . "crystal")
+    (:exec        . "%c %s")
+    (:description . "Run Crystal script")))
+#+END_SRC
+
+A simpler version is simply to use the path to the binary:
+
+#+BEGIN_SRC emacs-lisp
+(set-eval-handler! 'groovy-mode "groovy")
+#+END_SRC
+
+Or if you'd rather run an elisp command:
+
+#+BEGIN_SRC emacs-lisp
+(set-eval-handler! 'emacs-lisp-mode #'+emacs-lisp-eval)
+#+END_SRC
+
+* Troubleshooting

modules/tools/eval/autoload/eval.el

@@ -0,0 +1,49 @@
+;;; tools/eval/autoload/eval.el -*- lexical-binding: t; -*-
+
+;;;###autoload
+(defun +eval/buffer ()
+  "Evaluate the whole buffer."
+  (interactive)
+  (cond ((assq major-mode +eval-runners)
+         (+eval/region (point-min) (point-max)))
+        (t (quickrun))))
+
+;;;###autoload
+(defun +eval/region (beg end)
+  "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))))
+        (funcall runner beg end)
+      (quickrun-region beg end))))
+
+;;;###autoload
+(defun +eval/line-or-region ()
+  "Evaluate the current line or selected region."
+  (interactive)
+  (if (use-region-p)
+      (call-interactively #'+eval/region)
+    (+eval/region (line-beginning-position) (line-end-position))))
+
+;;;###autoload
+(defun +eval/buffer-or-region ()
+  "Evaluate the whole buffer."
+  (interactive)
+  (call-interactively
+   (if (use-region-p)
+       #'+eval/region
+     #'+eval/buffer)))
+
+;;;###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)
+         (condition-case nil
+             (prin1 (eval (read (current-kill 0)))
+                    (current-buffer))
+           (error (message "Invalid expression")
+                  (insert (current-kill 0)))))
+        (t (quickrun-replace-region beg end))))
+

modules/tools/eval/autoload/evil.el

@@ -0,0 +1,23 @@
+;; tools/eval/autoload/evil.el -*- lexical-binding: t; -*-
+;;;###if (featurep! :editor evil)
+
+;;;###autoload (autoload '+eval:region "tools/eval/autoload/evil" nil t)
+(evil-define-operator +eval:region (beg end)
+  "Send region to the currently open repl, if available."
+  :move-point nil
+  (interactive "<r>")
+  (+eval/region beg end))
+
+;;;###autoload (autoload '+eval:replace-region "tools/eval/autoload/evil" nil t)
+(evil-define-operator +eval:replace-region (beg end)
+  :move-point nil
+  (interactive "<r>")
+  (+eval/region-and-replace beg end))
+
+;;;###autoload (autoload '+eval:repl "tools/eval/autoload/evil" nil t)
+(evil-define-operator +eval:repl (beg end &optional bang)
+  :move-point nil
+  (interactive "<r><!>")
+  (if (evil-normal-state-p)
+      (+eval/open-repl-other-window bang)
+    (+eval/send-region-to-repl beg end bang)))

modules/tools/eval/autoload/repl.el

@@ -0,0 +1,102 @@
+;;; tools/eval/autoload/repl.el -*- lexical-binding: t; -*-
+
+(defvar +eval-repl-buffers (make-hash-table :test 'equal)
+  "The buffer of the last open repl.")
+
+(define-minor-mode +eval-repl-mode
+  "A minor mode for REPL buffers.")
+
+(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)))
+           +eval-repl-buffers)
+  (let* ((project-root (doom-project-root))
+         (key (cons major-mode project-root))
+         (buffer (gethash key +eval-repl-buffers)))
+    (cl-check-type buffer (or buffer null))
+    (unless (eq buffer (current-buffer))
+      (funcall (if other-window-p #'pop-to-buffer #'switch-to-buffer)
+               (if (buffer-live-p buffer)
+                   buffer
+                 (setq buffer
+                       (save-window-excursion
+                         (if (commandp command)
+                             (call-interactively command)
+                           (funcall command))))
+                 (cond ((null buffer)
+                        (error "REPL handler %S couldn't open the REPL buffer" command))
+                       ((not (bufferp buffer))
+                        (error "REPL handler %S failed to return a buffer" command)))
+                 (with-current-buffer buffer
+                   (+eval-repl-mode +1))
+                 (puthash key buffer +eval-repl-buffers)
+                 buffer)))
+    (with-current-buffer buffer
+      (goto-char (if (and (derived-mode-p 'comint-mode)
+                          (cdr comint-last-prompt))
+                     (cdr comint-last-prompt)
+                   (point-max)))
+      buffer)))
+
+(defun +eval-open-repl (prompt-p &optional 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-same-window (&optional arg)
+  "Opens (or reopens) the REPL associated with the current major-mode and place
+the cursor at the prompt.
+
+If ARG (universal argument), prompt for a specific REPL to open."
+  (interactive "P")
+  (+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)
+  "REPL must be open! Sends a selected region to it. If AUTO-EXECUTE-P, then
+execute it immediately after."
+  (interactive "r")
+  (let ((selection (buffer-substring-no-properties beg end)))
+    (unless (+eval--ensure-in-repl-buffer)
+      (error "No REPL open"))
+    (when (bound-and-true-p evil-mode)
+      (call-interactively #'evil-append-line))
+    (insert (string-trim selection))
+    (when auto-execute-p
+      ;; I don't use `comint-send-input' because different REPLs may have their
+      ;; own. So I just emulate the keypress.
+      (execute-kbd-macro (kbd "RET")))))

modules/tools/eval/autoload/settings.el

@@ -0,0 +1,58 @@
+;;; tools/eval/autoload/settings.el -*- lexical-binding: t; -*-
+
+;;
+;; REPLs
+
+;;;###autoload
+(defvar +eval-repls nil
+  "An alist mapping major modes to plists that describe REPLs. Used by
+`+eval/open-repl-other-window' and filled with the `:repl' setting.")
+
+;;;###autodef
+(defun set-repl-handler! (modes command)
+  "Defines a REPL for MODES.
+
+MODES is either a single major mode symbol or a list of them. COMMAND is a
+function that creates and returns the REPL buffer.
+
+COMMAND can either be a function that takes no arguments, or an interactive
+command that will be called interactively."
+  (dolist (mode (doom-enlist modes))
+    (setf (alist-get mode +eval-repls) command)))
+
+
+;;
+;; Evaluation
+
+;;;###autoload
+(defvar +eval-runners nil
+  "Alist mapping major modes to interactive runner functions.")
+
+;;;###autodef
+(defun set-eval-handler! (mode command)
+  "Define a code evaluator for major mode MODE with `quickrun'.
+
+1. If MODE is a string and COMMAND is the string, MODE is a file regexp and
+   COMMAND is a string key for an entry in `quickrun-file-alist'.
+2. If MODE is not a string and COMMAND is a string, MODE is a major-mode symbol
+   and COMMAND is a key (for `quickrun--language-alist'), and will be registered
+   in `quickrun--major-mode-alist'.
+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', which is used by `+eval/region'."
+  (declare (indent defun))
+  (cond ((symbolp command)
+         (push (cons mode command) +eval-runners))
+        ((stringp command)
+         (after! quickrun
+           (push (cons mode command)
+                 (if (stringp mode)
+                     quickrun-file-alist
+                   quickrun--major-mode-alist))))
+        ((listp command)
+         (after! quickrun
+           (quickrun-add-command
+             (or (cdr (assq mode quickrun--major-mode-alist))
+                 (string-remove-suffix "-mode" (symbol-name mode)))
+             command :mode mode)))))

modules/tools/eval/config.el

@@ -0,0 +1,38 @@
+;;; tools/eval/config.el -*- lexical-binding: t; -*-
+
+;; remove ellipsis when printing sexps in message buffer
+(setq eval-expression-print-length nil
+      eval-expression-print-level  nil)
+
+
+;;
+;; Packages
+
+(after! quickrun
+  (setq quickrun-focus-p nil)
+
+  (set-popup-rule! "^\\*quickrun" :size 0.3 :ttl 0)
+
+  (defun +eval*quickrun-auto-close (&rest _)
+    "Allows us to silently re-run quickrun from within the quickrun buffer."
+    (when-let* ((win (get-buffer-window quickrun--buffer-name)))
+      (let ((inhibit-message t))
+        (quickrun--kill-running-process)
+        (message ""))
+      (delete-window win)))
+  (advice-add #'quickrun :before #'+eval*quickrun-auto-close)
+  (advice-add #'quickrun-region :before #'+eval*quickrun-auto-close)
+
+  (defun +eval|quickrun-shrink-window ()
+    "Shrink the quickrun output window once code evaluation is complete."
+    (with-selected-window (get-buffer-window quickrun--buffer-name)
+      (let ((ignore-window-parameters t))
+        (shrink-window-if-larger-than-buffer))))
+  (add-hook 'quickrun-after-run-hook #'+eval|quickrun-shrink-window)
+
+  (defun +eval|quickrun-scroll-to-bof ()
+    "Ensures window is scrolled to BOF on invocation."
+    (with-selected-window (get-buffer-window quickrun--buffer-name)
+      (goto-char (point-min))))
+  (add-hook 'quickrun-after-run-hook #'+eval|quickrun-scroll-to-bof))
+

modules/tools/eval/packages.el

@@ -0,0 +1,5 @@
+;; -*- no-byte-compile: t; -*-
+;;; tools/eval/packages.el
+
+(package! quickrun)
+