add headerString for MicBook

src/Microdown-BookTester/MicAnchorResult.class.st

@@ -38,6 +38,12 @@ MicAnchorResult >> explanation [
 
 ]
 
+{ #category : 'accessing' }
+MicAnchorResult >> headerString [
+
+	^ 'Anchor'
+]
+
 { #category : 'accessing' }
 MicAnchorResult >> isWhat [
 	^  'anchor problem'

src/Microdown-BookTester/MicBookTestResult.class.st

@@ -109,6 +109,12 @@ MicBookTestResult >> fragmentedText: aText [
 	fragmentedText := aText
 ]
 
+{ #category : 'accessing' }
+MicBookTestResult >> headerString [
+
+	^ 'Book Test'
+]
+
 { #category : 'initialization' }
 MicBookTestResult >> initialize [
 

src/Microdown-BookTester/MicBrokenSyncDefinitionResult.class.st

@@ -36,6 +36,12 @@ MicBrokenSyncDefinitionResult >> explanation [
 	^ 'The sync definition has the following broken value: ', syncValue, ' .'
 ]
 
+{ #category : 'initialization' }
+MicBrokenSyncDefinitionResult >> headerString [
+
+	^ 'Broken Sync Definition'
+]
+
 { #category : 'initialization' }
 MicBrokenSyncDefinitionResult >> initialize [ 
 

src/Microdown-BookTester/MicBrokenSyncOriginDefinitionResult.class.st

@@ -27,6 +27,12 @@ MicBrokenSyncOriginDefinitionResult >> explanation [
 	^ 'The sync origin in the definition is bogus it should be C [class]>> #selector and we get: ', origin
 ]
 
+{ #category : 'kinds' }
+MicBrokenSyncOriginDefinitionResult >> headerString [
+
+	^ 'Broken Sync Origin Definition'
+]
+
 { #category : 'initialization' }
 MicBrokenSyncOriginDefinitionResult >> initialize [ 
 	super initialize.

src/Microdown-BookTester/MicChecker.class.st

@@ -124,7 +124,6 @@ MicChecker >> isOkay [
 ]
 
 { #category : 'accessing' }
-
 MicChecker >> reportWriter [
 
 	^ reportWriter
@@ -142,7 +141,6 @@ MicChecker >> resultHeaderStrings [
 ]
 
 { #category : 'visiting' }
-
 MicChecker >> results [
 
 	^ results

src/Microdown-BookTester/MicCheckerDashboard.class.st

@@ -25,6 +25,19 @@ Class {
 	#tag : 'UI'
 }
 
+{ #category : 'examples' }
+MicCheckerDashboard class >> example [
+
+	<script>
+	self new open
+]
+
+{ #category : 'initialization' }
+MicCheckerDashboard >> checkerClasses [
+
+	^ MicChecker allSubclasses reject: [ :cls | cls isAbstract ] 
+
+]
 
 { #category : 'accessing' }
 MicCheckerDashboard >> checkerList [
@@ -42,20 +55,6 @@ MicCheckerDashboard >> checkerResults: aDict [
 	checkerResults:= aDict 
 ]
 
-{ #category : 'examples' }
-MicCheckerDashboard class >> example [
-
-	<script>
-	self new open
-]
-
-{ #category : 'initialization' }
-MicCheckerDashboard >> checkerClasses [
-
-	^ MicChecker allSubclasses reject: [ :cls | cls isAbstract ] 
-
-]
-
 { #category : 'initialization' }
 MicCheckerDashboard >> connectPresenters [
     checkerList presenters do: [ :cb |

src/Microdown-BookTester/MicCodeIndentationResult.class.st

@@ -29,3 +29,9 @@ MicCodeIndentationResult >> explanation [
 	, detail 
 	, '] should use tabs instead of spaces for indentation.'
 ]
+
+{ #category : 'kinds' }
+MicCodeIndentationResult >> headerString [
+
+	^ 'Code Indentation'
+]

src/Microdown-BookTester/MicDesynchronizedCodeResult.class.st

@@ -37,6 +37,12 @@ MicDesynchronizedCodeResult >> explanation [
 	^ 'The code block body of ', originString , ' is not in sync with the version in Pharo ', pharoVersion, 'in file: ', self inFile fullName
 ]
 
+{ #category : 'kinds' }
+MicDesynchronizedCodeResult >> headerString [
+
+	^ 'Desynchronized Code'
+]
+
 { #category : 'accessing' }
 MicDesynchronizedCodeResult >> imageContent: aString [ 
 	imageContents := aString

src/Microdown-BookTester/MicDoublePeriodResult.class.st

@@ -11,3 +11,9 @@ MicDoublePeriodResult >> explanation [
 
 	^  'Text: "' , micElement text , '" in file' , self inFile fullName , ' contains two periods.'
 ]
+
+{ #category : 'accessing' }
+MicDoublePeriodResult >> headerString [
+
+	^ 'Double Period'
+]

src/Microdown-BookTester/MicDuplicatedAnchorResult.class.st

@@ -21,6 +21,12 @@ MicDuplicatedAnchorResult class >> headerString [
 	^ 'Duplicated Anchors:'
 ]
 
+{ #category : 'accessing' }
+MicDuplicatedAnchorResult >> headerString [
+
+	^ 'Duplicated Anchor'
+]
+
 { #category : 'accessing' }
 MicDuplicatedAnchorResult >> isWhat [
 	^  'duplicated'

src/Microdown-BookTester/MicElementAfterColonIsNotCapitalizedResult.class.st

@@ -10,3 +10,9 @@ Class {
 MicElementAfterColonIsNotCapitalizedResult >> explanation [ 
 			^ 'Header: "' , micElement text , '" in file' , self inFile fullName , ' contains a mistake: ', detail , ' as first letter after a colon should be uppercased.'
 ]
+
+{ #category : 'kinds' }
+MicElementAfterColonIsNotCapitalizedResult >> headerString [
+
+	^ 'Element After Conolis Not Capitalized'
+]

src/Microdown-BookTester/MicElementOfHeaderIsNotCapitalizedResult.class.st

@@ -10,3 +10,9 @@ Class {
 MicElementOfHeaderIsNotCapitalizedResult >> explanation [ 
 	^ 'Header: "' , micElement text , '" in file' , self inFile fullName , ' contains a mistake: ' , detail , ' should be capitalized.'
 ]
+
+{ #category : 'kinds' }
+MicElementOfHeaderIsNotCapitalizedResult >> headerString [
+
+	^ 'Element Of Header Is Not Capitalized'
+]

src/Microdown-BookTester/MicFirstElementOfHeaderIsNotCapitalizedResult.class.st

@@ -13,3 +13,9 @@ MicFirstElementOfHeaderIsNotCapitalizedResult >> explanation [
 	^ 'Header: "' , micElement text , '" in file' , self inFile fullName , ' contains a mistake: ', detail, ' as first word of the header should be uppercased.'
 
 ]
+
+{ #category : 'kinds' }
+MicFirstElementOfHeaderIsNotCapitalizedResult >> headerString [
+
+	^ 'First Element Of Header Is Not Capitalized'
+]

src/Microdown-BookTester/MicFrenchTypographyResult.class.st

@@ -29,3 +29,9 @@ MicFrenchTypographyResult >> explanation [
 	, '" in file' , self inFile fullName
 	, ' contains a mistake: ' , detail
 ]
+
+{ #category : 'kinds' }
+MicFrenchTypographyResult >> headerString [
+
+	^ 'French Typography'
+]

src/Microdown-BookTester/MicHeaderWronglyLowercasedResult.class.st

@@ -13,3 +13,9 @@ MicHeaderWronglyLowercasedResult >> explanation [
 	^ 'Header: "' , micElement text , '" in file' , self inFile fullName , ' contains a mistake: ', detail, ' should not be lowercased.'
 
 ]
+
+{ #category : 'kinds' }
+MicHeaderWronglyLowercasedResult >> headerString [
+
+	^ 'Header Wrongly Lowercased'
+]

src/Microdown-BookTester/MicHeaderWronglyUppercasedResult.class.st

@@ -13,3 +13,9 @@ MicHeaderWronglyUppercasedResult >> explanation [
 	^ 'Header: "' , micElement text , '" in file' , self inFile fullName , ' contains a mistake: ', detail, ' should not be uppercased.'
 
 ]
+
+{ #category : 'kinds' }
+MicHeaderWronglyUppercasedResult >> headerString [
+
+	^ 'Header Wrongly Uppercased'
+]

src/Microdown-BookTester/MicLastPeriodResult.class.st

@@ -14,3 +14,9 @@ MicLastPeriodResult >> codeShouldEndWithPeriod: aBoolean [
 
 	codeShouldEndWithPeriod := aBoolean 
 ]
+
+{ #category : 'kinds' }
+MicLastPeriodResult >> headerString [
+
+	^ 'Last Period'
+]

src/Microdown-BookTester/MicMethodReferenceResult.class.st

@@ -27,3 +27,9 @@ MicMethodReferenceResult >> explanation [
 	, '" in file' , self inFile fullName 
 	, ' contains a mistake: method references must be consistent, either always with # or always without #.'
 ]
+
+{ #category : 'kinds' }
+MicMethodReferenceResult >> headerString [
+
+	^ 'Method Reference'
+]

src/Microdown-BookTester/MicMethodStructureResult.class.st

@@ -29,3 +29,9 @@ MicMethodStructureResult >> explanation [
 	, detail 
 	, '] should have an empty line after the selector when is no comment.'
 ]
+
+{ #category : 'kinds' }
+MicMethodStructureResult >> headerString [
+
+	^ 'Method Structure'
+]

src/Microdown-BookTester/MicMissingFigureCaptionResult.class.st

@@ -18,3 +18,9 @@ MicMissingFigureCaptionResult >> figure [
 MicMissingFigureCaptionResult >> figure: aFigure [
 	figure := aFigure
 ]
+
+{ #category : 'kinds' }
+MicMissingFigureCaptionResult >> headerString [
+
+	^ 'Missing Figure Caption'
+]

src/Microdown-BookTester/MicParagraphLabelResult.class.st

@@ -33,6 +33,12 @@ MicParagraphLabelResult >> explanation [
 	), 'be terminated with a period (.).'
 ]
 
+{ #category : 'kinds' }
+MicParagraphLabelResult >> headerString [
+
+	^ 'Paragraph Label'
+]
+
 { #category : 'accessing' }
 MicParagraphLabelResult >> labelShouldEndWithPeriod: aBoolean [
 

src/Microdown-BookTester/MicPeriodInCodeResult.class.st

@@ -14,3 +14,9 @@ MicPeriodInCodeResult >> explanation [
 			   ifFalse: [ ' not ' ]
 			   ifTrue: [ ' ' ]) , 'be terminated with a period (.).'
 ]
+
+{ #category : 'explanation' }
+MicPeriodInCodeResult >> headerString [
+
+	^ 'Period Code'
+]

src/Microdown-BookTester/MicReferenceToUnexistingAnchorResult.class.st

@@ -21,6 +21,12 @@ MicReferenceToUnexistingAnchorResult class >> headerString [
 	^ 'Undefined Anchors:'
 ]
 
+{ #category : 'accessing' }
+MicReferenceToUnexistingAnchorResult >> headerString [
+
+	^ 'Reference To Unexisting Anchor'
+]
+
 { #category : 'accessing' }
 MicReferenceToUnexistingAnchorResult >> isWhat [
 	^  'undefined'

src/Microdown-BookTester/MicUndefinedFigureFileResult.class.st

@@ -43,6 +43,12 @@ MicUndefinedFigureFileResult >> figureFileString: aString [
 	figureFileString := aString
 ]
 
+{ #category : 'accessing' }
+MicUndefinedFigureFileResult >> headerString [
+
+	^ 'Underfined Figure File'
+]
+
 { #category : 'accessing' }
 MicUndefinedFigureFileResult >> what [ 
 

src/Microdown-BookTester/MicUndefinedInputFileResult.class.st

@@ -31,6 +31,12 @@ MicUndefinedInputFileResult >> explanation [
 
 ]
 
+{ #category : 'kinds' }
+MicUndefinedInputFileResult >> headerString [
+
+	^ 'Undefined Input File'
+]
+
 { #category : 'inputFileBlock:' }
 MicUndefinedInputFileResult >> inputFile [ 
 

src/Microdown-BookTester/MicUnreferencedFigureResult.class.st

@@ -51,6 +51,12 @@ MicUnreferencedFigureResult >> figurePath: aString [
 	figurePath := aString
 ]
 
+{ #category : 'kinds' }
+MicUnreferencedFigureResult >> headerString [
+
+	^ 'Unreferenced Figure'
+]
+
 { #category : 'accessing' }
 MicUnreferencedFigureResult >> what [ 
 

src/Microdown-BookTester/MicUseofWrongVocabularyResult.class.st

@@ -19,6 +19,12 @@ MicUseofWrongVocabularyResult >> explanation [
 	  , '] should not be used. We should use ' , goodWord
 ]
 
+{ #category : 'kinds' }
+MicUseofWrongVocabularyResult >> headerString [
+
+	^ 'USe of Wrong Vocabulary'
+]
+
 { #category : 'accessing' }
 MicUseofWrongVocabularyResult >> patternPair: anAssociation [ 
 	patternPair := anAssociation 

src/Microdown-BookTester/MicWithDetailResult.class.st

@@ -20,6 +20,12 @@ MicWithDetailResult >> detail: aString [
 	detail := aString
 ]
 
+{ #category : 'kinds' }
+MicWithDetailResult >> headerString [
+
+	^ 'With detail'
+]
+
 { #category : 'printing' }
 MicWithDetailResult >> printOn: aStream [
 

src/Microdown-BookTester/MicWrongCaseFileResult.class.st

@@ -19,6 +19,12 @@ MicWrongCaseFileResult >> figureFileString: aString [
 	figureFileString := aString
 ]
 
+{ #category : 'kinds' }
+MicWrongCaseFileResult >> headerString [
+
+	^ 'Wrong Case File'
+]
+
 { #category : 'accessing' }
 MicWrongCaseFileResult >> what [
 	^ figureFileString

src/Microdown-BookTester/MicWrongReferenceToFigSectTableAnchorResult.class.st

@@ -38,6 +38,12 @@ MicWrongReferenceToFigSectTableAnchorResult >> explanation [
 	, expected , '].'
 ]
 
+{ #category : 'kinds' }
+MicWrongReferenceToFigSectTableAnchorResult >> headerString [
+
+	^ 'Wrong Reference To Fig Sect Table Anchor'
+]
+
 { #category : 'accessing' }
 MicWrongReferenceToFigSectTableAnchorResult >> micElement: anObject [
     micElement := anObject