Always display evaluated result in popup buffer

If +eval isn't enabled
This commit is contained in:
Henrik Lissner 2020-01-07 14:27:02 -05:00
parent b5a279311c
commit 345479c29e
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -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)