Moving to Doom Emacs!

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

@@ -0,0 +1,111 @@
+;;; tools/eval/autoload/eval.el -*- lexical-binding: t; -*-
+
+;;;###autoload
+(defun +eval-display-results-in-popup (output &optional _source-buffer)
+  "Display OUTPUT in a popup buffer."
+  (if (with-temp-buffer
+        (insert output)
+        (>= (count-lines (point-min) (point-max))
+            +eval-popup-min-lines))
+      (let ((output-buffer (get-buffer-create "*doom eval*"))
+            (origin (selected-window)))
+        (with-current-buffer output-buffer
+          (setq-local scroll-margin 0)
+          (erase-buffer)
+          (insert output)
+          (goto-char (point-min))
+          (if (fboundp '+word-wrap-mode)
+              (+word-wrap-mode +1)
+            (visual-line-mode +1)))
+        (when-let (win (display-buffer output-buffer))
+          (fit-window-to-buffer
+           win (/ (frame-height) 2)
+           nil (/ (frame-width) 2)))
+        (select-window origin)
+        output-buffer)
+    (message "%s" output)))
+
+;;;###autoload
+(defun +eval-display-results-in-overlay (output &optional source-buffer)
+  "Display OUTPUT in a floating overlay next to the cursor."
+  (require 'eros)
+  (let ((this-command #'+eval/buffer-or-region)
+        eros-overlays-use-font-lock)
+    (with-current-buffer (or source-buffer (current-buffer))
+      (eros--make-result-overlay output
+        :where (line-end-position)
+        :duration eros-eval-result-duration))))
+
+;;;###autoload
+(defun +eval-display-results (output &optional source-buffer)
+  "Display OUTPUT in an overlay or a popup buffer."
+  (funcall (if (or current-prefix-arg
+                   (with-temp-buffer
+                     (insert output)
+                     (>= (count-lines (point-min) (point-max))
+                         +eval-popup-min-lines))
+                   (not (require 'eros nil t)))
+               #'+eval-display-results-in-popup
+             #'+eval-display-results-in-overlay)
+           output source-buffer)
+  output)
+
+
+;;
+;;; Commands
+
+;;;###autoload
+(defun +eval/buffer ()
+  "Evaluate the whole buffer."
+  (interactive)
+  (if (or (assq major-mode +eval-runners)
+          (and (fboundp '+eval--ensure-in-repl-buffer)
+               (ignore-errors
+                 (get-buffer-window (or (+eval--ensure-in-repl-buffer)
+                                        t)))))
+      (+eval/region (point-min) (point-max))
+    (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 (and (fboundp '+eval--ensure-in-repl-buffer)
+             (ignore-errors
+               (get-buffer-window (or (+eval--ensure-in-repl-buffer)
+                                      t))))
+        (+eval/send-region-to-repl beg end)
+      (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)))))
+        ((quickrun-replace-region beg end))))