Update tonel formal to V3

src/BaselineOfMicrodownDev/BaselineOfMicrodownDev.class.st

@@ -1,10 +1,11 @@
 Class {
-	#name : #BaselineOfMicrodownDev,
-	#superclass : #BaselineOf,
-	#category : #BaselineOfMicrodownDev
+	#name : 'BaselineOfMicrodownDev',
+	#superclass : 'BaselineOf',
+	#category : 'BaselineOfMicrodownDev',
+	#package : 'BaselineOfMicrodownDev'
 }
 
-{ #category : #baselines }
+{ #category : 'baselines' }
 BaselineOfMicrodownDev >> baseline: spec [
 
 	<baseline>

src/BaselineOfMicrodownDev/package.st

@@ -1 +1 @@
-Package { #name : #BaselineOfMicrodownDev }
+Package { #name : 'BaselineOfMicrodownDev' }

src/BaselineOfMicrodownH5P/BaselineOfMicrodownH5P.class.st

@@ -14,12 +14,13 @@ baseline: spec
 	]
 "
 Class {
-	#name : #BaselineOfMicrodownH5P,
-	#superclass : #BaselineOf,
-	#category : #BaselineOfMicrodownH5P
+	#name : 'BaselineOfMicrodownH5P',
+	#superclass : 'BaselineOf',
+	#category : 'BaselineOfMicrodownH5P',
+	#package : 'BaselineOfMicrodownH5P'
 }
 
-{ #category : #baselines }
+{ #category : 'baselines' }
 BaselineOfMicrodownH5P >> baseline: spec [
 	<baseline>
 

src/BaselineOfMicrodownH5P/package.st

@@ -1 +1 @@
-Package { #name : #BaselineOfMicrodownH5P }
+Package { #name : 'BaselineOfMicrodownH5P' }

src/BaselineOfPillarSlideConverter/BaselineOfPillarSlideConverter.class.st

@@ -1,10 +1,11 @@
 Class {
-	#name : #BaselineOfPillarSlideConverter,
-	#superclass : #BaselineOf,
-	#category : #BaselineOfPillarSlideConverter
+	#name : 'BaselineOfPillarSlideConverter',
+	#superclass : 'BaselineOf',
+	#category : 'BaselineOfPillarSlideConverter',
+	#package : 'BaselineOfPillarSlideConverter'
 }
 
-{ #category : #baselines }
+{ #category : 'baselines' }
 BaselineOfPillarSlideConverter >> baseline: spec [
 	<baseline>
 

src/BaselineOfPillarSlideConverter/package.st

@@ -1 +1 @@
-Package { #name : #BaselineOfPillarSlideConverter }
+Package { #name : 'BaselineOfPillarSlideConverter' }

src/Microdown - HTML/MicHTMLBrush.class.st

@@ -2,10 +2,11 @@
 I'm an abstract brush dedicated to HTML documents. As of today, the only subclass is the tag brush but we can imagine others (e.g., to write HTML comments).
 "
 Class {
-	#name : #MicHTMLBrush,
-	#superclass : #MicExportBrush,
+	#name : 'MicHTMLBrush',
+	#superclass : 'MicExportBrush',
 	#instVars : [
 		'name'
 	],
-	#category : #'Microdown - HTML'
+	#category : 'Microdown - HTML',
+	#package : 'Microdown - HTML'
 }

src/Microdown - HTML/MicHTMLCanvas.class.st

@@ -1,16 +1,17 @@
 Class {
-	#name : #MicHTMLCanvas,
-	#superclass : #MicExportCanvas,
+	#name : 'MicHTMLCanvas',
+	#superclass : 'MicExportCanvas',
 	#instVars : [
 		'name'
 	],
 	#classVars : [
 		'HTMLCharacters'
 	],
-	#category : #'Microdown - HTML'
+	#category : 'Microdown - HTML',
+	#package : 'Microdown - HTML'
 }
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 MicHTMLCanvas class >> initialize [
 	HTMLCharacters := Dictionary new.
 	HTMLCharacters
@@ -20,14 +21,14 @@ MicHTMLCanvas class >> initialize [
 		at: $> put: '>'
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 MicHTMLCanvas >> nextPut: aCharacter [
 	(HTMLCharacters at: aCharacter ifAbsent: nil)
 		ifNil: [ super nextPut: aCharacter ]
 		ifNotNil: [ :string | self raw: string ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 MicHTMLCanvas >> tag [
 	^ self brush: MicHTMLTag new
 ]

src/Microdown - HTML/MicHTMLExporterTest.class.st

@@ -1,38 +1,39 @@
 Class {
-	#name : #MicHTMLExporterTest,
-	#superclass : #TestCase,
+	#name : 'MicHTMLExporterTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'parser',
 		'writer',
 		'factory'
 	],
-	#category : #'Microdown - HTML'
+	#category : 'Microdown - HTML',
+	#package : 'Microdown - HTML'
 }
 
-{ #category : #utils }
+{ #category : 'utils' }
 MicHTMLExporterTest >> parse: aString andCheckWeGet: aResultingString [
 
 	| mic |
 	mic := parser parse: 	aString.
 	self assert: (writer visit: mic) contents equals: aResultingString
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 MicHTMLExporterTest >> setUp [
 	super setUp.
 	parser := MicroDownParser new.
 	writer := MicHTMLWriter new.
 	factory := MicMicrodownSnippetFactory new
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 MicHTMLExporterTest >> testHeaderLevel1 [
 
 	self parse: factory headerLevel1Sample andCheckWeGet: writer usedNewLine , '<h1>Foo</h1>'
 
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 MicHTMLExporterTest >> testUnorderedList [
 	| mic |
 	mic := parser parse: factory unorderedListWithTwoItemsSample.

src/Microdown - HTML/MicHTMLTag.class.st

@@ -1,21 +1,22 @@
 Class {
-	#name : #MicHTMLTag,
-	#superclass : #MicHTMLBrush,
-	#category : #'Microdown - HTML'
+	#name : 'MicHTMLTag',
+	#superclass : 'MicHTMLBrush',
+	#category : 'Microdown - HTML',
+	#package : 'Microdown - HTML'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 MicHTMLTag >> name: aString [
 	name := aString.
 	stream nextPut: $<; << aString
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 MicHTMLTag >> parameterAt: aString put: anotherString [
 	stream space. stream << aString << '="' << anotherString << '"'
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 MicHTMLTag >> with: aString [
 	stream 
 		nextPut: $>; 

src/Microdown - HTML/MicHTMLWriter.class.st

@@ -1,40 +1,41 @@
 Class {
-	#name : #MicHTMLWriter,
-	#superclass : #MicrodownVisitor,
+	#name : 'MicHTMLWriter',
+	#superclass : 'MicrodownVisitor',
 	#instVars : [
 		'stream',
 		'canvas'
 	],
-	#category : #'Microdown - HTML'
+	#category : 'Microdown - HTML',
+	#package : 'Microdown - HTML'
 }
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 MicHTMLWriter >> canvasClass [
 
 	^ MicHTMLCanvas
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 MicHTMLWriter >> contents [ 
 	^ stream contents
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 MicHTMLWriter >> initialize [ 
 	super initialize.
 	stream := MicOutputStream new setStream: (WriteStream on: (String new: 1000)).
 	canvas := self canvasClass on: stream.
 
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 MicHTMLWriter >> usedNewLine [
 	"Return the encoded new line. Useful for tests."
 
 	^ stream usedNewLine
 ]
 
-{ #category : #visiting }
+{ #category : 'visiting' }
 MicHTMLWriter >> visitHeader: aHeader [
 
 	canvas newLine.	
@@ -44,7 +45,7 @@ MicHTMLWriter >> visitHeader: aHeader [
 
 ]
 
-{ #category : #visiting }
+{ #category : 'visiting' }
 MicHTMLWriter >> visitUnorderedList: anUnorderedList [
 
 	canvas newLine.
@@ -53,7 +54,7 @@ MicHTMLWriter >> visitUnorderedList: anUnorderedList [
 		with: [ canvas newLine. super visitUnorderedList: anUnorderedList  ]
 ]
 
-{ #category : #visiting }
+{ #category : 'visiting' }
 MicHTMLWriter >> visitUnorderedListItem: anUnorderedListItem [
 	"will not work with we have text decorators such as bold, italic, monospace"
 

src/Microdown - HTML/package.st

@@ -1 +1 @@
-Package { #name : #'Microdown - HTML' }
+Package { #name : 'Microdown - HTML' }

src/Microdown-Agenda-Tests/MicAgendaBlockTest.class.st

@@ -1,25 +1,26 @@
 Class {
-	#name : #MicAgendaBlockTest,
-	#superclass : #TestCase,
+	#name : 'MicAgendaBlockTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'builder',
 		'parser'
 	],
 	#pools : [
 		'MicMicrodownSharedPool'
 	],
-	#category : #'Microdown-Agenda-Tests'
+	#category : 'Microdown-Agenda-Tests',
+	#package : 'Microdown-Agenda-Tests'
 }
 
-{ #category : #running }
+{ #category : 'running' }
 MicAgendaBlockTest >> setUp [
 
 	super setUp.
 	builder := MicMicrodownTextualBuilder new.
 	parser := Microdown new.
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 MicAgendaBlockTest >> testAgenda [
 	"'<!agenda
 !>
@@ -33,7 +34,7 @@ MicAgendaBlockTest >> testAgenda [
 	self assert: env environmentName equals: 'agenda'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 MicAgendaBlockTest >> testAgendaWithArgument [
 	"'<!agenda|title='A cool agenda'
 !>