From: Mark Wooding <mdw@distorted.org.uk>
Date: Tue, 2 Jul 2024 12:33:09 +0000 (+0100)
Subject: el/dot-emacs.el: Use more sensible fonts for SLIME REPL output.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/profile/commitdiff_plain/bfa66782e0d5fcfe3b067f946e2503e5ab5cd483

el/dot-emacs.el: Use more sensible fonts for SLIME REPL output.
---

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 1a48d08..7bcaee2 100644
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -5255,6 +5255,15 @@ (let ((stuff '((cmucl ("cmucl"))
 		(cons head slime-lisp-implementations))))))
 (setq slime-default-lisp 'sbcl)
 
+(mdw-define-face slime-repl-input-face
+  (t))
+(mdw-define-face slime-repl-output-face
+  (t :inherit font-lock-comment-face))
+(mdw-define-face slime-repl-inputed-output-face
+  (t :inherit link))
+(mdw-define-face slime-repl-output-mouseover-face
+  (t :inherit highlight))
+
 ;; Hooks.
 
 (progn