Starting to connect the checkers.

Author: Ducasse

src/Pillar-Chrysal/ConfigurationForPillar.class.st

@@ -163,6 +163,17 @@ ConfigurationForPillar >> bibFile: aValue [
 	^ self propertyAt: #bibFile put: aValue
 ]
 
+{ #category : 'manually added for now' }
+ConfigurationForPillar >> checkerConfigurations [
+	^ self propertyAt: #checkerConfigurations ifAbsent: [ #()]
+]
+
+{ #category : 'manually added for now' }
+ConfigurationForPillar >> checkerConfigurations: aCol [
+
+	^ self propertyAt: #checkerConfigurations put: aCol
+]
+
 { #category : 'conversion' }
 ConfigurationForPillar >> convertAttribution: aValue [
 	"generated code"
@@ -402,6 +413,17 @@ ConfigurationForPillar >> htmlWriter: aValue [
 	^ self propertyAt: #htmlWriter put: aValue
 ]
 
+{ #category : 'manually added for now' }
+ConfigurationForPillar >> ignoredCheckers [
+	^ self propertyAt: #ignoredCheckers ifAbsent: [ #()]
+]
+
+{ #category : 'manually added for now' }
+ConfigurationForPillar >> ignoredCheckers: aCol [
+
+	^ self propertyAt: #ignoredCheckers put: aCol
+]
+
 { #category : 'accessing' }
 ConfigurationForPillar >> inputFile [
 	"generated code"

src/Pillar-Chrysal/ConfigurationForPillarTest.class.st

@@ -41,15 +41,51 @@ ConfigurationForPillarTest >> configurationDictionary [
 
 ]
 
+{ #category : 'helpers' }
+ConfigurationForPillarTest >> configurationDictionaryWithIgnored [
+
+^ STONJSON fromString: '{
+	"language" : "en-UK",
+	"base_url" : "",
+	"attribution" : "Stéphane Ducasse and Guillermo Polito",
+	"keywords" : "Interpreters, languages, Pharo, Smalltalk",
+	"title" : "Fun with Interpreters in Pharo",
+	"series" : "The Pharo Booklet Collection — edited by S. Ducasse",
+	"htmlWriter" : "html",
+	"latexWriter" : "miclatex:sbabook",
+	"bibFile" : "others.bib",
+	"ignoredCheckers" : [ "FrenchTypography" ],
+	"checkerConfigurations" : 
+		[
+		"Vocabulary" :
+			[
+				[
+				"sub-presenter",
+				"subpresenter"
+				],
+				[
+				"sub presenter",
+				"subpresenter"
+				],
+				[
+				"meta object",
+				"metaobject"
+				]
+		]
+	]
+}'
+
+]
+
 { #category : 'tests' }
 ConfigurationForPillarTest >> testCheckers [ 
 
 	| configuration |
 
-	configuration := ConfigurationForPillar newFromSTONDictionary: self configurationDictionary.
+	configuration := ConfigurationForPillar newFromSTONDictionary: self configurationDictionaryWithIgnored.
 	self 
-		assert: (configuration at: 'checkers')
-		equals: #('Vocabulary' 'EnglishTypography')
+		assert: (configuration at: 'ignoredCheckers')
+		equals: #('FrenchTypography')
 
 
 
@@ -62,10 +98,10 @@ ConfigurationForPillarTest >> testCheckersConfiguration [
 
 	| configuration |
 
-	configuration := ConfigurationForPillar newFromSTONDictionary: self configurationDictionary.
+	configuration := ConfigurationForPillar newFromSTONDictionary: self configurationDictionaryWithIgnored.
 	self 
 		assert: (configuration at: 'checkerConfigurations') 
-		equals: {'Vocabulary'->#(#('sub-presenter' 'subpresenter') #('sub presenter' 'subpresenter') #('meta object' 'metaobject'))}
+		equals: {'Vocabulary' -> #(#('sub-presenter' 'subpresenter') #('sub presenter' 'subpresenter') #('meta object' 'metaobject'))}
 
 
 ]

src/Pillar-Cli-BookTester/ClapPillarBookTesterCommand.class.st

@@ -30,10 +30,11 @@ ClapPillarBookTesterCommand >> execute [
 	file exists 
 		ifTrue: [ 
 			| reporter parent |
-			self halt.
 			parent := self project baseDirectory.
 			reporter := MicAnalysisReportWriter 
-				reportForFolder: parent startingFrom: file.
+				reportForFolder: parent 
+				startingFrom: file 
+				configuration: self project configuration.
 
 			reporter isOkay
 					ifTrue: [