From 2e9d5e04e7ddf2727555c74c468bd009ecbdbd92 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sun, 26 Apr 2026 01:16:54 +0100
Subject: cleaning ansi colours also in the repl (#74)

---
 elisp/geiser-repl.el | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'elisp')

diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index 84ff8ce..30f2eb3 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -24,6 +24,7 @@
 (require 'geiser-custom)
 (require 'geiser-base)
 
+(require 'ansi-color)
 (require 'comint)
 (require 'compile)
 (require 'scheme)
@@ -1137,6 +1138,7 @@ buffer."
   (set (make-local-variable 'comint-prompt-read-only)
        geiser-repl-read-only-prompt-p)
   (setq comint-process-echoes nil)
+  (add-hook 'comint-preoutput-filter-functions 'ansi-color-filter-apply)
   (set (make-local-variable 'beginning-of-defun-function)
        'geiser-repl--beginning-of-defun)
   (set (make-local-variable 'comint-input-ignoredups)
-- 
cgit v1.2.3