diff options
author | Timo Wilken | 2023-06-10 15:03:55 +0200 |
---|---|---|
committer | Timo Wilken | 2023-06-10 15:03:55 +0200 |
commit | e1a79aed9b242a3eed3ef9b52e1eb2f10b32c160 (patch) | |
tree | 240e83995d64394babb12ff849683d111ae1481a /tw/home/files/emacs-init.el | |
parent | 0692a9731d57d34902d90b3eeb9be2299b63ce12 (diff) |
Auto-shrink Geiser REPL window
Diffstat (limited to 'tw/home/files/emacs-init.el')
-rw-r--r-- | tw/home/files/emacs-init.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/tw/home/files/emacs-init.el b/tw/home/files/emacs-init.el index 13e154ff..0e41607b 100644 --- a/tw/home/files/emacs-init.el +++ b/tw/home/files/emacs-init.el @@ -372,13 +372,18 @@ (evil-define-key 'normal ledger-mode-map (kbd "TAB") #'ledger-indent-line)) +(defun tw/resize-repl-window () + "Make the REPL window small, so it stays out of the way." + (shrink-window (- (window-height) 5))) + (use-package geiser :after (evil) :commands (geiser geiser-eval-buffer geiser-eval-definition geiser-eval-region geiser-eval-last-sexp geiser-mode-switch-to-repl geiser-mode-switch-to-repl-and-enter) - :hook (scheme-mode . geiser-autodoc-mode) + :hook ((scheme-mode . geiser-autodoc-mode) + (geiser-repl-mode . tw/resize-repl-window)) :config (evil-define-key '(normal visual) scheme-mode-map (kbd "<localleader>i") #'geiser-mode-switch-to-repl |