starting to improve english typos

Author: Ducasse

src/Microdown-Rules/MicEnglishTypoChecker.class.st

@@ -6,6 +6,28 @@ Class {
 	#tag : 'EnglishTypos'
 }
 
+{ #category : 'visiting - inline elements' }
+MicEnglishTypoChecker >> visitCode: aCodeBlock [
+	"for a code block we only check the caption"
+	self flag: #writeATest.
+	
+	('* ;*' match: aCodeBlock  caption)
+		ifTrue: [ 
+			results add: (MicSpaceBeforeDiacriticsResult new
+											micElement: aCodeBlock;
+											inFile: aCodeBlock fromFile; 
+											detail: 'There is a space before ;';
+											yourself) ].
+	
+]
+
+{ #category : 'visiting - inline elements' }
+MicEnglishTypoChecker >> visitMonospace: aCodeBlock [
+	"We do not check monospae code because `[ :each |` is not a problem"
+	
+	self flag: #writeATest
+]
+
 { #category : 'visiting - inline elements' }
 MicEnglishTypoChecker >> visitText: aText [
 
@@ -15,6 +37,13 @@ MicEnglishTypoChecker >> visitText: aText [
 											micElement: aText;
 											inFile: aText fromFile; 
 											detail: 'There is a space before ;';
+											yourself) ].
+	 ('* :*' match: aText bodyString)
+		ifTrue: [ 
+			results add: (MicSpaceBeforeDiacriticsResult new
+											micElement: aText;
+											inFile: aText fromFile; 
+											detail: 'There is a space before :';
 											yourself) ] 
 
 ]