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

tools/eval: fix eval-and-replace not first clearing selection

Browse source
This commit is contained in:
Henrik Lissner 2019-05-17 16:01:46 -04:00
parent ec240d0bfa
commit 31ed6fdf2b
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 16 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

16
modules/tools/eval/config.el
View file

@ -23,6 +23,22 @@
(advice-add #'quickrun :before #'+eval*quickrun-auto-close)
(advice-add #'quickrun-region :before #'+eval*quickrun-auto-close)
(defun +eval*quickrun--outputter-replace-region ()
"Make `quickrun-replace-region' recognize evil visual selections."
(let ((output (buffer-substring-no-properties (point-min) (point-max))))
(with-current-buffer quickrun--original-buffer
(cl-destructuring-bind (beg . end)
;; Because `deactivate-mark', the function, was used in
;; `quickrun--region-command-common' instead of `deactivate-mark',
;; the variable, the selection is disabled by this point.
(if (bound-and-true-p evil-local-mode)
(cons evil-visual-beginning evil-visual-end)
(cons (region-beginning) (region-end)))
(delete-region beg end)
(insert output))
(setq quickrun-option-outputter quickrun--original-outputter))))
(advice-add #'quickrun--outputter-replace-region :override #'+eval*quickrun--outputter-replace-region)
(defun +eval|quickrun-shrink-window ()
"Shrink the quickrun output window once code evaluation is complete."
(when-let* ((win (get-buffer-window quickrun--buffer-name)))