Moving to Doom Emacs!

.emacs.d/modules/tools/eval/config.el

@@ -0,0 +1,92 @@
+;;; tools/eval/config.el -*- lexical-binding: t; -*-
+
+(defvar +eval-popup-min-lines 4
+  "The output height threshold (inclusive) before output is displayed in a popup
+buffer rather than an overlay on the line at point or the minibuffer.")
+
+;; remove ellipsis when printing sexps in message buffer
+(setq eval-expression-print-length nil
+      eval-expression-print-level  nil)
+
+
+;;
+;;; Packages
+
+(set-popup-rule!
+  (lambda (bufname _)
+    (when (boundp '+eval-repl-mode)
+      (buffer-local-value '+eval-repl-mode (get-buffer bufname))))
+  :ttl (lambda (buf)
+         (unless (plist-get +eval-repl-plist :persist)
+           (when-let (process (get-buffer-process buf))
+             (set-process-query-on-exit-flag process nil)
+             (kill-process process)
+             (kill-buffer buf))))
+  :size 0.25 :quit nil)
+
+
+(after! quickrun
+  (setq quickrun-focus-p nil)
+
+  (set-popup-rule! "^\\*quickrun" :size 0.3 :ttl 0)
+
+  (defadvice! +eval--quickrun-fix-evil-visual-region-a ()
+    "Make `quickrun-replace-region' recognize evil visual selections."
+    :override #'quickrun--outputter-replace-region
+    (let ((output (buffer-substring-no-properties (point-min) (point-max))))
+      (with-current-buffer quickrun--original-buffer
+        (cl-destructuring-bind (beg . end)
+            ;; Because `deactivate-mark', the function, was used in
+            ;; `quickrun--region-command-common' instead of `deactivate-mark',
+            ;; the variable, the selection is disabled by this point.
+            (if (bound-and-true-p evil-local-mode)
+                (cons evil-visual-beginning evil-visual-end)
+              (cons (region-beginning) (region-end)))
+          (delete-region beg end)
+          (insert output))
+        (setq quickrun-option-outputter quickrun--original-outputter))))
+
+  (defadvice! +eval--quickrun-auto-close-a (&rest _)
+    "Silently re-create the quickrun popup when re-evaluating."
+    :before '(quickrun quickrun-region)
+    (when-let (win (get-buffer-window quickrun--buffer-name))
+      (let ((inhibit-message t))
+        (quickrun--kill-running-process)
+        (message ""))
+      (delete-window win)))
+
+  (add-hook! 'quickrun-after-run-hook
+    (defun +eval-quickrun-shrink-window-h ()
+      "Shrink the quickrun output window once code evaluation is complete."
+      (when-let (win (get-buffer-window quickrun--buffer-name))
+        (with-selected-window (get-buffer-window quickrun--buffer-name)
+          (let ((ignore-window-parameters t))
+            (shrink-window-if-larger-than-buffer)))))
+    (defun +eval-quickrun-scroll-to-bof-h ()
+      "Ensures window is scrolled to BOF on invocation."
+      (when-let (win (get-buffer-window quickrun--buffer-name))
+        (with-selected-window win
+          (goto-char (point-min))))))
+
+  ;; Display evaluation results in an overlay next to the cursor. If the output
+  ;; is more than 4 lines long, it is displayed in a popup.
+  (when (featurep! +overlay)
+    (defadvice! +eval--inhibit-quickrun-popup-a (buf cb)
+      :override #'quickrun--pop-to-buffer
+      (setq quickrun--original-buffer (current-buffer))
+      (with-current-buffer buf
+        (setq quickrun-option-outputter #'ignore)
+        (funcall cb)))
+
+    (advice-add #'quickrun--recenter :override #'ignore)
+    (add-hook! 'quickrun-after-run-hook
+      (defun +eval-display-in-popup-overlay-h ()
+        (+eval-display-results
+         (with-current-buffer quickrun--buffer-name
+           (string-trim (buffer-string)))
+         quickrun--original-buffer)))))
+
+
+(use-package! eros
+  :when (featurep! +overlay)
+  :hook (emacs-lisp-mode . eros-mode))