From c71a73e43b753e2937045a97f7bf8c551aed33e0 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Thu, 6 Dec 2018 15:58:35 -0500 Subject: [PATCH] feature/eval: split shrink-window & scroll-to-bof hook Easier to customize. --- modules/feature/eval/config.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/modules/feature/eval/config.el b/modules/feature/eval/config.el index 9a1066a6a..b5c21ef7e 100644 --- a/modules/feature/eval/config.el +++ b/modules/feature/eval/config.el @@ -23,11 +23,16 @@ (advice-add #'quickrun :before #'+eval*quickrun-auto-close) (advice-add #'quickrun-region :before #'+eval*quickrun-auto-close) + (defun +eval|quickrun-shrink-window () + "Shrink the quickrun output window once code evaluation is complete." + (with-selected-window (get-buffer-window quickrun--buffer-name) + (let ((ignore-window-parameters t)) + (shrink-window-if-larger-than-buffer)))) + (add-hook 'quickrun-after-run-hook #'+eval|quickrun-shrink-window) + (defun +eval|quickrun-scroll-to-bof () "Ensures window is scrolled to BOF on invocation." (with-selected-window (get-buffer-window quickrun--buffer-name) - (goto-char (point-min)) - (let ((ignore-window-parameters t)) - (shrink-window-if-larger-than-buffer)))) + (goto-char (point-min)))) (add-hook 'quickrun-after-run-hook #'+eval|quickrun-scroll-to-bof))