Always display evaluated result in popup buffer
If +eval isn't enabled
This commit is contained in:
parent
b5a279311c
commit
345479c29e
1 changed files with 16 additions and 27 deletions
|
@ -3,33 +3,22 @@
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun +eval-display-results-in-popup (output &optional _source-buffer)
|
(defun +eval-display-results-in-popup (output &optional _source-buffer)
|
||||||
"Display OUTPUT in a popup buffer."
|
"Display OUTPUT in a popup buffer."
|
||||||
(if (with-temp-buffer
|
(let ((output-buffer (get-buffer-create "*doom eval*"))
|
||||||
(insert output)
|
(origin (selected-window)))
|
||||||
(or (>= (count-lines (point-min) (point-max))
|
(with-current-buffer output-buffer
|
||||||
+eval-popup-min-lines)
|
(setq-local scroll-margin 0)
|
||||||
(> (string-width
|
(erase-buffer)
|
||||||
(buffer-substring (point-min)
|
(insert output)
|
||||||
(save-excursion
|
(goto-char (point-min))
|
||||||
(goto-char (point-min))
|
(if (fboundp '+word-wrap-mode)
|
||||||
(line-end-position))))
|
(+word-wrap-mode +1)
|
||||||
(window-width))))
|
(visual-line-mode +1)))
|
||||||
(let ((output-buffer (get-buffer-create "*doom eval*"))
|
(when-let (win (display-buffer output-buffer))
|
||||||
(origin (selected-window)))
|
(fit-window-to-buffer
|
||||||
(with-current-buffer output-buffer
|
win (/ (frame-height) 2)
|
||||||
(setq-local scroll-margin 0)
|
nil (/ (frame-width) 2)))
|
||||||
(erase-buffer)
|
(select-window origin)
|
||||||
(insert output)
|
output-buffer))
|
||||||
(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
|
;;;###autoload
|
||||||
(defun +eval-display-results-in-overlay (output &optional source-buffer)
|
(defun +eval-display-results-in-overlay (output &optional source-buffer)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue