95 lines
3 KiB
EmacsLisp
95 lines
3 KiB
EmacsLisp
;;; 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."
|
|
(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))
|
|
(select-window origin)
|
|
output-buffer))
|
|
|
|
;;;###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-overlay-max-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)
|
|
(cond ((assq major-mode +eval-runners)
|
|
(+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-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))))
|