From e1a79aed9b242a3eed3ef9b52e1eb2f10b32c160 Mon Sep 17 00:00:00 2001
From: Timo Wilken
Date: Sat, 10 Jun 2023 15:03:55 +0200
Subject: Auto-shrink Geiser REPL window

---
 tw/home/files/emacs-init.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'tw/home/files/emacs-init.el')

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
-- 
cgit v1.2.3