From 56594ae166a4ead96bd2c1ba12947cf41d501ecb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hern=C3=A1n=20Morales=20Durand?= <hernan.morales@gmail.com>
Date: Fri, 5 Apr 2024 16:12:23 +0200
Subject: [PATCH] Use a slight variation of transparent color to make the
 monospace text readable.

---
 src/Microdown-RichTextComposer/MicTextStyler.class.st       | 3 ++-
 src/Microdown-RichTextComposer/MicrodownParser.extension.st | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/Microdown-RichTextComposer/MicTextStyler.class.st b/src/Microdown-RichTextComposer/MicTextStyler.class.st
index 692bca30..ce1de18b 100644
--- a/src/Microdown-RichTextComposer/MicTextStyler.class.st
+++ b/src/Microdown-RichTextComposer/MicTextStyler.class.st
@@ -80,7 +80,8 @@ MicTextStyler >> interBlockSpacing [
 
 { #category : 'composer styles' }
 MicTextStyler >> monospaceBackgroundColor [
-	^ Smalltalk ui theme settings windowColor
+
+	^ Color transparent alpha: 0.01
 ]
 
 { #category : 'canvas styles' }
diff --git a/src/Microdown-RichTextComposer/MicrodownParser.extension.st b/src/Microdown-RichTextComposer/MicrodownParser.extension.st
index 40f674c8..ca23a5a9 100644
--- a/src/Microdown-RichTextComposer/MicrodownParser.extension.st
+++ b/src/Microdown-RichTextComposer/MicrodownParser.extension.st
@@ -1,6 +1,6 @@
 Extension { #name : 'MicrodownParser' }
 
 { #category : '*Microdown-RichTextComposer' }
-MicrodownParser classSide >> convertToRichText: aString [
+MicrodownParser class >> convertToRichText: aString [
 	^ MicRichTextComposer new visit: (self new parse: aString)
 ]