emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

tools/eval: display in minibuffer if below threshold

Browse source 
If it's just a couple lines, display in minibuffer instead.
This commit is contained in:
Henrik Lissner 2019-10-26 03:54:09 -04:00
parent 36c9f7c333
commit d2fe021bd9
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 19 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

33
modules/tools/eval/autoload/eval.el
View file

@ -3,20 +3,25 @@
;;;###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))
(if (with-temp-buffer
(insert output)
(>= (count-lines (point-min) (point-max))
+eval-overlay-max-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))
(select-window origin)
output-buffer)
(message "%s" output)))
;;;###autoload
(defun +eval-display-results-in-overlay (output &optional source-buffer)