Use a slight variation of transparent color to make the monospace text readable.

Hernán Morales Durand · jecisc · commit 56594ae166a4 · 2024-04-06T14:36:52.000+02:00
diff --git 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
@@ -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)
 ]

Original file line number	Diff line number	Diff line change
`@@ -80,7 +80,8 @@ MicTextStyler >> interBlockSpacing [`
`80`	`80`
`81`	`81`	`{ #category : 'composer styles' }`
`82`	`82`	`MicTextStyler >> monospaceBackgroundColor [`
`83`		`- ^ Smalltalk ui theme settings windowColor`
	`83`	`+`
	`84`	`+ ^ Color transparent alpha: 0.01`
`84`	`85`	`]`
`85`	`86`
`86`	`87`	`{ #category : 'canvas styles' }`
Original file line number	Diff line number	Diff line change
`@@ -1,6 +1,6 @@`
`1`	`1`	`Extension { #name : 'MicrodownParser' }`
`2`	`2`
`3`	`3`	`{ #category : '*Microdown-RichTextComposer' }`
`4`		`-MicrodownParser classSide >> convertToRichText: aString [`
	`4`	`+MicrodownParser class >> convertToRichText: aString [`
`5`	`5`	`^ MicRichTextComposer new visit: (self new parse: aString)`
`6`	`6`	`]`