diff --git a/src/BaselineOfMicrodownDev/BaselineOfMicrodownDev.class.st b/src/BaselineOfMicrodownDev/BaselineOfMicrodownDev.class.st
deleted file mode 100644
index 09670081..00000000
--- a/src/BaselineOfMicrodownDev/BaselineOfMicrodownDev.class.st
+++ /dev/null
@@ -1,81 +0,0 @@
-Class {
-	#name : 'BaselineOfMicrodownDev',
-	#superclass : 'BaselineOf',
-	#category : 'BaselineOfMicrodownDev',
-	#package : 'BaselineOfMicrodownDev'
-}
-
-{ #category : 'baselines' }
-BaselineOfMicrodownDev >> baseline: spec [
-
-	<baseline>
-	spec for: #common do: [ 
-		spec
-			baseline: 'PillarDocumentModel'
-			with: [ spec repository: 'github://pillar-markup/pillar:dev-8/src' ].
-		spec
-			package: #Microdown;
-			package: #'Microdown-Tests'
-				with: [ spec requires: #( #Microdown ) ];
-			
-			package: #'Microdown-ResolvePath'
-				with: [ spec requires: #( #'Microdown' ) ];	
-			package: #'Microdown-ResolvePath-Tests'
-				with: [ spec requires: #( #'Microdown-ResolvePath' ) ];
-		
-			package: #'Microdown-Pharo-Tools'
-				with: [ spec requires: #( #Microdown ) ];
-				
-			package: #'Microdown-RichTextComposer'
-				with: [ spec requires: #( #Microdown ) ];
-			package: #'Microdown-RichTextComposer-Tests'
-				with: [ spec requires: #( #'Microdown-RichTextComposer' ) ];
-
-			package: #'Microdown-Transformer'
-				with: [ spec requires: #( #Microdown ) ];
-			package: #'Microdown-Transformer-Tests'
-				with: [ spec requires: #( #'Microdown-Transformer' ) ];
-
-			package: #'Microdown-Evaluator'
-				with: [ spec requires: #( #'Microdown-Transformer' ) ];
-			package: #'Microdown-Evaluator-Tests'
-				with: [ spec requires: #( #'Microdown-Evaluator' ) ];
-
-			package: #'Microdown-PrettyPrinter'
-				with: [ spec requires: #( #Microdown ) ];
-
-			package: #'Microdown-PrettyPrinter-Tests'
-				with: [ spec requires: #( #'Microdown-PrettyPrinter' #'Microdown-Tests') ];
-
-			package: #'Microdown-Pillar'
-				with: [ spec requires: #( #Microdown #PillarDocumentModel ) ];
-			package: #'Microdown-Pillar-Tests'
-				with: [ spec requires: #( #'Microdown-Pillar' #'Microdown-Tests' ) ].
-	
-		"I do not want group without tests for now"
-		spec
-			group: 'Core' 
-			with: #(
-				#'Microdown'
-				#'Microdown-Tests'
-				#'Microdown-ResolvePath' 
-				#'Microdown-ResolvePath-Tests' 
-				);
-			group: 'Pillar' 
-			with: #(
-				#'Microdown' 
-				#'Microdown-Tests' 
-				#'Microdown-Pillar' 
-				#'Microdown-Pillar-Tests' );
-			group: 'RichText' with: #('Core' #'Microdown-RichTextComposer' );
-			group: 'Extensions' 
-			with: #(
-				#'Microdown-Evaluator'
-				#'Microdown-Evaluator-Tests'
-				#'Microdown-PrettyPrinter'
-				#'Microdown-PrettyPrinter-Tests'
-				#'Microdown-Transformer'
-				#'Microdown-Transformer-Tests');
-			group: 'All' 
-			with: #('Core' 'Extensions' #'Microdown-Pharo-Tools' 'RichText')  ]
-]
diff --git a/src/BaselineOfMicrodownH5P/BaselineOfMicrodownH5P.class.st b/src/BaselineOfMicrodownH5P/BaselineOfMicrodownH5P.class.st
deleted file mode 100644
index cfe82c52..00000000
--- a/src/BaselineOfMicrodownH5P/BaselineOfMicrodownH5P.class.st
+++ /dev/null
@@ -1,44 +0,0 @@
-"
-baseline: spec
-	<baseline>
-	
-	spec for: #'common' do: [
-		spec 
-			baseline: 'Mustache'
-			with: [ spec
-						repository: 'github://noha/mustache:v1.0/repository';
-						loads: #('Core' 'Tests') ].
-		spec 
-			package: #'Microdown-H5P' 
-			with: [ spec requires: #('Mustache') ]
-	]
-"
-Class {
-	#name : 'BaselineOfMicrodownH5P',
-	#superclass : 'BaselineOf',
-	#category : 'BaselineOfMicrodownH5P',
-	#package : 'BaselineOfMicrodownH5P'
-}
-
-{ #category : 'baselines' }
-BaselineOfMicrodownH5P >> baseline: spec [
-	<baseline>
-	
-	spec
-		for: #(unix osx)
-		do: [ spec 
-					baseline: 'OSSubprocess' 
-					with: [ spec repository: 'github://pharo-contributions/OSSubprocess:v1.4.0/repository' ] ].
-	
-	spec for: #'common' do: [
-		"probably not needed with the latest version e.g. jpeg production."
-		spec 
-			baseline: 'Mustache'
-			with: [ spec
-						repository: 'github://noha/mustache:v1.0/repository';
-						loads: #('Core' 'Tests') ].
-		spec 
-			package: #'Microdown-H5P' 
-			with: [ spec requires: #('Mustache' 'OSSubprocess') ]
-	]
-]
diff --git a/src/BaselineOfPillarSlideConverter/BaselineOfPillarSlideConverter.class.st b/src/BaselineOfPillarSlideConverter/BaselineOfPillarSlideConverter.class.st
deleted file mode 100644
index 7c624e79..00000000
--- a/src/BaselineOfPillarSlideConverter/BaselineOfPillarSlideConverter.class.st
+++ /dev/null
@@ -1,27 +0,0 @@
-Class {
-	#name : 'BaselineOfPillarSlideConverter',
-	#superclass : 'BaselineOf',
-	#category : 'BaselineOfPillarSlideConverter',
-	#package : 'BaselineOfPillarSlideConverter'
-}
-
-{ #category : 'baselines' }
-BaselineOfPillarSlideConverter >> baseline: spec [
-	<baseline>
-	
-	spec
-		for: #common
-		do: [ spec blessing: #baseline.
-			spec 
-				baseline: 'PetitParser2Core' with: [ spec
-					 repository: 'github://kursjan/petitparser2' ];
-				package: 'Pillar-Core';
-				package: 'Pillar-Model';
-				package: 'Pillar-PetitPillar' with: [ spec 
-					requires: #( 'PetitParser2Core' 'Pillar-Model' ) ];
-				package: 'Microdown-Slide-Utils' with: [ spec 
-					requires: #( 'PetitParser2Core' 'Pillar-Model' "I do not put microdown here 
-					because I do not want") ]]
-
-	
-]
diff --git a/src/Microdown - HTML/MicHTMLBrush.class.st b/src/Microdown - HTML/MicHTMLBrush.class.st
deleted file mode 100644
index 3d42b524..00000000
--- a/src/Microdown - HTML/MicHTMLBrush.class.st	
+++ /dev/null
@@ -1,12 +0,0 @@
-"
-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',
-	#instVars : [
-		'name'
-	],
-	#category : 'Microdown - HTML',
-	#package : 'Microdown - HTML'
-}
diff --git a/src/Microdown - HTML/MicHTMLCanvas.class.st b/src/Microdown - HTML/MicHTMLCanvas.class.st
deleted file mode 100644
index e3ec237d..00000000
--- a/src/Microdown - HTML/MicHTMLCanvas.class.st	
+++ /dev/null
@@ -1,34 +0,0 @@
-Class {
-	#name : 'MicHTMLCanvas',
-	#superclass : 'MicExportCanvas',
-	#instVars : [
-		'name'
-	],
-	#classVars : [
-		'HTMLCharacters'
-	],
-	#category : 'Microdown - HTML',
-	#package : 'Microdown - HTML'
-}
-
-{ #category : 'initialization' }
-MicHTMLCanvas class >> initialize [
-	HTMLCharacters := Dictionary new.
-	HTMLCharacters
-		at: $" put: '&quot;';
-		at: $& put: '&amp;';
-		at: $< put: '&lt;';
-		at: $> put: '&gt;'
-]
-
-{ #category : 'accessing' }
-MicHTMLCanvas >> nextPut: aCharacter [
-	(HTMLCharacters at: aCharacter ifAbsent: nil)
-		ifNil: [ super nextPut: aCharacter ]
-		ifNotNil: [ :string | self raw: string ]
-]
-
-{ #category : 'accessing' }
-MicHTMLCanvas >> tag [
-	^ self brush: MicHTMLTag new
-]
diff --git a/src/Microdown - HTML/MicHTMLExporterTest.class.st b/src/Microdown - HTML/MicHTMLExporterTest.class.st
deleted file mode 100644
index 9002c508..00000000
--- a/src/Microdown - HTML/MicHTMLExporterTest.class.st	
+++ /dev/null
@@ -1,45 +0,0 @@
-Class {
-	#name : 'MicHTMLExporterTest',
-	#superclass : 'TestCase',
-	#instVars : [
-		'parser',
-		'writer',
-		'factory'
-	],
-	#category : 'Microdown - HTML',
-	#package : 'Microdown - HTML'
-}
-
-{ #category : 'utils' }
-MicHTMLExporterTest >> parse: aString andCheckWeGet: aResultingString [
-	
-	| mic |
-	mic := parser parse: 	aString.
-	self assert: (writer visit: mic) contents equals: aResultingString
-]
-
-{ #category : 'running' }
-MicHTMLExporterTest >> setUp [
-	super setUp.
-	parser := MicroDownParser new.
-	writer := MicHTMLWriter new.
-	factory := MicMicrodownSnippetFactory new
-]
-
-{ #category : 'tests' }
-MicHTMLExporterTest >> testHeaderLevel1 [
-
-	self parse: factory headerLevel1Sample andCheckWeGet: writer usedNewLine , '<h1>Foo</h1>'
-	
-]
-
-{ #category : 'tests' }
-MicHTMLExporterTest >> testUnorderedList [
-	| mic |
-	mic := parser parse: factory unorderedListWithTwoItemsSample.
-	self assert: (writer visit: mic) contents equals: '
-<ul>
-<li>Foo</li>
-<li>Bar</li>
-</ul>'
-]
diff --git a/src/Microdown - HTML/MicHTMLTag.class.st b/src/Microdown - HTML/MicHTMLTag.class.st
deleted file mode 100644
index 093fa2db..00000000
--- a/src/Microdown - HTML/MicHTMLTag.class.st	
+++ /dev/null
@@ -1,27 +0,0 @@
-Class {
-	#name : 'MicHTMLTag',
-	#superclass : 'MicHTMLBrush',
-	#category : 'Microdown - HTML',
-	#package : 'Microdown - HTML'
-}
-
-{ #category : 'accessing' }
-MicHTMLTag >> name: aString [
-	name := aString.
-	stream nextPut: $<; << aString
-]
-
-{ #category : 'accessing' }
-MicHTMLTag >> parameterAt: aString put: anotherString [
-	stream space. stream << aString << '="' << anotherString << '"'
-]
-
-{ #category : 'accessing' }
-MicHTMLTag >> with: aString [
-	stream 
-		nextPut: $>; 
-		<< aString;
-		<< '</'; 
-		<< name;
-		nextPut: $>
-]
diff --git a/src/Microdown - HTML/MicHTMLWriter.class.st b/src/Microdown - HTML/MicHTMLWriter.class.st
deleted file mode 100644
index 21ef8e69..00000000
--- a/src/Microdown - HTML/MicHTMLWriter.class.st	
+++ /dev/null
@@ -1,65 +0,0 @@
-Class {
-	#name : 'MicHTMLWriter',
-	#superclass : 'MicrodownVisitor',
-	#instVars : [
-		'stream',
-		'canvas'
-	],
-	#category : 'Microdown - HTML',
-	#package : 'Microdown - HTML'
-}
-
-{ #category : 'initialization' }
-MicHTMLWriter >> canvasClass [
-
-	^ MicHTMLCanvas
-]
-
-{ #category : 'accessing' }
-MicHTMLWriter >> contents [ 
-	^ stream contents
-]
-
-{ #category : 'initialization' }
-MicHTMLWriter >> initialize [ 
-	super initialize.
-	stream := MicOutputStream new setStream: (WriteStream on: (String new: 1000)).
-	canvas := self canvasClass on: stream.
-	
-]
-
-{ #category : 'initialization' }
-MicHTMLWriter >> usedNewLine [
-	"Return the encoded new line. Useful for tests."
-	
-	^ stream usedNewLine
-]
-
-{ #category : 'visiting' }
-MicHTMLWriter >> visitHeader: aHeader [
-
-	canvas newLine.	
-	canvas tag 
-		name: 'h',  aHeader level asString;
-		with: aHeader header
-	
-]
-
-{ #category : 'visiting' }
-MicHTMLWriter >> visitUnorderedList: anUnorderedList [
-
-	canvas newLine.
-	canvas tag
-		name: 'ul';
-		with: [ canvas newLine. super visitUnorderedList: anUnorderedList  ]
-]
-
-{ #category : 'visiting' }
-MicHTMLWriter >> visitUnorderedListItem: anUnorderedListItem [
-	"will not work with we have text decorators such as bold, italic, monospace"
-	
-	canvas tag
-		name: 'li';
-		with: anUnorderedListItem text.
-	canvas newLine
-]
diff --git a/src/Microdown-Agenda-Tests/MicAgendaBlockTest.class.st b/src/Microdown-Agenda-Tests/MicAgendaBlockTest.class.st
deleted file mode 100644
index e1ce3153..00000000
--- a/src/Microdown-Agenda-Tests/MicAgendaBlockTest.class.st
+++ /dev/null
@@ -1,49 +0,0 @@
-Class {
-	#name : 'MicAgendaBlockTest',
-	#superclass : 'TestCase',
-	#instVars : [
-		'builder',
-		'parser'
-	],
-	#pools : [
-		'MicMicrodownSharedPool'
-	],
-	#category : 'Microdown-Agenda-Tests',
-	#package : 'Microdown-Agenda-Tests'
-}
-
-{ #category : 'running' }
-MicAgendaBlockTest >> setUp [
-
-	super setUp.
-	builder := MicMicrodownTextualBuilder new.
-	parser := Microdown new.
-]
-
-{ #category : 'tests' }
-MicAgendaBlockTest >> testAgenda [
-	"'<!agenda
-!>
-'" 
-	| source root env|
-	source := EnvironmentOpeningBlockMarkup , 'agenda', String cr,
-	EnvironmentClosingBlockMarkup, String cr.
-	root :=  parser parse: source.
-	env := root children first. 
-	self assert: (env isKindOf: MicAgendaBlock). 
-	self assert: env environmentName equals: 'agenda'
-]
-
-{ #category : 'tests' }
-MicAgendaBlockTest >> testAgendaWithArgument [
-	"'<!agenda|title='A cool agenda'
-!>
-'" 
-	| source root env|
-	source := EnvironmentOpeningBlockMarkup , 'agenda|title=A cool agenda', 	String cr, 	EnvironmentClosingBlockMarkup, String cr.
-	root :=  parser parse: source.
-	env := root children first. 
-	self assert: (env isKindOf: MicAgendaBlock). 
-	self assert: env environmentName equals: 'agenda'.
-	self assert: env title equals: 'A cool agenda'
-]
diff --git a/src/Microdown-Agenda-Tests/MicAgendaGeneratorTest.class.st b/src/Microdown-Agenda-Tests/MicAgendaGeneratorTest.class.st
deleted file mode 100644
index cdac03f6..00000000
--- a/src/Microdown-Agenda-Tests/MicAgendaGeneratorTest.class.st
+++ /dev/null
@@ -1,456 +0,0 @@
-"
-This class contains tests but all the test are not correct beacaus we need to have a file in a repertory with the templates because if we don't have them we can't generate the calendar.
-"
-Class {
-	#name : 'MicAgendaGeneratorTest',
-	#superclass : 'ParametrizedTestCase',
-	#instVars : [
-		'builder',
-		'parser',
-		'writer',
-		'fileSystem',
-		'newLine'
-	],
-	#pools : [
-		'MicMicrodownSharedPool'
-	],
-	#category : 'Microdown-Agenda-Tests',
-	#package : 'Microdown-Agenda-Tests'
-}
-
-{ #category : 'building suites' }
-MicAgendaGeneratorTest class >> testParameters [
-
-	^ ParametrizedTestMatrix new
-		  forSelector: #writer addOptions: { MicAgendaGenerator };
-		  forSelector: #fileSystem addOptions: { FileSystem };
-		  forSelector: #newLine addOptions: { String crlf . String cr . String lf };
-		  yourself
-]
-
-{ #category : 'exemple' }
-MicAgendaGeneratorTest >> agendaExempleMultiplesTalks [
-
- ^ '<!agenda|title=A cool agenda
-
-<!day|start=3 mars 2023
-
-<!segment|start=10h30
-
-<!talk|subject=First talk&length=30m&author=Delporte Gaylord&room=Building B
-!>
-<!break|subject=Break&length=2h&room=Building A
-!>
-<!talk|subject=Second talk&length=1h&author=Not me&room=Building C
-!>
-
-!>
-
-!>
-
-<!day|start=4 mars 2023
-
-<!segment|start=10h00
-
-<!talk|subject=Ninth talk&length=30m&author=Delporte Gaylord&room=Building G
-!>
-<!break|subject=Break&length=2h&room=Building F
-!>
-<!talk|subject=Second talk&length=1h&author=Not Someone&room=Building Q
-!>
-
-!>
-
-!>
-
-!>'
-	
-]
-
-{ #category : 'exemple' }
-MicAgendaGeneratorTest >> agendaExempleOneTalk [
-
- ^ '<!agenda|title=A cool agenda
-
-<!day|start=3 mars 2023
-
-<!segment|start=10h30
-
-<!talk|subject=First talk&length=30m&author=Delporte Gaylord&room=Building B
-!>
-!>
-
-!>
-
-!>'
-	
-]
-
-{ #category : 'exemple' }
-MicAgendaGeneratorTest >> agendaExempleWithRealInfo [
-
- ^ '<!agenda|title=A cool agenda
-
-<!day|start=22 aout 2022
-
-<!segment|start=9h30
-
-<!break|subject=Welcome&length=30m&room=Amphi
-!>
-
-<!talk|subject=PharoJS&length=45m&author=N. BOURAQADI and D. MASON&room=Amphi
-!>
-
-<!talk|subject=eXtreme Programming&length=45m&author=V. BLONDEAU and F. CANIPA&room=Amphi
-!>
-
-<!talk|subject=Grafoscopio&length=30m&author=O. LUNA&room=Amphi
-!>
-
-<!break|subject=Lunch&length=2h&room=Amphi
-!>
-
-<!talk|subject=Persistence in Pharo&length=45m&author=M. DENKER and N. HARTI&room=Amphi
-!>
-
-<!talk|subject=Pharo-IA&length=30m&author=S. MONTANO and O. ZAITSEV&room=Amphi
-!>
-
-<!talk|subject=Microdown&length=30m&author=S. DUCASSE and K. OSTERBYE&room=Amphi
-!>
-
-<!break|subject=Cofee Break&length=30m&room=Amphi
-!>
-
-<!talk|subject=Working with Remote Images&length=45m&author=A. GRANT&room=Amphi
-!>
-
-<!break|subject=Award Competition&length=2h&room=Amphi
-!>
-
-!>
-
-!>
-
-!>'
-	
-]
-
-{ #category : 'accessing' }
-MicAgendaGeneratorTest >> fileSystem: aFileSystem [
-	fileSystem := aFileSystem memory.
-]
-
-{ #category : 'accessing' }
-MicAgendaGeneratorTest >> newLine: aNewLine [
-	(aNewLine = String cr) ifTrue:[ writer crAsNewLine ].
-	(aNewLine = String lf) ifTrue:[ writer lfAsNewLine ].
-	(aNewLine = String crlf) ifTrue:[ writer crlfAsNewLine ].
-	newLine := aNewLine
-]
-
-{ #category : 'running' }
-MicAgendaGeneratorTest >> setUp [
-
-	super setUp.
-	builder := MicMicrodownTextualBuilder new.
-	parser := Microdown new.
-]
-
-{ #category : 'tests' }
-MicAgendaGeneratorTest >> testAgendaAstIsCorrect [
-
-	| fs file ast agenda day segment|
-
-	fs := FileSystem memory.
-	file := fs root / 'agenda.md'.
-	file writeStreamDo: [ :stream |
-		stream nextPutAll: self agendaExempleMultiplesTalks ].
-	
-	ast := parser parse: file contents.
-	agenda := ast children first.
-	day := agenda children first.
-	segment := day children first.
-	self assert: agenda class equals: MicAgendaBlock.
-	self assert: day class equals: MicDayBlock.
-	self assert: segment class equals: MicSegmentBlock.
-	self assert: segment children size equals: 3.
-	
-]
-
-{ #category : 'tests' }
-MicAgendaGeneratorTest >> testConvertMicFileCorrectly [
-
-	"Look at the class comment for more information about this test"
-
-	"| fs file ast|
-	fs := FileSystem memory.
-	file := fs root / 'agenda.md'.
-	file writeStreamDo: [ :stream |
-		stream nextPutAll: self agendaExempleMultiplesTalks ].
-	
-	ast := parser parse: file contents.
-	
-	writer visit: ast.
-	
-	self assert: writer contents equals:
-'3 mars 2023', newLine,
-'						<!-- Schedule Details -->', newLine,
-'								<li class=""schedule-details"">', newLine,
-'										<div class=""block"">', newLine,
-'											<!-- time -->', newLine,
-'											<div class=""time"">', newLine,
-'												<i class=""fa fa-clock-o""></i>', newLine,
-'												<span class=""time"">10h30 - 11h00</span>', newLine,
-'											</div>', newLine,
-'											<!-- Speaker -->', newLine,
-'											<div class=""speaker"">', newLine,
-'												<!-- <img src=""images/speakers/speaker-thumb-one.jpg"" alt=""speaker-thumb-one""> -->', newLine,
-'												<span class=""name"">Delporte Gaylord</span>', newLine,
-'											</div>', newLine,
-'											<!-- Subject -->', newLine,
-'											<div class=""subject"">First talk</div>', newLine,
-'											<!-- Venue -->', newLine,
-'											<div class=""venue"">Building B</div>', newLine,
-'										</div>', newLine,
-'								</li>', newLine,
-'						<!-- Schedule Details -->', newLine,
-'								<li class=""schedule-details"">', newLine,
-'										<div class=""block"">', newLine,
-'											<!-- time -->', newLine,
-'											<div class=""time"">', newLine,
-'												<i class=""fa fa-clock-o""></i>', newLine,
-'												<span class=""time"">11h00 - 13h00</span>', newLine,
-'											</div>', newLine,
-'											<!-- Speaker -->', newLine,
-'											<div class=""speaker"">', newLine,
-'												<!-- <img src=""images/speakers/speaker-thumb-one.jpg"" alt=""speaker-thumb-one""> -->', newLine,
-'												<span class=""name""></span>', newLine,
-'											</div>', newLine,
-'											<!-- Subject -->', newLine,
-'											<div class=""subject"">Break</div>', newLine,
-'											<!-- Venue -->', newLine,
-'											<div class=""venue"">Building A</div>', newLine,
-'										</div>', newLine,
-'								</li>', newLine,
-'						<!-- Schedule Details -->', newLine,
-'								<li class=""schedule-details"">', newLine,
-'										<div class=""block"">', newLine,
-'											<!-- time -->', newLine,
-'											<div class=""time"">', newLine,
-'												<i class=""fa fa-clock-o""></i>', newLine,
-'												<span class=""time"">13h00 - 14h00</span>', newLine,
-'											</div>', newLine,
-'											<!-- Speaker -->', newLine,
-'											<div class=""speaker"">', newLine,
-'												<!-- <img src=""images/speakers/speaker-thumb-one.jpg"" alt=""speaker-thumb-one""> -->', newLine,
-'												<span class=""name"">Not me</span>', newLine,
-'											</div>', newLine,
-'											<!-- Subject -->', newLine,
-'											<div class=""subject"">Second talk</div>', newLine,
-'											<!-- Venue -->', newLine,
-'											<div class=""venue"">Building C</div>', newLine,
-'										</div>', newLine,
-'								</li>', newLine, newLine"
-	
-]
-
-{ #category : 'tests' }
-MicAgendaGeneratorTest >> testConvertMicFileCorrectlyWithMultiplesTalks [
-
-	"Look at the class comment for more information about this test"
-
-	"| fs file ast|
-
-	fs := FileSystem memory.
-	file := fs root / 'agenda.md'.
-	file writeStreamDo: [ :stream |
-		stream nextPutAll: self agendaExempleMultiplesTalks ].
-	
-	ast := parser parse: file contents.
-	
-	writer visit: ast.
-	
-	self assert: writer contents equals:
-'3 mars 2023', newLine,
-'						<!-- Schedule Details -->', newLine,
-'								<li class=""schedule-details"">', newLine,
-'										<div class=""block"">', newLine,
-'											<!-- time -->', newLine,
-'											<div class=""time"">', newLine,
-'												<i class=""fa fa-clock-o""></i>', newLine,
-'												<span class=""time"">10h30 - 11h00</span>', newLine,
-'											</div>', newLine,
-'											<!-- Speaker -->', newLine,
-'											<div class=""speaker"">', newLine,
-'												<!-- <img src=""images/speakers/speaker-thumb-one.jpg"" alt=""speaker-thumb-one""> -->', newLine,
-'												<span class=""name"">Delporte Gaylord</span>', newLine,
-'											</div>', newLine,
-'											<!-- Subject -->', newLine,
-'											<div class=""subject"">First talk</div>', newLine,
-'											<!-- Venue -->', newLine,
-'											<div class=""venue"">Building B</div>', newLine,
-'										</div>', newLine,
-'								</li>', newLine,
-'						<!-- Schedule Details -->', newLine,
-'								<li class=""schedule-details"">', newLine,
-'										<div class=""block"">', newLine,
-'											<!-- time -->', newLine,
-'											<div class=""time"">', newLine,
-'												<i class=""fa fa-clock-o""></i>', newLine,
-'												<span class=""time"">11h00 - 13h00</span>', newLine,
-'											</div>', newLine,
-'											<!-- Speaker -->', newLine,
-'											<div class=""speaker"">', newLine,
-'												<!-- <img src=""images/speakers/speaker-thumb-one.jpg"" alt=""speaker-thumb-one""> -->', newLine,
-'												<span class=""name""></span>', newLine,
-'											</div>', newLine,
-'											<!-- Subject -->', newLine,
-'											<div class=""subject"">Break</div>', newLine,
-'											<!-- Venue -->', newLine,
-'											<div class=""venue"">Building A</div>', newLine,
-'										</div>', newLine,
-'								</li>', newLine,
-'						<!-- Schedule Details -->', newLine,
-'								<li class=""schedule-details"">', newLine,
-'										<div class=""block"">', newLine,
-'											<!-- time -->', newLine,
-'											<div class=""time"">', newLine,
-'												<i class=""fa fa-clock-o""></i>', newLine,
-'												<span class=""time"">13h00 - 14h00</span>', newLine,
-'											</div>', newLine,
-'											<!-- Speaker -->', newLine,
-'											<div class=""speaker"">', newLine,
-'												<!-- <img src=""images/speakers/speaker-thumb-one.jpg"" alt=""speaker-thumb-one""> -->', newLine,
-'												<span class=""name"">Not me</span>', newLine,
-'											</div>', newLine,
-'											<!-- Subject -->', newLine,
-'											<div class=""subject"">Second talk</div>', newLine,
-'											<!-- Venue -->', newLine,
-'											<div class=""venue"">Building C</div>', newLine,
-'										</div>', newLine,
-'								</li>', newLine, newLine"
-	
-]
-
-{ #category : 'tests' }
-MicAgendaGeneratorTest >> testConvertMicFileCorrectlyWithOneTalk [
-
-	"Look at the class comment for more information about this test"
-
-	"| fs file ast|
-
-	fs := FileSystem memory.
-	file := fs root / 'agenda.md'.
-	file writeStreamDo: [ :stream |
-		stream nextPutAll: self agendaExempleOneTalk ].
-	
-	ast := parser parse: file contents.
-	
-	writer visit: ast.
-	
-	self assert: writer contents equals:
-'3 mars 2023', newLine,
-'						<!-- Schedule Details -->', newLine,
-'								<li class=""schedule-details"">', newLine,
-'										<div class=""block"">', newLine,
-'											<!-- time -->', newLine,
-'											<div class=""time"">', newLine,
-'												<i class=""fa fa-clock-o""></i>', newLine,
-'												<span class=""time"">10h30 - 11h00</span>', newLine,
-'											</div>', newLine,
-'											<!-- Speaker -->', newLine,
-'											<div class=""speaker"">', newLine,
-'												<!-- <img src=""images/speakers/speaker-thumb-one.jpg"" alt=""speaker-thumb-one""> -->', newLine,
-'												<span class=""name"">Delporte Gaylord</span>', newLine,
-'											</div>', newLine,
-'											<!-- Subject -->', newLine,
-'											<div class=""subject"">First talk</div>', newLine,
-'											<!-- Venue -->', newLine,
-'											<div class=""venue"">Building B</div>', newLine,
-'										</div>', newLine,
-'								</li>', newLine, newLine"
-]
-
-{ #category : 'tests' }
-MicAgendaGeneratorTest >> testConvertMicFileCorrectlyWithRealInfo [
-
-	"Look at the class comment for more information about this test"
-
-	"| fs file ast|
-
-	fs := FileSystem memory.
-	file := fs root / 'agenda.md'.
-	file writeStreamDo: [ :stream |
-		stream nextPutAll: self agendaExempleWithRealInfo ].
-	
-	ast := parser parse: file contents.
-	
-	writer visit: ast.
-	
-	self assert: writer contents equals:
-'3 mars 2023', newLine,
-'						<!-- Schedule Details -->', newLine,
-'								<li class=""schedule-details"">', newLine,
-'										<div class=""block"">', newLine,
-'											<!-- time -->', newLine,
-'											<div class=""time"">', newLine,
-'												<i class=""fa fa-clock-o""></i>', newLine,
-'												<span class=""time"">10h30 - 11h00</span>', newLine,
-'											</div>', newLine,
-'											<!-- Speaker -->', newLine,
-'											<div class=""speaker"">', newLine,
-'												<!-- <img src=""images/speakers/speaker-thumb-one.jpg"" alt=""speaker-thumb-one""> -->', newLine,
-'												<span class=""name"">Delporte Gaylord</span>', newLine,
-'											</div>', newLine,
-'											<!-- Subject -->', newLine,
-'											<div class=""subject"">First talk</div>', newLine,
-'											<!-- Venue -->', newLine,
-'											<div class=""venue"">Building B</div>', newLine,
-'										</div>', newLine,
-'								</li>', newLine,
-'						<!-- Schedule Details -->', newLine,
-'								<li class=""schedule-details"">', newLine,
-'										<div class=""block"">', newLine,
-'											<!-- time -->', newLine,
-'											<div class=""time"">', newLine,
-'												<i class=""fa fa-clock-o""></i>', newLine,
-'												<span class=""time"">11h00 - 13h00</span>', newLine,
-'											</div>', newLine,
-'											<!-- Speaker -->', newLine,
-'											<div class=""speaker"">', newLine,
-'												<!-- <img src=""images/speakers/speaker-thumb-one.jpg"" alt=""speaker-thumb-one""> -->', newLine,
-'												<span class=""name""></span>', newLine,
-'											</div>', newLine,
-'											<!-- Subject -->', newLine,
-'											<div class=""subject"">Break</div>', newLine,
-'											<!-- Venue -->', newLine,
-'											<div class=""venue"">Building A</div>', newLine,
-'										</div>', newLine,
-'								</li>', newLine,
-'						<!-- Schedule Details -->', newLine,
-'								<li class=""schedule-details"">', newLine,
-'										<div class=""block"">', newLine,
-'											<!-- time -->', newLine,
-'											<div class=""time"">', newLine,
-'												<i class=""fa fa-clock-o""></i>', newLine,
-'												<span class=""time"">13h00 - 14h00</span>', newLine,
-'											</div>', newLine,
-'											<!-- Speaker -->', newLine,
-'											<div class=""speaker"">', newLine,
-'												<!-- <img src=""images/speakers/speaker-thumb-one.jpg"" alt=""speaker-thumb-one""> -->', newLine,
-'												<span class=""name"">Not me</span>', newLine,
-'											</div>', newLine,
-'											<!-- Subject -->', newLine,
-'											<div class=""subject"">Second talk</div>', newLine,
-'											<!-- Venue -->', newLine,
-'											<div class=""venue"">Building C</div>', newLine,
-'										</div>', newLine,
-'								</li>', newLine, newLine"
-	
-]
-
-{ #category : 'accessing' }
-MicAgendaGeneratorTest >> writer: aWriter [
-	writer := aWriter new
-]
diff --git a/src/Microdown-Agenda-Tests/MicDayBlockTest.class.st b/src/Microdown-Agenda-Tests/MicDayBlockTest.class.st
deleted file mode 100644
index ffe3f6a4..00000000
--- a/src/Microdown-Agenda-Tests/MicDayBlockTest.class.st
+++ /dev/null
@@ -1,49 +0,0 @@
-Class {
-	#name : 'MicDayBlockTest',
-	#superclass : 'TestCase',
-	#instVars : [
-		'builder',
-		'parser'
-	],
-	#pools : [
-		'MicMicrodownSharedPool'
-	],
-	#category : 'Microdown-Agenda-Tests',
-	#package : 'Microdown-Agenda-Tests'
-}
-
-{ #category : 'running' }
-MicDayBlockTest >> setUp [
-
-	super setUp.
-	builder := MicMicrodownTextualBuilder new.
-	parser := Microdown new.
-]
-
-{ #category : 'tests' }
-MicDayBlockTest >> testDay [
-	"'<!day
-!>
-'" 
-	| source root env|
-	source := EnvironmentOpeningBlockMarkup , 'day', String cr,
-	EnvironmentClosingBlockMarkup, String cr.
-	root :=  parser parse: source.
-	env := root children first. 
-	self assert: (env isKindOf: MicDayBlock). 
-	self assert: env environmentName equals: 'day'
-]
-
-{ #category : 'tests' }
-MicDayBlockTest >> testDayWithArgument [
-	"'<!day|start=05/12/2022
-!>
-'" 
-	| source root env|
-	source := EnvironmentOpeningBlockMarkup , 'day|start=05/12/2022', 	String cr, 	EnvironmentClosingBlockMarkup, String cr.
-	root :=  parser parse: source.
-	env := root children first. 
-	self assert: (env isKindOf: MicDayBlock). 
-	self assert: env environmentName equals: 'day'.
-	self assert: env start equals: '05/12/2022'
-]
diff --git a/src/Microdown-Agenda-Tests/MicSegmentBlockTest.class.st b/src/Microdown-Agenda-Tests/MicSegmentBlockTest.class.st
deleted file mode 100644
index 1c1ce648..00000000
--- a/src/Microdown-Agenda-Tests/MicSegmentBlockTest.class.st
+++ /dev/null
@@ -1,49 +0,0 @@
-Class {
-	#name : 'MicSegmentBlockTest',
-	#superclass : 'TestCase',
-	#instVars : [
-		'builder',
-		'parser'
-	],
-	#pools : [
-		'MicMicrodownSharedPool'
-	],
-	#category : 'Microdown-Agenda-Tests',
-	#package : 'Microdown-Agenda-Tests'
-}
-
-{ #category : 'running' }
-MicSegmentBlockTest >> setUp [
-
-	super setUp.
-	builder := MicMicrodownTextualBuilder new.
-	parser := Microdown new.
-]
-
-{ #category : 'tests' }
-MicSegmentBlockTest >> testSegment [
-	"'<!segment
-!>
-'" 
-	| source root env|
-	source := EnvironmentOpeningBlockMarkup , 'segment',
-	String cr, 	EnvironmentClosingBlockMarkup, String cr.
-	root :=  parser parse: source.
-	env := root children first. 
-	self assert: (env isKindOf: MicSegmentBlock). 
-	self assert: env environmentName equals: 'segment'.
-]
-
-{ #category : 'tests' }
-MicSegmentBlockTest >> testSegmentWithArgument [
-	"'<!segment|start=10h
-!>
-'" 
-	| source root env|
-	source := EnvironmentOpeningBlockMarkup , 'segment|start=10h', 	String cr, 	EnvironmentClosingBlockMarkup, String cr.
-	root :=  parser parse: source.
-	env := root children first. 
-	self assert: (env isKindOf: MicSegmentBlock). 
-	self assert: env environmentName equals: 'segment'.
-	self assert: env start equals: '10h'
-]
diff --git a/src/Microdown-Agenda/MicAbstractComponentBlock.class.st b/src/Microdown-Agenda/MicAbstractComponentBlock.class.st
deleted file mode 100644
index e10d1fce..00000000
--- a/src/Microdown-Agenda/MicAbstractComponentBlock.class.st
+++ /dev/null
@@ -1,63 +0,0 @@
-"
-I am an abstractComponent which represent the standard behaviour of each components of a Segment.
-"
-Class {
-	#name : 'MicAbstractComponentBlock',
-	#superclass : 'MicSegmentBlock',
-	#category : 'Microdown-Agenda',
-	#package : 'Microdown-Agenda'
-}
-
-{ #category : 'testing' }
-MicAbstractComponentBlock class >> isAbstract [ 
-	
-	^ self == MicAbstractComponentBlock
-]
-
-{ #category : 'accessing' }
-MicAbstractComponentBlock >> author [
-	
-	^ self arguments at: #author ifAbsent: [ 'Not Specified' ]
-]
-
-{ #category : 'accessing' }
-MicAbstractComponentBlock >> author: anAuthor [
-	
-	arguments at: #author put: anAuthor
-]
-
-{ #category : 'accessing' }
-MicAbstractComponentBlock >> length [
-	
-	^ self arguments at: #length ifAbsent: [ 'There is no length' ]
-]
-
-{ #category : 'accessing' }
-MicAbstractComponentBlock >> length: aLength [
-	
-	arguments at: #length put: aLength 
-]
-
-{ #category : 'accessing' }
-MicAbstractComponentBlock >> room [
-	
-	^ self arguments at: #room ifAbsent: [ 'Not Specified' ]
-]
-
-{ #category : 'accessing' }
-MicAbstractComponentBlock >> room: aRoom [
-	
-	arguments at: #room put: aRoom
-]
-
-{ #category : 'accessing' }
-MicAbstractComponentBlock >> subject [
-	
-	^ self arguments at: #subject ifAbsent: [ 'There is no subject' ]
-]
-
-{ #category : 'accessing' }
-MicAbstractComponentBlock >> subject: aSubject [
-	
-	arguments at: #subject put: aSubject 
-]
diff --git a/src/Microdown-Agenda/MicAgendaBlock.class.st b/src/Microdown-Agenda/MicAgendaBlock.class.st
deleted file mode 100644
index d88399a2..00000000
--- a/src/Microdown-Agenda/MicAgendaBlock.class.st
+++ /dev/null
@@ -1,31 +0,0 @@
-"
-I represent an Agenda which contain the differents days which are my children.
-"
-Class {
-	#name : 'MicAgendaBlock',
-	#superclass : 'MicEnvironmentBlock',
-	#category : 'Microdown-Agenda',
-	#package : 'Microdown-Agenda'
-}
-
-{ #category : 'accessing' }
-MicAgendaBlock class >> tag [
-	^ #agenda
-]
-
-{ #category : 'visiting' }
-MicAgendaBlock >> accept: aVisitor [
-	^ aVisitor visitAgenda: self
-]
-
-{ #category : 'accessing' }
-MicAgendaBlock >> title [
-	
-	^ self arguments at: #title ifAbsent: [ 'There is no title' ]
-]
-
-{ #category : 'accessing' }
-MicAgendaBlock >> title: aTitle [
-	
-	arguments at: #title put: aTitle
-]
diff --git a/src/Microdown-Agenda/MicAgendaGenerator.class.st b/src/Microdown-Agenda/MicAgendaGenerator.class.st
deleted file mode 100644
index 7fbc85a3..00000000
--- a/src/Microdown-Agenda/MicAgendaGenerator.class.st
+++ /dev/null
@@ -1,311 +0,0 @@
-"
-I generate HTML specificly for a calendar in HTML from a template and a microdown AST.
-"
-Class {
-	#name : 'MicAgendaGenerator',
-	#superclass : 'MicHTMLVisitor',
-	#instVars : [
-		'parentFile',
-		'time',
-		'talkTemplate',
-		'agendaTemplate',
-		'daysHeadersBlock',
-		'daysTalks',
-		'dayTalksTemplate',
-		'talks',
-		'daysNumber',
-		'dayHeaderBlockTemplate'
-	],
-	#category : 'Microdown-Agenda',
-	#package : 'Microdown-Agenda'
-}
-
-{ #category : 'template' }
-MicAgendaGenerator class >> agendaTemplate: aNewLine [
-	| newLine |
-	newLine := aNewLine asString.
-	^ 
-'<!DOCTYPE html>', newLine,
-'<html lang="en">', newLine,
-'<head>', newLine, newLine,
-
-'  <!-- Basic Page Needs', newLine,
-'  ================================================== -->', newLine,
-'  <meta charset="utf-8">', newLine,
-'  <title>PharoDays 2022</title>', newLine,
-  '<!-- Mobile Specific Metas
-  ================================================== -->
-  <meta http-equiv="X-UA-Compatible" content="IE=edge">
-  <meta name="description" content="Event and Conference Html5 Template">
-  <meta name="viewport" content="width=device-width, initial-scale=1.0, maximum-scale=5.0">
-  <meta name="author" content="Themefisher">
-  <meta name="generator" content="Themefisher Eventre HTML Template v1.0">
-  
-  <!-- PLUGINS CSS STYLE -->
-  <!-- Bootstrap -->
-  <link href="https://days.pharo.org/plugins/bootstrap/bootstrap.min.css" rel="stylesheet">
-  <!-- Font Awesome -->
-  <link href="https://days.pharo.org/plugins/font-awsome/css/font-awesome.min.css" rel="stylesheet">
-  <!-- Magnific Popup -->
-  <link href="https://days.pharo.org/plugins/magnific-popup/magnific-popup.css" rel="stylesheet">
-  <!-- Slick Carousel -->
-  <link href="https://days.pharo.org/plugins/slick/slick.css" rel="stylesheet">
-  <link href="https://days.pharo.org/plugins/slick/slick-theme.css" rel="stylesheet">
-  <!-- CUSTOM CSS -->
-  <link href="https://days.pharo.org/css/style.css" rel="stylesheet">
-  <link rel="stylesheet" href="https://unpkg.com/leaflet@1.7.1/dist/leaflet.css" integrity="sha512-xodZBNTC5n17Xt2atTPuE1HxjVMSvLVW9ocqUKLsCC5CXdbqCmblAshOMAS6/keqq/sMZMZ19scR4PsZChSR7A==" crossorigin="" />
-  
-  <!-- FAVICON -->
-  <link href="https://files.pharo.org/media/logo/icon-256-256.ico" rel="shortcut icon">',
-
-
-'</head>', newLine, newLine,
-
-'<body class="body-wrapper">', newLine, newLine,
-
-'<section class="section schedule" id="schedule">', newLine,
-'	<div class="container">', newLine,
-'		<div class="row">', newLine,
-'			<div class="col-12">', newLine,
-'				<div class="section-title">', newLine,
-'					<h3>Pharo Days <span class="alternate">Schedule</span></h3>', newLine,
-'					<p>Pharo Days will held on 3 and 4 march 2022.</p>', newLine,
-'					<p>We also organize a <b>workshop</b> before the conference for people who wish to discover', newLine,
-'					 Pharo and <b>how Pharo can help in your day to day life</b>.</p>', newLine,
-'					</p><br><i class="far fa-newspaper"></i>', newLine,
-'					<p>Abstracts of talks and hands-on are available on <b><a href="./abstracts.html">the asbtracts page</a></b></p>', newLine,
-'				</div>', newLine,
-'			</div>', newLine,
-'		</div>', newLine,
-'		<div class="row">', newLine,
-'			<div class="col-12">', newLine,
-'				<div class="schedule-tab">', newLine,
-'					<ul class="nav nav-pills text-center">', newLine,
-										
-'							{{{DAYSBLOCK}}}', newLine,				
-						
-'					</ul>', newLine,
-'				</div>', newLine,
-'				<div class="schedule-contents bg-schedule">', newLine,
-'					<div class="tab-content" id="pills-tabContent">', newLine,
-									
-'							{{{DAYS}}}', newLine,			
-						
-'					</div>', newLine,
-'				</div>', newLine, newLine,
-				
-'			</div>', newLine,
-'		</div>', newLine,
-'	</div>', newLine,
-'</section>', newLine, newLine,
-
-'<!--====  End of Schedule  ====-->', newLine, newLine,
-
-'</body>', newLine, newLine,
-
-'</html>'
-]
-
-{ #category : 'template' }
-MicAgendaGenerator class >> dayHeaderBlockTemplate: aNewLine [
-
-	| newLine |
-	newLine := aNewLine asString.
-	^ 
-' 					  <li class="nav-item">', newLine,
-'					    <a class="nav-link active" href="#{{{NUMBER}}}" data-toggle="pill">', newLine,
-'					    	{{{DAYNUMBER}}}', newLine,
-'					    	<span>{{{DATE}}}</span>', newLine,
-'					    </a>', newLine,
-'					  </li>', newLine
-]
-
-{ #category : 'template' }
-MicAgendaGenerator class >> dayTalksTemplate: aNewLine [
-
-	| newLine |
-	newLine := aNewLine asString.
-	^ 
-'				<div class="schedule-contents bg-schedule">', newLine,
-'					<div class="tab-content" id="pills-tabContent">', newLine,
-'					  <div class="tab-pane fade show active schedule-item" id="{{{DAYNUMBER}}}">', newLine,
-'					  	<!-- Headings -->', newLine,
-'					  	<ul class="m-0 p-0">', newLine,
-'					  		<li class="headings">', newLine,
-'					  			<div class="time">Time</div>', newLine,
-'					  			<div class="speaker">Speaker</div>', newLine,
-'					  			<div class="subject">Subject</div>', newLine,
-'					  			<div class="venue">Venue</div>', newLine,
-'					  		</li>', newLine,
-'							{{{SCHEDULES}}}', newLine,
-'					  </ul>', newLine,
-'					  </div>', newLine
-]
-
-{ #category : 'template' }
-MicAgendaGenerator class >> talkTemplate: aNewLine [
-	| newLine |
-	newLine := aNewLine asString.
-	^ 
-'						<!-- Schedule Details -->', newLine,
-'								<li class="schedule-details">', newLine,
-'										<div class="block">', newLine,
-'											<!-- time -->', newLine,
-'											<div class="time">', newLine,
-'												<i class="fa fa-clock-o"></i>', newLine,
-'												<span class="time">{{TIME}}</span>', newLine,
-'											</div>', newLine ,
-'											<!-- Speaker -->', newLine,
-'											<div class="speaker">', newLine,
-'												<!-- <img src="images/speakers/speaker-thumb-one.jpg" alt="speaker-thumb-one"> -->', newLine,
-'												<span class="name">{{SPEAKER}}</span>', newLine,
-'											</div>', newLine,
-'											<!-- Subject -->', newLine,
-'											<div class="subject">{{SUBJECT}}</div>', newLine,
-'											<!-- Venue -->', newLine,
-'											<div class="venue">{{ROOM}}</div>', newLine,
-'										</div>', newLine,
-'								</li>'
-]
-
-{ #category : 'visiting' }
-MicAgendaGenerator >> build: aScheduleFile [
-	
-	| file fileReference|
-	parentFile := aScheduleFile parent.
-	file := Microdown parse: aScheduleFile contents.
-	fileReference := (parentFile / 'GeneratedHTML/Schedule.html') asFileReference.
-	fileReference ensureDelete.
-	self visit: file.
-	fileReference writeStreamDo: [ :stream | stream nextPutAll: self contents ]
-]
-
-{ #category : 'initialization' }
-MicAgendaGenerator >> initialize [
-
-	super initialize.
-	time := ''.
-	daysTalks := ''.
-	daysHeadersBlock := ''.
-	talks := ''.
-	daysNumber := 0.
-]
-
-{ #category : 'visiting' }
-MicAgendaGenerator >> templateInitialization [
-
-	agendaTemplate := parentFile / 'Template/agendaTemplate.mustache' .
-	dayHeaderBlockTemplate := parentFile / 'Template/dayHeaderBlockTemplate.mustache'.
-	dayTalksTemplate :=parentFile / 'Template/dayTalksTemplate.mustache'.
-	talkTemplate := parentFile / 'Template/talkTemplate.mustache'.
-]
-
-{ #category : 'accessing' }
-MicAgendaGenerator >> time [
-
-	^ time
-]
-
-{ #category : 'accessing' }
-MicAgendaGenerator >> time: aTime [
-
-	time := aTime
-]
-
-{ #category : 'visiting' }
-MicAgendaGenerator >> timePlus: aLength [
-
-	| currentHours currentMins addedTime nbHours |
-	currentHours := ((self time substrings: 'h') at: 1) asNumber .
-	currentMins := ((self time substrings: 'h') at: 2) .
-	addedTime := aLength allButLast asNumber.
-	nbHours := addedTime // 60.
-	addedTime := addedTime - (nbHours * 60).
-	(currentMins asNumber + addedTime = 60 or: currentMins asNumber + addedTime = 0) 
-			ifTrue: [ (currentMins asNumber + addedTime = 60) 
-					ifTrue: [ ^ self time: ((currentHours  + nbHours + 1) asString, 'h00') ]
-					ifFalse: [ ^ self time: ((currentHours  + nbHours) asString, 'h00') ] ]
-			ifFalse: [ (currentMins asNumber + addedTime > 60) 
-					ifTrue:[ ^ self time: ((currentHours  + nbHours + 1) asString, 'h', (currentMins asNumber + addedTime - 60) asString)] 
-					ifFalse:[ ^ self time: ((currentHours  + nbHours) asString, 'h', (currentMins asNumber + addedTime) asString)]]
-	
-]
-
-{ #category : 'visiting' }
-MicAgendaGenerator >> visitAgenda: anAgenda [
-	
-	| agenda |
-	self templateInitialization.
-	self visitChildrenOf: anAgenda.
-	agenda := (MustacheTemplate on: agendaTemplate) value: {
-	'NUMBERDAY' -> daysNumber. 
-	'DAYSBLOCK' -> daysHeadersBlock.
-	'DAYS' -> daysTalks } asDictionary.
-	canvas nextPutAll: agenda
-]
-
-{ #category : 'visiting' }
-MicAgendaGenerator >> visitBreak: aBreak [
-
-	| length talk |
-	length := self time, ' - '.
-	self timePlus: aBreak length.
-	length := length, self time.
-	
-	talk := (MustacheTemplate on: talkTemplate) value: { 
-	'TIME' -> length trim.
-	'SPEAKER' -> aBreak author.
-	'SUBJECT' -> aBreak subject.
-	'ROOM' -> aBreak room } asDictionary.
-	talks := talks, talk.
-]
-
-{ #category : 'visiting' }
-MicAgendaGenerator >> visitDay: aDay [
-
-	| day dayBlock number numberDay active|
-	daysNumber := daysNumber + 1.
-	active := ''.
-	(daysNumber = 1) 
-				ifTrue: [active := 'show active']
-				ifFalse: [active := ''].
-	number := 'day', daysNumber asString.
-	numberDay := 'Day-0', daysNumber asString.
-	dayBlock := (MustacheTemplate on: dayHeaderBlockTemplate) value: { 
-	'NUMBER' -> number.
-	'ACTIVE' -> active.
-	'DAYNUMBER' -> numberDay.
-	'DATE' -> aDay start } asDictionary.
-	daysHeadersBlock  := daysHeadersBlock, dayBlock.
-	self visitChildrenOf: aDay.
-	day := (MustacheTemplate on: dayTalksTemplate) value: { 
-	'DAYNUMBER' -> number.
-	'ACTIVE' -> active.
-	'SCHEDULES' -> talks asString } asDictionary.
-	daysTalks := daysTalks, day.
-	talks := ''.
-]
-
-{ #category : 'visiting' }
-MicAgendaGenerator >> visitSegment: aSegment [
-
-	self time: aSegment start.
-	talkTemplate := parentFile / 'Template/talkTemplate.mustache' contents.
-	self visitChildrenOf: aSegment.
-]
-
-{ #category : 'visiting' }
-MicAgendaGenerator >> visitTalk: aTalk [
-
-	| length talk |
-	length := self time, ' - '.
-	self timePlus: aTalk length.
-	length := length, self time.
-	
-	talk := (MustacheTemplate on: talkTemplate) value: { 
-	'TIME' -> length trim.
-	'SPEAKER' -> aTalk author.
-	'SUBJECT' -> aTalk subject.
-	'ROOM' -> aTalk room } asDictionary.
-	talks := talks, talk.
-]
diff --git a/src/Microdown-Agenda/MicBreakBlock.class.st b/src/Microdown-Agenda/MicBreakBlock.class.st
deleted file mode 100644
index 8f5237d3..00000000
--- a/src/Microdown-Agenda/MicBreakBlock.class.st
+++ /dev/null
@@ -1,25 +0,0 @@
-"
-I represent a Break in a Segment like a break for lunch or a coffee time for a certain amount of time at a certain place.
-"
-Class {
-	#name : 'MicBreakBlock',
-	#superclass : 'MicAbstractComponentBlock',
-	#category : 'Microdown-Agenda',
-	#package : 'Microdown-Agenda'
-}
-
-{ #category : 'accessing' }
-MicBreakBlock class >> tag [
-	^ #break
-]
-
-{ #category : 'visiting' }
-MicBreakBlock >> accept: aVisitor [
-	^ aVisitor visitBreak: self
-]
-
-{ #category : 'accessing' }
-MicBreakBlock >> author [
-	
-	^ self arguments at: #author ifAbsent: [ '' ]
-]
diff --git a/src/Microdown-Agenda/MicDayBlock.class.st b/src/Microdown-Agenda/MicDayBlock.class.st
deleted file mode 100644
index d68481fc..00000000
--- a/src/Microdown-Agenda/MicDayBlock.class.st
+++ /dev/null
@@ -1,31 +0,0 @@
-"
-I represent a Day in a Agenda with all my differents segment which are my children.
-"
-Class {
-	#name : 'MicDayBlock',
-	#superclass : 'MicEnvironmentBlock',
-	#category : 'Microdown-Agenda',
-	#package : 'Microdown-Agenda'
-}
-
-{ #category : 'accessing' }
-MicDayBlock class >> tag [
-	^ #day
-]
-
-{ #category : 'visiting' }
-MicDayBlock >> accept: aVisitor [
-	^ aVisitor visitDay: self
-]
-
-{ #category : 'accessing' }
-MicDayBlock >> start [
-	
-	^ self arguments at: #start ifAbsent: [ 'There is no start' ]
-]
-
-{ #category : 'accessing' }
-MicDayBlock >> start: aStart [
-	
-	arguments at: #start put: aStart
-]
diff --git a/src/Microdown-Agenda/MicSegmentBlock.class.st b/src/Microdown-Agenda/MicSegmentBlock.class.st
deleted file mode 100644
index 8fb8b436..00000000
--- a/src/Microdown-Agenda/MicSegmentBlock.class.st
+++ /dev/null
@@ -1,31 +0,0 @@
-"
-I represent a Segment of a Day which i contains all the differents components which are my children.
-"
-Class {
-	#name : 'MicSegmentBlock',
-	#superclass : 'MicEnvironmentBlock',
-	#category : 'Microdown-Agenda',
-	#package : 'Microdown-Agenda'
-}
-
-{ #category : 'accessing' }
-MicSegmentBlock class >> tag [
-	^ #segment
-]
-
-{ #category : 'visiting' }
-MicSegmentBlock >> accept: aVisitor [
-	^ aVisitor visitSegment: self
-]
-
-{ #category : 'accessing' }
-MicSegmentBlock >> start [
-	
-	^ self arguments at: #start ifAbsent: [ 'There is no start' ]
-]
-
-{ #category : 'accessing' }
-MicSegmentBlock >> start: aStart [
-	
-	arguments at: #start put: aStart
-]
diff --git a/src/Microdown-Agenda/MicTalkBlock.class.st b/src/Microdown-Agenda/MicTalkBlock.class.st
deleted file mode 100644
index 58ce8172..00000000
--- a/src/Microdown-Agenda/MicTalkBlock.class.st
+++ /dev/null
@@ -1,19 +0,0 @@
-"
-I represent a Talk in a Segment like a presentation of a new tool or projet by someone for a certains amount of time at a certain place.
-"
-Class {
-	#name : 'MicTalkBlock',
-	#superclass : 'MicAbstractComponentBlock',
-	#category : 'Microdown-Agenda',
-	#package : 'Microdown-Agenda'
-}
-
-{ #category : 'accessing' }
-MicTalkBlock class >> tag [
-	^ #talk
-]
-
-{ #category : 'visiting' }
-MicTalkBlock >> accept: aVisitor [
-	^ aVisitor visitTalk: self
-]
diff --git a/src/Microdown-Blog-Tests/MicBlogCreatorTest.class.st b/src/Microdown-Blog-Tests/MicBlogCreatorTest.class.st
index e8d90817..704795c9 100644
--- a/src/Microdown-Blog-Tests/MicBlogCreatorTest.class.st
+++ b/src/Microdown-Blog-Tests/MicBlogCreatorTest.class.st
@@ -9,10 +9,10 @@ Class {
 	#package : 'Microdown-Blog-Tests'
 }
 
-{ #category : 'as yet unclassified' }
+{ #category : 'initialization' }
 MicBlogCreatorTest >> fileContent1 [
 
-^ '{
+	^ '{
     "date" : "8 January 2019"
 }
 # A Cool Story
@@ -21,11 +21,10 @@ Pharo is cool but _this is_ a superlong _paragraph_ Simple powerful language: No
     
 
 Amazing debugging experience: The Pharo environment includes a debugger unlike anything you''ve seen before. It allows you to step through code, restart the execution of methods, create methods on the fly, and much more!
-' 
-	
+'
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : 'initialization' }
 MicBlogCreatorTest >> fileContent2 [
 
 ^ '{
@@ -41,7 +40,7 @@ Pharo is a pure _object-oriented programming language_ in the tradition of Small
 	
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : 'initialization' }
 MicBlogCreatorTest >> fileContent3 [
 
 	^ '{
@@ -59,7 +58,7 @@ When you participate to the mooc you get access to the quizz and the credit vali
 '
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : 'initialization' }
 MicBlogCreatorTest >> generateArchitecture [
 
 	| ref1 ref2 ref3 ref4 |
@@ -81,7 +80,7 @@ MicBlogCreatorTest >> generateArchitecture [
 	ref4 writeStreamDo: [ :stream | stream nextPutAll: 'Du java' ]
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : 'initialization' }
 MicBlogCreatorTest >> listOfFile [
 
 	^ (fileSystem / 'source') allFiles
@@ -144,7 +143,7 @@ MicBlogCreatorTest >> testCreateAllHtmlFile [
 { #category : 'tests' }
 MicBlogCreatorTest >> testCreateFromTo [
 
-	| allFile nbMonthFile |
+	| allFile nbMonthFile nbCSSFile|
 	MicBlogCreator
 		createFrom: fileSystem / 'source'
 		to: fileSystem / 'html'.
@@ -152,8 +151,9 @@ MicBlogCreatorTest >> testCreateFromTo [
 	allFile := (fileSystem / 'html') allFiles.
 	
 	nbMonthFile := (Date today year - 2014) * 12 + Date today month index.
+	nbCSSFile := 1.
 
-	self assert: allFile size equals: 5 + nbMonthFile
+	self assert: allFile size equals: 5 + nbMonthFile + nbCSSFile
 ]
 
 { #category : 'tests' }
@@ -251,7 +251,7 @@ MicBlogCreatorTest >> testWriteToNamed [
 	root := Microdown parse: file contents.
 	html := (MicHTMLVisitor new visit: root) at: 1.
 
-	MicBlogCreator new
+	blog
 		write: html
 		to: fileSystem / 'html'
 		named: 'test.html'.
diff --git a/src/Microdown-Blog/MicBlogCreator.class.st b/src/Microdown-Blog/MicBlogCreator.class.st
index 977851b3..0bd2b85b 100644
--- a/src/Microdown-Blog/MicBlogCreator.class.st
+++ b/src/Microdown-Blog/MicBlogCreator.class.st
@@ -13,7 +13,8 @@ Class {
 	#instVars : [
 		'sourceDirectory',
 		'targetDirectory',
-		'dateList'
+		'dateList',
+		'cssFrameworkName'
 	],
 	#category : 'Microdown-Blog',
 	#package : 'Microdown-Blog'
@@ -57,6 +58,9 @@ MicBlogCreator >> createAllHtmlFile [
 		            generateMicListBlockOfLinkDateTo: targetDirectory.
 	"Copy the source directory in the target directory"
 	self copySourceDirectoryInTarget.
+	
+	"Download the CSS"
+	self downloadCSS.
 
 	"Collect and parse all Markdown file of targetDirectory"
 	allFile := self collectAllMarkDownFile: targetDirectory.
@@ -116,26 +120,27 @@ MicBlogCreator >> createHtmlFile: aMicRoot toReplace: aFileReference [
 
 	aFileReference delete.
 
-	self
+	self 
 		write: html
-		to: aFileReference parent
-		named: (aFileReference fullName substrings: '/') last
+		to: targetDirectory 
+		named:
+		(aFileReference fullName withoutPrefix:
+			 self targetDirectory fullName)
 ]
 
 { #category : 'rendering' }
 MicBlogCreator >> createHtmlGroupFile: aMicRoot at: aMonth [
 
-	| a fileRef |
+	| a "fileRef" fileName |
 	self rootAssembly: aMicRoot.
 
 	a := (MicHTMLVisitor new visit: aMicRoot) at: 1.
 
-	fileRef := targetDirectory / '_monthBlog'.
+	"fileRef := targetDirectory / '_monthBlog'."
 
-	self
-		write: a
-		to: fileRef
-		named: aMonth name , '_' , aMonth year asString , '.html'
+	fileName := aMonth name , '_' , aMonth year asString , '.html'.
+
+	self write: a to: targetDirectory named: '_monthBlog/' , fileName
 ]
 
 { #category : 'rendering' }
@@ -149,12 +154,58 @@ MicBlogCreator >> createHtmlSummarize: aMicRoot [
 	self write: a to: targetDirectory named: 'index.html'
 ]
 
+{ #category : 'accessing' }
+MicBlogCreator >> cssFrameworkName [ 
+
+	^ cssFrameworkName
+]
+
+{ #category : 'accessing' }
+MicBlogCreator >> cssFrameworkName: aCss [
+
+	cssFrameworkName := aCss
+]
+
 { #category : 'accessing' }
 MicBlogCreator >> dateList: aDateList [
 
 	dateList := aDateList.
 ]
 
+{ #category : 'css' }
+MicBlogCreator >> downloadCSS [
+
+	| a |
+	(targetDirectory / 'css') ensureCreateDirectory.
+	a := MicCSSProvider new.
+	a
+		findCssNamed: cssFrameworkName;
+		destinationPath: targetDirectory / 'css'.
+	a cssDownloader downloadCSSFramework:
+		(MicCSSProvider forCSSNamed: cssFrameworkName)
+]
+
+{ #category : 'initialization' }
+MicBlogCreator >> initialize [
+
+	super initialize.
+	self cssFrameworkName: 'Axist'.
+]
+
+{ #category : 'as yet unclassified' }
+MicBlogCreator >> levelPathDifferenceForCSS: aStringPath [
+
+	| result string |
+	string := aStringPath copyReplaceAll: '\' with: '/'.
+
+	result := ''.
+
+	2 to: (string substrings: '/') size do: [ :each |
+	result := result , '../' ].
+
+	^ result
+]
+
 { #category : 'rendering' }
 MicBlogCreator >> renameMarkdownIntoHtmlFile: aFileReference [
 
@@ -199,15 +250,23 @@ MicBlogCreator >> targetDirectory: arg1 [
 { #category : 'rendering' }
 MicBlogCreator >> write: aMicHTMLVisitor to: aPath named: aName [
 
-	| htmlDocument |
+	| htmlDocument fileName cssFramework |
+	fileName := aName withoutPrefix: '/'.
+	fileName := fileName withoutPrefix: '\'.
+
+	cssFramework := MicCSSProvider forCSSNamed: cssFrameworkName.
+	cssFramework basePath:
+		(self levelPathDifferenceForCSS: fileName) , 'css/'.
+
 	htmlDocument := MicHTMLDocument new.
 	htmlDocument configuration: aMicHTMLVisitor configuration.
 	htmlDocument configuration document: htmlDocument.
 	htmlDocument
 		setCharSetUTF8;
+		addCSS: cssFramework;
 		destinationPath: aPath.
 	^ htmlDocument
-		  fileName: aName;
+		  fileName: fileName;
 		  writeDocument: aMicHTMLVisitor contents;
 		  contents
 ]
diff --git a/src/Microdown-Calypso/ManifestMicrodownCalypso.class.st b/src/Microdown-Calypso/ManifestMicrodownCalypso.class.st
deleted file mode 100644
index 0d8e4bb0..00000000
--- a/src/Microdown-Calypso/ManifestMicrodownCalypso.class.st
+++ /dev/null
@@ -1,10 +0,0 @@
-"
-I provide some extensions to the class browser Calypso. I allow rendering of package and class comments in MicroDown. 
-"
-Class {
-	#name : 'ManifestMicrodownCalypso',
-	#superclass : 'PackageManifest',
-	#category : 'Microdown-Calypso-Manifest',
-	#package : 'Microdown-Calypso',
-	#tag : 'Manifest'
-}
diff --git a/src/Microdown-H5P/MicH5PCommandLine.class.st b/src/Microdown-H5P/MicH5PCommandLine.class.st
deleted file mode 100644
index 15c75968..00000000
--- a/src/Microdown-H5P/MicH5PCommandLine.class.st
+++ /dev/null
@@ -1,40 +0,0 @@
-"
-```
-../../vms/100-x64/Pharo.app/Contents/MacOS/Pharo ./H5P.image clap h5p AboutBasket.pdf
-```
-"
-Class {
-	#name : 'MicH5PCommandLine',
-	#superclass : 'ClapApplication',
-	#category : 'Microdown-H5P',
-	#package : 'Microdown-H5P'
-}
-
-{ #category : 'command line' }
-MicH5PCommandLine class >> h5p [
-	<commandline>
-	
-	^ (ClapCommand id: #h5p)
-		description: 'To convert to h5p';
-		add: ClapFlag forHelp;
-		add: ((ClapPositional id: #file) description: 'Files to be converted.');
-		meaning: [ :args | 
-			args at: #helpFlag ifPresent: [ :help | 
-				help value; exitSuccess ].
-			(self with: args) execute ]
-]
-
-{ #category : 'accessing' }
-MicH5PCommandLine >> argumentAt: identifier [
-	^ (arguments at: identifier) value: self
-]
-
-{ #category : 'accessing' }
-MicH5PCommandLine >> execute [
-	
-	MicPictureBasedWriter new
-		sourcePDF: (FileSystem workingDirectory /(self argumentAt: #file)) fullName ;
-		treatSourcePDF;
-		go;
-		compressH5P.
-]
diff --git a/src/Microdown-H5P/MicH5PTemplateWriter.class.st b/src/Microdown-H5P/MicH5PTemplateWriter.class.st
deleted file mode 100644
index 69996eb9..00000000
--- a/src/Microdown-H5P/MicH5PTemplateWriter.class.st
+++ /dev/null
@@ -1,5246 +0,0 @@
-"
-An H5P writer... scary format.
-
-
-first invoke the writer 
-
-MicH5PTemplateWriter new 
-	writeContentJSONOnDisk: (Microdown parse: MicH5PTemplateWriterTest new mainSlideInMicrodown, MicH5PTemplateWriterTest new oneSlideWithCodeInMicrodown )
-
-
-slideWithFigure
-
-then the following script on the repository of Advanced Design Mooc since it has the ValidatedJSON
-
-```
-#cp ValidatedJSON/content4.json pharo-Template-withVariableNames2/content/content.json
-cd pharo-Template-withVariableNames2
-zip -r -D -X ../Generated.h5p *
-cd ../
-```
-
-
-Now I always work on fullTemplateString without number
-and when it is working I from time to time archive it by adding an increasing number to the methods. 
-
-I do that because the format is super fragile and I do not to fight with git to recover in case of problems.
-
-
-I'm a slide converter to a limited subset of H5P.
-
-### figure
-the 4 first info is the size of the picture area.
-
-{
-            ""x"": 22.875816993464053,
-            ""y"": 25.821222462742128,
-            ""width"": 61.08050108932463,
-            ""height"": 51.642444925484256,
-            ""action"": {
-              ""library"": ""H5P.Image 1.1"",
-              ""params"": {
-                ""contentName"": ""Image"",
-                ""file"": {
-                  ""path"": ""images/image-dejfFHSf.png"",
-                  ""mime"": ""image/png"",
-                  ""copyright"": {
-                    ""license"": ""U""
-                  },
-                  ""width"": 771,
-                  ""height"": 330
-                }
-              },
-              ""subContentId"": ""9cdd1cde-7ffa-4306-b811-cf1287e7c0ba"",
-              ""metadata"": {
-                ""contentType"": ""Image"",
-                ""license"": ""U"",
-                ""title"": ""Untitled Image"",
-                ""authors"": [],
-                ""changes"": []
-              }
-            },
-            ""alwaysDisplayComments"": false,
-            ""backgroundOpacity"": 0,
-            ""displayAsButton"": false,
-            ""buttonSize"": ""big"",
-            ""goToSlideType"": ""specified"",
-            ""invisible"": false,
-            ""solution"": """"
-          }
-
-
-
-### code 
-params"""":{
-                        """"text"""":""""<pre>testSetLabel\n\n    | codeBlock |\n    codeBlock := self testedClass new.\n    codeBlock label: 'sec123'.\n    self assert: codeBlock hasLabel. \n    self assert: codeBlock label equals: 'sec123'\n</pre>\n""""
-                     },
-### Bullet
- """"action"""":{
-                     """"library"""":""""H5P.AdvancedText 1.1"""",
-                     """"params"""":{
-                        """"text"""":""""<ul>\n\t<li><span style=\""""font-size:1.125em\"""">Cool</span></li>\n\t<li><span style=\""""font-size:1.125em\"""">Nice</span></li>\n\t<li><span style=\""""font-size:1.125em\"""">Super</span></li>\n\t<li><span style=\""""font-size:1.125em\"""">Hyper language</span></li>\n</ul>\n""""
-                     },
-### Links
-""""action"""":{
-                     """"library"""":""""H5P.Link 1.3"""",
-                     """"params"""":{
-                        """"linkWidget"""":{
-                           """"protocol"""":""""http://"""",
-                           """"url"""":""""www.pharo.org""""
-                        },
-                        """"title"""":""""What a great link""""
-                     },
-                     """"subContentId"""":""""4160c8f2-8a7c-4e83-ad3b-a6b5415a7b9e"""",
-                     """"metadata"""":{
-                        """"contentType"""":""""Link"""",
-                        """"license"""":""""U""""
-                     }
-"
-Class {
-	#name : 'MicH5PTemplateWriter',
-	#superclass : 'MicDocumentWriter',
-	#category : 'Microdown-H5P',
-	#package : 'Microdown-H5P'
-}
-
-{ #category : 'as yet unclassified' }
-MicH5PTemplateWriter class >> docString [
-	"since we may lose class comment..."
-	^ 'I''m a slide converter to a limited subset of H5P.
-### code 
-params"":{
-                        ""text"":""<pre>testSetLabel\n\n    | codeBlock |\n    codeBlock := self testedClass new.\n    codeBlock label: ''sec123''.\n    self assert: codeBlock hasLabel. \n    self assert: codeBlock label equals: ''sec123''\n</pre>\n""
-                     },
-### Bullet
- ""action"":{
-                     ""library"":""H5P.AdvancedText 1.1"",
-                     ""params"":{
-                        ""text"":""<ul>\n\t<li><span style=\""font-size:1.125em\"">Cool</span></li>\n\t<li><span style=\""font-size:1.125em\"">Nice</span></li>\n\t<li><span style=\""font-size:1.125em\"">Super</span></li>\n\t<li><span style=\""font-size:1.125em\"">Hyper language</span></li>\n</ul>\n""
-                     },
-### Links
-""action"":{
-                     ""library"":""H5P.Link 1.3"",
-                     ""params"":{
-                        ""linkWidget"":{
-                           ""protocol"":""http://"",
-                           ""url"":""www.pharo.org""
-                        },
-                        ""title"":""What a great link""
-                     },
-                     ""subContentId"":""4160c8f2-8a7c-4e83-ad3b-a6b5415a7b9e"",
-                     ""metadata"":{
-                        ""contentType"":""Link"",
-                        ""license"":""U""
-                     }'
-]
-
-{ #category : 'initialization' }
-MicH5PTemplateWriter >> canvasClass [ 
-	^ MicHTMLCanvas 
-]
-
-{ #category : 'static document parts' }
-MicH5PTemplateWriter >> creditSlide [
-
-	^ '{
-            "elements":[
-               {
-                  "x":57.734204793028326,
-                  "y":83.91897300391192,
-                  "width":18.51851851851852,
-                  "height":13.21319292326363,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-wFbeHf6p.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":227,
-                           "height":82
-                        }
-                     },
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":26.143790849673202,
-                  "y":81.76720446535008,
-                  "width":10.893246187363834,
-                  "height":13.448553366011526,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-9vO0XU26.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":160,
-                           "height":100
-                        }
-                     },
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":42.48366013071895,
-                  "y":81.76720446535008,
-                  "width":9.803921568627452,
-                  "height":13.39475915254748,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-oZNS16yO.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":133,
-                           "height":92
-                        }
-                     },
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":80.61002178649238,
-                  "y":83.91897300391192,
-                  "width":17.429193899782135,
-                  "height":13.646924907581543,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-TyojgW30.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":222,
-                           "height":88
-                        }
-                     },
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":1.0893246187363834,
-                  "y":81.76720446535008,
-                  "width":19.607843137254903,
-                  "height":13.949506599474109,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-MHF07lsl.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":472,
-                           "height":170
-                        }
-                     },
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[ ],
-                        "changes": [ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":37.03703703703704,
-                  "y":62.40128761829348,
-                  "width":18.51851851851852,
-                  "height":12.796309286602659,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-kyGO23Dp.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":403,
-                           "height":141
-                        }
-                     },
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":19.607843137254903,
-                  "y":30.124759539865817,
-                  "width":55.55555555555556,
-                  "height":39.999440540179975,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p style=\"text-align:center\"><span style=\"font-size:1.375em\">S. Ducasse, L. Fabresse, G. Polito, P. Tesone </span></p>\n\n<p style=\"text-align:center\"><span style=\"font-size:1.125em\">Copyright 2022</span></p>\n\n<p> </p>\n"
-                     },
-                     "subContentId":"a5116483-6063-4cf8-8155-dd08bd8526b0",
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "slideBackgroundSelector":{ },
-            "keywords":[
-               { "main":"Credits/License" }
-            ]
-         }'
-]
-
-{ #category : 'to debug generation' }
-MicH5PTemplateWriter >> fillTemplateWithVariables [
-	"self new fillTemplateWithVariables"
-	
-	 ^ self fullTemplateStringParam asMustacheTemplate 
-			value: ({ 'CREDITSLIDE' -> self creditSlide . 
-						'AUTHORVARIABLE' -> 'S. Ducasse, L. Fabresse, G. Polito, and P. Tesone' .
-						'TITLEVARIABLE' -> '1- Object-oriented Design and Pharo: a Love Affair' .
-						'SHORTTITLEVARIABLE' -> 'OOD&Pharo'.
-						'SLIDETITLEVARIABLE' -> 'Getting started with Design' .
-						'SHORTSLIDETITLEVARIABLE' -> 'Getting started' .
-						'SLIDES' -> self fillUpOneSlide
-						}) asDictionary.
-]
-
-{ #category : 'to debug generation' }
-MicH5PTemplateWriter >> fillTemplateWithVariables2 [
-	"self new fillTemplateWithVariables"
-	
-	 ^ self fullTemplateStringParam asMustacheTemplate 
-			value: ({ 'CREDITSLIDE' -> self creditSlide . 
-						'AUTHORVARIABLE' -> 'S. Ducasse, L. Fabresse, G. Polito, and P. Tesone' .
-						'TITLEVARIABLE' -> '1- Object-oriented Design and Pharo: a Love Affair' .
-						'SHORTTITLEVARIABLE' -> 'OOD&Pharo'.
-						'SLIDETITLEVARIABLE' -> 'Getting started with Design' .
-						'SHORTSLIDETITLEVARIABLE' -> 'Getting started' .
-						'SLIDES' -> self fillUpOneSlide
-						}) asDictionary.
-]
-
-{ #category : 'actions' }
-MicH5PTemplateWriter >> fillTemplateWithVariables: aMicPresentation [
-	"aMicPresentation is a collection with metadata and slides."
-	
-	| mainSlide otherSlides |
-	mainSlide := aMicPresentation first.
-	otherSlides := aMicPresentation allButFirst.
-	self fillUpSlides: otherSlides.
-	 ^ self fullTemplateStringParam asMustacheTemplate 
-			value: ({ 'CREDITSLIDE' -> self creditSlide . 
-						'AUTHORVARIABLE' -> 'S. Ducasse, L. Fabresse, G. Polito, and P. Tesone' .
-						'TITLEVARIABLE' -> (mainSlide body at: #title).
-						'SHORTTITLEVARIABLE' -> 'OOD&Pharo'.
-						'SLIDETITLEVARIABLE' -> 'Getting started with Design' .
-						'SHORTSLIDETITLEVARIABLE' -> 'Getting started' .
-						'SLIDES' -> self contents.
-						}) asDictionary.
-]
-
-{ #category : 'to debug generation' }
-MicH5PTemplateWriter >> fillUpOneSlide [
-	" works too"
-	"self new fillUpOneSlide"
-	
-	^ self slideTemplate asMustacheTemplate 
-			value: ({ 
-						'SLIDETITLEVARIABLE' -> 'Getting started with Design' .
-						'SHORTSLIDETITLEVARIABLE' -> 'Getting started' .
-						'SINGLESLIDEBODY' -> '<ul>\n\t<li>pilou</li>\n\t\n</ul>\n'
-						}) asDictionary.
-
-	
-]
-
-{ #category : 'to debug generation' }
-MicH5PTemplateWriter >> fillUpOneSlide2 [
-	"works"
-	"self new fillUpOneSlide"
-	
-	^ self slideTemplate asMustacheTemplate 
-			value: ({ 
-						'SLIDETITLEVARIABLE' -> 'Getting started with Design' .
-						'SHORTSLIDETITLEVARIABLE' -> 'Getting started' .
-						'SINGLESLIDEBODY' -> 'La peur est la petite mort qui conduit a l''oblitération totale. Je ne connaitrais pas la peur...'
-						}) asDictionary.
-
-	
-]
-
-{ #category : 'actions' }
-MicH5PTemplateWriter >> fillUpOneSlide: aSlide [
-	
-	| oneSlideWriter |
-	oneSlideWriter := self class new.
-	aSlide accept: oneSlideWriter. 
-	^ self slideTemplate asMustacheTemplate 
-			value: ({ 
-						'SLIDETITLEVARIABLE' -> aSlide title .
-						'SHORTSLIDETITLEVARIABLE' ->  aSlide title  .
-						'SINGLESLIDEBODY' -> oneSlideWriter contents 
-						}) asDictionary.
-
-	
-]
-
-{ #category : 'actions' }
-MicH5PTemplateWriter >> fillUpSlides: aCollection [ 
-	
-	aCollection 
-		do: [ :each | canvas nextPutAll: (self fillUpOneSlide: each) ] 
-		separatedBy: [  canvas nextPutAll: ','; newLine ].
-	
-]
-
-{ #category : 'old working templates' }
-MicH5PTemplateWriter >> fullTemplateString [ 
- ^ '{
-   "presentation":{
-      "slides":[
-         {
-            "elements":[
-               {
-                  "x":8.714596949891067,
-                  "y":25.821222462742128,
-                  "width":81.69934640522877,
-                  "height":27.972991001303974,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p><span style=\"font-size:1.5em\">{{{TITLEVARIABLE}}}</span></p>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":86.35110294117648,
-                  "y":71.00836177254085,
-                  "width":13.648910675381265,
-                  "height":26.954343775148796,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-b8lco9r6.png",
-                           "mime":"image/png",
-                           "copyright":{"license":"U"},
-                           "width":256,
-                           "height":256
-                        }
-                     },
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":16.051364365971107,
-                  "y":60.24268289202926,
-                  "width":40.30501089324619,
-                  "height":12.910611231371064,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p>{{{AUTHORVARIABLE}}}</p>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":2.178649237472767,
-                  "y":88.22251008103561,
-                  "width":14.161220043572985,
-                  "height":9.783833332616078,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-FLYhoyME.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":403,
-                           "height":141
-                        }
-                     },
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":2.178649237472767,
-                  "y":4.303537077123688,
-                  "width":93.68191721132898,
-                  "height":8.607074154247377,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p>Advanced object-oriented design explained with Pharo</p>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":70.80610021786492,
-                  "y":92.5260471581593,
-                  "width":19.607843137254903,
-                  "height":6.455305615685532,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p>http://www.pharo.org</p>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "keywords":[
-               {
-                  "main":"{{{SHORTTITLEVARIABLE}}}"
-               }
-            ],
-            "slideBackgroundSelector":{ }
-         },
-         {
-            "elements":[
-               {
-                  "x":6.5359477124183005,
-                  "y":19.365916847056596,
-                  "width":37.037037037037,
-                  "height":73.160071277275,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<ul>\n\t<li><span style=\"font-size:1.125em\">Cool</span></li>\n\t<li><span style=\"font-size:1.125em\">Nice</span></li>\n\t<li><span style=\"font-size:1.125em\">Super</span></li>\n\t<li><span style=\"font-size:1.125em\">Hyper language</span></li>\n</ul>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":2.178649237472767,
-                  "y":2.151768538561844,
-                  "width":95.86056644880175,
-                  "height":17.214148308494753,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<h2>{{{SLIDETITLEVARIABLE}}}</h2>\n" 
-                      },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "slideBackgroundSelector":{ },
-            "keywords":[
-               {
-                  "main":"{{{SHORTSLIDETITLEVARIABLE}}}"
-               }
-            ]
-         },
-         {
-            "elements":[
-               {
-                  "x":2.178649237472767,
-                  "y":2.151768538561844,
-                  "width":95.86056644880175,
-                  "height":10.758842692809221,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<h2>Doing Manual Title....</h2>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":4.3572984749455,
-                  "y":19.365901220455,
-                  "width":82.788671023965,
-                  "height":51.642403254547,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<pre>testSetLabel\n\n    | codeBlock |\n    codeBlock := self testedClass new.\n    codeBlock label: ''sec123''.\n    self assert: codeBlock hasLabel. \n    self assert: codeBlock label equals: ''sec123''\n</pre>\n"
-                     },
-                     "subContentId":"4f8b5f81-40ee-4bdd-9fa6-935c850f9da0",
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "slideBackgroundSelector":{
-               
-            },
-            "keywords":[
-               {
-                  "main":"Code"
-               }
-            ]
-         },
-         {
-            "elements":[
-               {
-                  "x":30.000680827887,
-                  "y":30.000336213563,
-                  "width":40,
-                  "height":40,
-                  "action":{
-                     "library":"H5P.Link 1.3",
-                     "params":{
-                        "linkWidget":{
-                           "protocol":"http://",
-                           "url":"www.pharo.org"
-                        },
-                        "title":"What a great link"
-                     },
-                     "metadata":{
-                        "contentType":"Link",
-                        "license":"U"
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "slideBackgroundSelector":{
-               
-            },
-            "keywords":[
-               {
-                  "main":"Link"
-               }
-            ]
-         },
-         {
-            "elements":[
-               {
-                  "x":57.734204793028326,
-                  "y":83.91897300391192,
-                  "width":18.51851851851852,
-                  "height":13.21319292326363,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-wFbeHf6p.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":227,
-                           "height":82
-                        }
-                     },
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":26.143790849673202,
-                  "y":81.76720446535008,
-                  "width":10.893246187363834,
-                  "height":13.448553366011526,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-9vO0XU26.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":160,
-                           "height":100
-                        }
-                     },
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":42.48366013071895,
-                  "y":81.76720446535008,
-                  "width":9.803921568627452,
-                  "height":13.39475915254748,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-oZNS16yO.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":133,
-                           "height":92
-                        }
-                     },
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":80.61002178649238,
-                  "y":83.91897300391192,
-                  "width":17.429193899782135,
-                  "height":13.646924907581543,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-TyojgW30.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":222,
-                           "height":88
-                        }
-                     },
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":1.0893246187363834,
-                  "y":81.76720446535008,
-                  "width":19.607843137254903,
-                  "height":13.949506599474109,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-MHF07lsl.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":472,
-                           "height":170
-                        }
-                     },
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[ ],
-                        "changes": [ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":37.03703703703704,
-                  "y":62.40128761829348,
-                  "width":18.51851851851852,
-                  "height":12.796309286602659,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-kyGO23Dp.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":403,
-                           "height":141
-                        }
-                     },
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":19.607843137254903,
-                  "y":30.124759539865817,
-                  "width":55.55555555555556,
-                  "height":39.999440540179975,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p style=\"text-align:center\"><span style=\"font-size:1.375em\">S. Ducasse, L. Fabresse, G. Polito, P. Tesone </span></p>\n\n<p style=\"text-align:center\"><span style=\"font-size:1.125em\">Copyright 2022</span></p>\n\n<p> </p>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "slideBackgroundSelector":{ },
-            "keywords":[
-               { "main":"Credits/License" }
-            ]
-         }
-      ],
-      "keywordListEnabled":true,
-      "globalBackgroundSelector":{
-         
-      },
-      "keywordListAlwaysShow":false,
-      "keywordListAutoHide":false,
-      "keywordListOpacity":100
-   },
-   "override":{
-      "activeSurface":false,
-      "hideSummarySlide":false,
-      "summarySlideSolutionButton":true,
-      "summarySlideRetryButton":true,
-      "enablePrintButton":false,
-      "social":{
-         "showFacebookShare":false,
-         "facebookShare":{
-            "url":"@currentpageurl",
-            "quote":"I scored @score out of @maxScore on a task at @currentpageurl."
-         },
-         "showTwitterShare":false,
-         "twitterShare":{
-            "statement":"I scored @score out of @maxScore on a task at @currentpageurl.",
-            "url":"@currentpageurl",
-            "hashtags":"h5p, course"
-         },
-         "showGoogleShare":false,
-         "googleShareUrl":"@currentpageurl"
-      }
-   },
-   "l10n":{
-      "slide":"Slide",
-      "score":"Score",
-      "yourScore":"Your Score",
-      "maxScore":"Max Score",
-      "total":"Total",
-      "totalScore":"Total Score",
-      "showSolutions":"Show solutions",
-      "retry":"Retry",
-      "exportAnswers":"Export text",
-      "hideKeywords":"Hide sidebar navigation menu",
-      "showKeywords":"Show sidebar navigation menu",
-      "fullscreen":"Fullscreen",
-      "exitFullscreen":"Exit fullscreen",
-      "prevSlide":"Previous slide",
-      "nextSlide":"Next slide",
-      "currentSlide":"Current slide",
-      "lastSlide":"Last slide",
-      "solutionModeTitle":"Exit solution mode",
-      "solutionModeText":"Solution Mode",
-      "summaryMultipleTaskText":"Multiple tasks",
-      "scoreMessage":"You achieved:",
-      "shareFacebook":"Share on Facebook",
-      "shareTwitter":"Share on Twitter",
-      "shareGoogle":"Share on Google+",
-      "summary":"Summary",
-      "solutionsButtonTitle":"Show comments",
-      "printTitle":"Print",
-      "printIngress":"How would you like to print this presentation?",
-      "printAllSlides":"Print all slides",
-      "printCurrentSlide":"Print current slide",
-      "noTitle":"No title",
-      "accessibilitySlideNavigationExplanation":"Use left and right arrow to change slide in that direction whenever canvas is selected.",
-      "accessibilityCanvasLabel":"Presentation canvas. Use left and right arrow to move between slides.",
-      "containsNotCompleted":"@slideName contains not completed interaction",
-      "containsCompleted":"@slideName contains completed interaction",
-      "slideCount":"Slide @index of @total",
-      "containsOnlyCorrect":"@slideName only has correct answers",
-      "containsIncorrectAnswers":"@slideName has incorrect answers",
-      "shareResult":"Share Result",
-      "accessibilityTotalScore":"You got @score of @maxScore points in total",
-      "accessibilityEnteredFullscreen":"Entered fullscreen",
-      "accessibilityExitedFullscreen":"Exited fullscreen",
-      "confirmDialogHeader":"Submit your answers",
-      "confirmDialogText":"This will submit your results, do you want to continue?",
-      "confirmDialogConfirmText":"Submit and see results"
-   }
-}'
-]
-
-{ #category : 'old working templates' }
-MicH5PTemplateWriter >> fullTemplateString2 [
-	"Working too"
- ^ '{
-   "presentation":{
-      "slides":[
-         {
-            "elements":[
-               {
-                  "x":8.714596949891067,
-                  "y":25.821222462742128,
-                  "width":81.69934640522877,
-                  "height":27.972991001303974,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p><span style=\"font-size:1.5em\">{{{TITLEVARIABLE}}}</span></p>\n"
-                     },
-                     "subContentId":"98820042-f742-49f4-af01-56a9eecb226b",
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ { "name" : "S. Ducasse" }
-
-
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":86.35110294117648,
-                  "y":71.00836177254085,
-                  "width":13.648910675381265,
-                  "height":26.954343775148796,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-b8lco9r6.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":256,
-                           "height":256
-                        }
-                     },
-                     "subContentId":"6f039cb5-677a-4314-ad87-e7ae20b3052d",
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":16.051364365971107,
-                  "y":60.24268289202926,
-                  "width":40.30501089324619,
-                  "height":12.910611231371064,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p>{{{AUTHORVARIABLE}}}</p>\n"
-                     },
-                     "subContentId":"9fbed056-1cde-4ec3-bc1f-516c724912b1",
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":2.178649237472767,
-                  "y":88.22251008103561,
-                  "width":14.161220043572985,
-                  "height":9.783833332616078,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-FLYhoyME.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":403,
-                           "height":141
-                        }
-                     },
-                     "subContentId":"84fce47f-c9ce-4c1f-95f9-78985029999f",
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":2.178649237472767,
-                  "y":4.303537077123688,
-                  "width":93.68191721132898,
-                  "height":8.607074154247377,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p>Advanced object-oriented design explained with Pharo</p>\n"
-                     },
-                     "subContentId":"30b14f98-5f34-467a-b1b0-9f955f411350",
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":70.80610021786492,
-                  "y":92.5260471581593,
-                  "width":19.607843137254903,
-                  "height":6.455305615685532,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p>http://www.pharo.org</p>\n"
-                     },
-                     "subContentId":"f15bd80f-b6fa-49c5-a26e-78fd09a1dcb6",
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "keywords":[
-               {
-                  "main":"Cover Slide"
-               }
-            ],
-            "slideBackgroundSelector":{
-               
-            }
-         },
-         {
-            "elements":[
-               {
-                  "x":6.5359477124183005,
-                  "y":19.365916847056596,
-                  "width":37.037037037037,
-                  "height":73.160071277275,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<ul>\n\t<li><span style=\"font-size:1.125em\">Cool</span></li>\n\t<li><span style=\"font-size:1.125em\">Nice</span></li>\n\t<li><span style=\"font-size:1.125em\">Super</span></li>\n\t<li><span style=\"font-size:1.125em\">Hyper language</span></li>\n</ul>\n"
-                     },
-                     "subContentId":"a41dda9d-d25f-47e1-80a7-6dd88158508e",
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":2.178649237472767,
-                  "y":2.151768538561844,
-                  "width":95.86056644880175,
-                  "height":17.214148308494753,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<h2>«& SLIDETITLEVARIABLE»</h2>\n"
-                     },
-                     "subContentId":"0c4b6088-6d5f-428b-b53b-791a0ca89274",
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "slideBackgroundSelector":{
-               
-            },
-            "keywords":[
-               {
-                  "main":"Bulleted"
-               }
-            ]
-         },
-         {
-            "elements":[
-               {
-                  "x":2.178649237472767,
-                  "y":2.151768538561844,
-                  "width":95.86056644880175,
-                  "height":10.758842692809221,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<h2>Doing Manual Title....</h2>\n"
-                     },
-                     "subContentId":"b725a0d4-311a-471b-87df-8b56f69b8b6f",
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":4.3572984749455,
-                  "y":19.365901220455,
-                  "width":82.788671023965,
-                  "height":51.642403254547,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<pre>testSetLabel\n\n    | codeBlock |\n    codeBlock := self testedClass new.\n    codeBlock label: ''sec123''.\n    self assert: codeBlock hasLabel. \n    self assert: codeBlock label equals: ''sec123''\n</pre>\n"
-                     },
-                     "subContentId":"4f8b5f81-40ee-4bdd-9fa6-935c850f9da0",
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "slideBackgroundSelector":{
-               
-            },
-            "keywords":[
-               {
-                  "main":"Code"
-               }
-            ]
-         },
-         {
-            "elements":[
-               {
-                  "x":30.000680827887,
-                  "y":30.000336213563,
-                  "width":40,
-                  "height":40,
-                  "action":{
-                     "library":"H5P.Link 1.3",
-                     "params":{
-                        "linkWidget":{
-                           "protocol":"http://",
-                           "url":"www.pharo.org"
-                        },
-                        "title":"What a great link"
-                     },
-                     "subContentId":"4160c8f2-8a7c-4e83-ad3b-a6b5415a7b9e",
-                     "metadata":{
-                        "contentType":"Link",
-                        "license":"U"
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "slideBackgroundSelector":{
-               
-            },
-            "keywords":[
-               {
-                  "main":"Link"
-               }
-            ]
-         },
-         {
-            "elements":[
-               {
-                  "x":57.734204793028326,
-                  "y":83.91897300391192,
-                  "width":18.51851851851852,
-                  "height":13.21319292326363,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-wFbeHf6p.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":227,
-                           "height":82
-                        }
-                     },
-                     "subContentId":"ae82b3a6-1b91-4133-b9fc-dea9ca6d5b41",
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":26.143790849673202,
-                  "y":81.76720446535008,
-                  "width":10.893246187363834,
-                  "height":13.448553366011526,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-9vO0XU26.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":160,
-                           "height":100
-                        }
-                     },
-                     "subContentId":"560b2be2-b5d3-48b6-9d79-ad98b568b7ee",
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":42.48366013071895,
-                  "y":81.76720446535008,
-                  "width":9.803921568627452,
-                  "height":13.39475915254748,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-oZNS16yO.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":133,
-                           "height":92
-                        }
-                     },
-                     "subContentId":"b3fd2dcf-de97-49e6-8ba9-7b1e32869b3f",
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":80.61002178649238,
-                  "y":83.91897300391192,
-                  "width":17.429193899782135,
-                  "height":13.646924907581543,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-TyojgW30.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":222,
-                           "height":88
-                        }
-                     },
-                     "subContentId":"fee02c70-37b2-4615-a13a-84b397cf0e41",
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":1.0893246187363834,
-                  "y":81.76720446535008,
-                  "width":19.607843137254903,
-                  "height":13.949506599474109,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-MHF07lsl.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":472,
-                           "height":170
-                        }
-                     },
-                     "subContentId":"ff04b6d1-0612-4d3e-a164-63b211b0e5e8",
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":37.03703703703704,
-                  "y":62.40128761829348,
-                  "width":18.51851851851852,
-                  "height":12.796309286602659,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-kyGO23Dp.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":403,
-                           "height":141
-                        }
-                     },
-                     "subContentId":"0df21089-995e-4eae-b37a-fa1c5f500dac",
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":19.607843137254903,
-                  "y":30.124759539865817,
-                  "width":55.55555555555556,
-                  "height":39.999440540179975,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p style=\"text-align:center\"><span style=\"font-size:1.375em\">S. Ducasse, L. Fabresse, G. Polito, P. Tesone </span></p>\n\n<p style=\"text-align:center\"><span style=\"font-size:1.125em\">Copyright 2022</span></p>\n\n<p> </p>\n"
-                     },
-                     "subContentId":"a5116483-6063-4cf8-8155-dd08bd8526b0",
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "slideBackgroundSelector":{
-               
-            },
-            "keywords":[
-               {
-                  "main":"End"
-               }
-            ]
-         }
-      ],
-      "keywordListEnabled":true,
-      "globalBackgroundSelector":{
-         
-      },
-      "keywordListAlwaysShow":false,
-      "keywordListAutoHide":false,
-      "keywordListOpacity":100
-   },
-   "override":{
-      "activeSurface":false,
-      "hideSummarySlide":false,
-      "summarySlideSolutionButton":true,
-      "summarySlideRetryButton":true,
-      "enablePrintButton":false,
-      "social":{
-         "showFacebookShare":false,
-         "facebookShare":{
-            "url":"@currentpageurl",
-            "quote":"I scored @score out of @maxScore on a task at @currentpageurl."
-         },
-         "showTwitterShare":false,
-         "twitterShare":{
-            "statement":"I scored @score out of @maxScore on a task at @currentpageurl.",
-            "url":"@currentpageurl",
-            "hashtags":"h5p, course"
-         },
-         "showGoogleShare":false,
-         "googleShareUrl":"@currentpageurl"
-      }
-   },
-   "l10n":{
-      "slide":"Slide",
-      "score":"Score",
-      "yourScore":"Your Score",
-      "maxScore":"Max Score",
-      "total":"Total",
-      "totalScore":"Total Score",
-      "showSolutions":"Show solutions",
-      "retry":"Retry",
-      "exportAnswers":"Export text",
-      "hideKeywords":"Hide sidebar navigation menu",
-      "showKeywords":"Show sidebar navigation menu",
-      "fullscreen":"Fullscreen",
-      "exitFullscreen":"Exit fullscreen",
-      "prevSlide":"Previous slide",
-      "nextSlide":"Next slide",
-      "currentSlide":"Current slide",
-      "lastSlide":"Last slide",
-      "solutionModeTitle":"Exit solution mode",
-      "solutionModeText":"Solution Mode",
-      "summaryMultipleTaskText":"Multiple tasks",
-      "scoreMessage":"You achieved:",
-      "shareFacebook":"Share on Facebook",
-      "shareTwitter":"Share on Twitter",
-      "shareGoogle":"Share on Google+",
-      "summary":"Summary",
-      "solutionsButtonTitle":"Show comments",
-      "printTitle":"Print",
-      "printIngress":"How would you like to print this presentation?",
-      "printAllSlides":"Print all slides",
-      "printCurrentSlide":"Print current slide",
-      "noTitle":"No title",
-      "accessibilitySlideNavigationExplanation":"Use left and right arrow to change slide in that direction whenever canvas is selected.",
-      "accessibilityCanvasLabel":"Presentation canvas. Use left and right arrow to move between slides.",
-      "containsNotCompleted":"@slideName contains not completed interaction",
-      "containsCompleted":"@slideName contains completed interaction",
-      "slideCount":"Slide @index of @total",
-      "containsOnlyCorrect":"@slideName only has correct answers",
-      "containsIncorrectAnswers":"@slideName has incorrect answers",
-      "shareResult":"Share Result",
-      "accessibilityTotalScore":"You got @score of @maxScore points in total",
-      "accessibilityEnteredFullscreen":"Entered fullscreen",
-      "accessibilityExitedFullscreen":"Exited fullscreen",
-      "confirmDialogHeader":"Submit your answers",
-      "confirmDialogText":"This will submit your results, do you want to continue?",
-      "confirmDialogConfirmText":"Submit and see results"
-   }
-}'
-]
-
-{ #category : 'old working templates' }
-MicH5PTemplateWriter >> fullTemplateString3 [
-	"working too"
- ^ '{
-   "presentation":{
-      "slides":[
-         {
-            "elements":[
-               {
-                  "x":8.714596949891067,
-                  "y":25.821222462742128,
-                  "width":81.69934640522877,
-                  "height":27.972991001303974,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p><span style=\"font-size:1.5em\">{{{TITLEVARIABLE}}}</span></p>\n"
-                     },
-                     "subContentId":"98820042-f742-49f4-af01-56a9eecb226b",
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":86.35110294117648,
-                  "y":71.00836177254085,
-                  "width":13.648910675381265,
-                  "height":26.954343775148796,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-b8lco9r6.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":256,
-                           "height":256
-                        }
-                     },
-                     "subContentId":"6f039cb5-677a-4314-ad87-e7ae20b3052d",
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":16.051364365971107,
-                  "y":60.24268289202926,
-                  "width":40.30501089324619,
-                  "height":12.910611231371064,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p>{{{AUTHORVARIABLE}}}</p>\n"
-                     },
-                     "subContentId":"9fbed056-1cde-4ec3-bc1f-516c724912b1",
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":2.178649237472767,
-                  "y":88.22251008103561,
-                  "width":14.161220043572985,
-                  "height":9.783833332616078,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-FLYhoyME.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":403,
-                           "height":141
-                        }
-                     },
-                     "subContentId":"84fce47f-c9ce-4c1f-95f9-78985029999f",
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":2.178649237472767,
-                  "y":4.303537077123688,
-                  "width":93.68191721132898,
-                  "height":8.607074154247377,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p>Advanced object-oriented design explained with Pharo</p>\n"
-                     },
-                     "subContentId":"30b14f98-5f34-467a-b1b0-9f955f411350",
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":70.80610021786492,
-                  "y":92.5260471581593,
-                  "width":19.607843137254903,
-                  "height":6.455305615685532,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p>http://www.pharo.org</p>\n"
-                     },
-                     "subContentId":"f15bd80f-b6fa-49c5-a26e-78fd09a1dcb6",
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "keywords":[
-               {
-                  "main":"Cover Slide"
-               }
-            ],
-            "slideBackgroundSelector":{ }
-         },
-         {
-            "elements":[
-               {
-                  "x":6.5359477124183005,
-                  "y":19.365916847056596,
-                  "width":37.037037037037,
-                  "height":73.160071277275,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<ul>\n\t<li><span style=\"font-size:1.125em\">Cool</span></li>\n\t<li><span style=\"font-size:1.125em\">Nice</span></li>\n\t<li><span style=\"font-size:1.125em\">Super</span></li>\n\t<li><span style=\"font-size:1.125em\">Hyper language</span></li>\n</ul>\n"
-                     },
-                     "subContentId":"a41dda9d-d25f-47e1-80a7-6dd88158508e",
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":2.178649237472767,
-                  "y":2.151768538561844,
-                  "width":95.86056644880175,
-                  "height":17.214148308494753,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<h2>«& SLIDETITLEVARIABLE»</h2>\n"
-                     },
-                     "subContentId":"0c4b6088-6d5f-428b-b53b-791a0ca89274",
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "slideBackgroundSelector":{
-               
-            },
-            "keywords":[
-               {
-                  "main":"Bulleted"
-               }
-            ]
-         },
-         {
-            "elements":[
-               {
-                  "x":2.178649237472767,
-                  "y":2.151768538561844,
-                  "width":95.86056644880175,
-                  "height":10.758842692809221,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<h2>Doing Manual Title....</h2>\n"
-                     },
-                     "subContentId":"b725a0d4-311a-471b-87df-8b56f69b8b6f",
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":4.3572984749455,
-                  "y":19.365901220455,
-                  "width":82.788671023965,
-                  "height":51.642403254547,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<pre>testSetLabel\n\n    | codeBlock |\n    codeBlock := self testedClass new.\n    codeBlock label: ''sec123''.\n    self assert: codeBlock hasLabel. \n    self assert: codeBlock label equals: ''sec123''\n</pre>\n"
-                     },
-                     "subContentId":"4f8b5f81-40ee-4bdd-9fa6-935c850f9da0",
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "slideBackgroundSelector":{
-               
-            },
-            "keywords":[
-               {
-                  "main":"Code"
-               }
-            ]
-         },
-         {
-            "elements":[
-               {
-                  "x":30.000680827887,
-                  "y":30.000336213563,
-                  "width":40,
-                  "height":40,
-                  "action":{
-                     "library":"H5P.Link 1.3",
-                     "params":{
-                        "linkWidget":{
-                           "protocol":"http://",
-                           "url":"www.pharo.org"
-                        },
-                        "title":"What a great link"
-                     },
-                     "subContentId":"4160c8f2-8a7c-4e83-ad3b-a6b5415a7b9e",
-                     "metadata":{
-                        "contentType":"Link",
-                        "license":"U"
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "slideBackgroundSelector":{
-               
-            },
-            "keywords":[
-               {
-                  "main":"Link"
-               }
-            ]
-         },
-         {
-            "elements":[
-               {
-                  "x":57.734204793028326,
-                  "y":83.91897300391192,
-                  "width":18.51851851851852,
-                  "height":13.21319292326363,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-wFbeHf6p.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":227,
-                           "height":82
-                        }
-                     },
-                     "subContentId":"ae82b3a6-1b91-4133-b9fc-dea9ca6d5b41",
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":26.143790849673202,
-                  "y":81.76720446535008,
-                  "width":10.893246187363834,
-                  "height":13.448553366011526,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-9vO0XU26.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":160,
-                           "height":100
-                        }
-                     },
-                     "subContentId":"560b2be2-b5d3-48b6-9d79-ad98b568b7ee",
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":42.48366013071895,
-                  "y":81.76720446535008,
-                  "width":9.803921568627452,
-                  "height":13.39475915254748,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-oZNS16yO.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":133,
-                           "height":92
-                        }
-                     },
-                     "subContentId":"b3fd2dcf-de97-49e6-8ba9-7b1e32869b3f",
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":80.61002178649238,
-                  "y":83.91897300391192,
-                  "width":17.429193899782135,
-                  "height":13.646924907581543,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-TyojgW30.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":222,
-                           "height":88
-                        }
-                     },
-                     "subContentId":"fee02c70-37b2-4615-a13a-84b397cf0e41",
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":1.0893246187363834,
-                  "y":81.76720446535008,
-                  "width":19.607843137254903,
-                  "height":13.949506599474109,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-MHF07lsl.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":472,
-                           "height":170
-                        }
-                     },
-                     "subContentId":"ff04b6d1-0612-4d3e-a164-63b211b0e5e8",
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":37.03703703703704,
-                  "y":62.40128761829348,
-                  "width":18.51851851851852,
-                  "height":12.796309286602659,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-kyGO23Dp.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":403,
-                           "height":141
-                        }
-                     },
-                     "subContentId":"0df21089-995e-4eae-b37a-fa1c5f500dac",
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":19.607843137254903,
-                  "y":30.124759539865817,
-                  "width":55.55555555555556,
-                  "height":39.999440540179975,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p style=\"text-align:center\"><span style=\"font-size:1.375em\">S. Ducasse, L. Fabresse, G. Polito, P. Tesone </span></p>\n\n<p style=\"text-align:center\"><span style=\"font-size:1.125em\">Copyright 2022</span></p>\n\n<p> </p>\n"
-                     },
-                     "subContentId":"a5116483-6063-4cf8-8155-dd08bd8526b0",
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "slideBackgroundSelector":{
-               
-            },
-            "keywords":[
-               {
-                  "main":"End"
-               }
-            ]
-         }
-      ],
-      "keywordListEnabled":true,
-      "globalBackgroundSelector":{
-         
-      },
-      "keywordListAlwaysShow":false,
-      "keywordListAutoHide":false,
-      "keywordListOpacity":100
-   },
-   "override":{
-      "activeSurface":false,
-      "hideSummarySlide":false,
-      "summarySlideSolutionButton":true,
-      "summarySlideRetryButton":true,
-      "enablePrintButton":false,
-      "social":{
-         "showFacebookShare":false,
-         "facebookShare":{
-            "url":"@currentpageurl",
-            "quote":"I scored @score out of @maxScore on a task at @currentpageurl."
-         },
-         "showTwitterShare":false,
-         "twitterShare":{
-            "statement":"I scored @score out of @maxScore on a task at @currentpageurl.",
-            "url":"@currentpageurl",
-            "hashtags":"h5p, course"
-         },
-         "showGoogleShare":false,
-         "googleShareUrl":"@currentpageurl"
-      }
-   },
-   "l10n":{
-      "slide":"Slide",
-      "score":"Score",
-      "yourScore":"Your Score",
-      "maxScore":"Max Score",
-      "total":"Total",
-      "totalScore":"Total Score",
-      "showSolutions":"Show solutions",
-      "retry":"Retry",
-      "exportAnswers":"Export text",
-      "hideKeywords":"Hide sidebar navigation menu",
-      "showKeywords":"Show sidebar navigation menu",
-      "fullscreen":"Fullscreen",
-      "exitFullscreen":"Exit fullscreen",
-      "prevSlide":"Previous slide",
-      "nextSlide":"Next slide",
-      "currentSlide":"Current slide",
-      "lastSlide":"Last slide",
-      "solutionModeTitle":"Exit solution mode",
-      "solutionModeText":"Solution Mode",
-      "summaryMultipleTaskText":"Multiple tasks",
-      "scoreMessage":"You achieved:",
-      "shareFacebook":"Share on Facebook",
-      "shareTwitter":"Share on Twitter",
-      "shareGoogle":"Share on Google+",
-      "summary":"Summary",
-      "solutionsButtonTitle":"Show comments",
-      "printTitle":"Print",
-      "printIngress":"How would you like to print this presentation?",
-      "printAllSlides":"Print all slides",
-      "printCurrentSlide":"Print current slide",
-      "noTitle":"No title",
-      "accessibilitySlideNavigationExplanation":"Use left and right arrow to change slide in that direction whenever canvas is selected.",
-      "accessibilityCanvasLabel":"Presentation canvas. Use left and right arrow to move between slides.",
-      "containsNotCompleted":"@slideName contains not completed interaction",
-      "containsCompleted":"@slideName contains completed interaction",
-      "slideCount":"Slide @index of @total",
-      "containsOnlyCorrect":"@slideName only has correct answers",
-      "containsIncorrectAnswers":"@slideName has incorrect answers",
-      "shareResult":"Share Result",
-      "accessibilityTotalScore":"You got @score of @maxScore points in total",
-      "accessibilityEnteredFullscreen":"Entered fullscreen",
-      "accessibilityExitedFullscreen":"Exited fullscreen",
-      "confirmDialogHeader":"Submit your answers",
-      "confirmDialogText":"This will submit your results, do you want to continue?",
-      "confirmDialogConfirmText":"Submit and see results"
-   }
-}'
-]
-
-{ #category : 'old working templates' }
-MicH5PTemplateWriter >> fullTemplateString4 [
-	"no subcomponentid"
- ^ '{
-   "presentation":{
-      "slides":[
-         {
-            "elements":[
-               {
-                  "x":8.714596949891067,
-                  "y":25.821222462742128,
-                  "width":81.69934640522877,
-                  "height":27.972991001303974,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p><span style=\"font-size:1.5em\">{{{TITLEVARIABLE}}}</span></p>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":86.35110294117648,
-                  "y":71.00836177254085,
-                  "width":13.648910675381265,
-                  "height":26.954343775148796,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-b8lco9r6.png",
-                           "mime":"image/png",
-                           "copyright":{"license":"U"},
-                           "width":256,
-                           "height":256
-                        }
-                     },
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":16.051364365971107,
-                  "y":60.24268289202926,
-                  "width":40.30501089324619,
-                  "height":12.910611231371064,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p>{{{AUTHORVARIABLE}}}</p>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":2.178649237472767,
-                  "y":88.22251008103561,
-                  "width":14.161220043572985,
-                  "height":9.783833332616078,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-FLYhoyME.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":403,
-                           "height":141
-                        }
-                     },
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":2.178649237472767,
-                  "y":4.303537077123688,
-                  "width":93.68191721132898,
-                  "height":8.607074154247377,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p>Advanced object-oriented design explained with Pharo</p>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":70.80610021786492,
-                  "y":92.5260471581593,
-                  "width":19.607843137254903,
-                  "height":6.455305615685532,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p>http://www.pharo.org</p>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "keywords":[
-               {
-                  "main":"{{{TITLEVARIABLE}}}"
-               }
-            ],
-            "slideBackgroundSelector":{ }
-         },
-         {
-            "elements":[
-               {
-                  "x":6.5359477124183005,
-                  "y":19.365916847056596,
-                  "width":37.037037037037,
-                  "height":73.160071277275,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<ul>\n\t<li><span style=\"font-size:1.125em\">Cool</span></li>\n\t<li><span style=\"font-size:1.125em\">Nice</span></li>\n\t<li><span style=\"font-size:1.125em\">Super</span></li>\n\t<li><span style=\"font-size:1.125em\">Hyper language</span></li>\n</ul>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":2.178649237472767,
-                  "y":2.151768538561844,
-                  "width":95.86056644880175,
-                  "height":17.214148308494753,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<h2>{{{SLIDETITLEVARIABLE}}}</h2>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "slideBackgroundSelector":{  },
-            "keywords":[
-               {
-                  "main":"{{{SHORTSLIDETITLE}}}"
-               }
-            ]
-         },
-         {
-            "elements":[
-               {
-                  "x":2.178649237472767,
-                  "y":2.151768538561844,
-                  "width":95.86056644880175,
-                  "height":10.758842692809221,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<h2>Doing Manual Title....</h2>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":4.3572984749455,
-                  "y":19.365901220455,
-                  "width":82.788671023965,
-                  "height":51.642403254547,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<pre>testSetLabel\n\n    | codeBlock |\n    codeBlock := self testedClass new.\n    codeBlock label: ''sec123''.\n    self assert: codeBlock hasLabel. \n    self assert: codeBlock label equals: ''sec123''\n</pre>\n"
-                     },
-                     "subContentId":"4f8b5f81-40ee-4bdd-9fa6-935c850f9da0",
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "slideBackgroundSelector":{     
-            },
-            "keywords":[
-               {
-                  "main":"Code"
-               }
-            ]
-         },
-         {
-            "elements":[
-               {
-                  "x":30.000680827887,
-                  "y":30.000336213563,
-                  "width":40,
-                  "height":40,
-                  "action":{
-                     "library":"H5P.Link 1.3",
-                     "params":{
-                        "linkWidget":{
-                           "protocol":"http://",
-                           "url":"www.pharo.org"
-                        },
-                        "title":"What a great link"
-                     },
-                     "subContentId":"4160c8f2-8a7c-4e83-ad3b-a6b5415a7b9e",
-                     "metadata":{
-                        "contentType":"Link",
-                        "license":"U"
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "slideBackgroundSelector":{
-               
-            },
-            "keywords":[
-               {
-                  "main":"Link"
-               }
-            ]
-         },
-         {
-            "elements":[
-               {
-                  "x":57.734204793028326,
-                  "y":83.91897300391192,
-                  "width":18.51851851851852,
-                  "height":13.21319292326363,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-wFbeHf6p.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":227,
-                           "height":82
-                        }
-                     },
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":26.143790849673202,
-                  "y":81.76720446535008,
-                  "width":10.893246187363834,
-                  "height":13.448553366011526,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-9vO0XU26.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":160,
-                           "height":100
-                        }
-                     },
-                     "subContentId":"560b2be2-b5d3-48b6-9d79-ad98b568b7ee",
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":42.48366013071895,
-                  "y":81.76720446535008,
-                  "width":9.803921568627452,
-                  "height":13.39475915254748,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-oZNS16yO.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":133,
-                           "height":92
-                        }
-                     },
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":80.61002178649238,
-                  "y":83.91897300391192,
-                  "width":17.429193899782135,
-                  "height":13.646924907581543,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-TyojgW30.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":222,
-                           "height":88
-                        }
-                     },
-                     "subContentId":"fee02c70-37b2-4615-a13a-84b397cf0e41",
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":1.0893246187363834,
-                  "y":81.76720446535008,
-                  "width":19.607843137254903,
-                  "height":13.949506599474109,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-MHF07lsl.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":472,
-                           "height":170
-                        }
-                     },
-                     "subContentId":"ff04b6d1-0612-4d3e-a164-63b211b0e5e8",
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":37.03703703703704,
-                  "y":62.40128761829348,
-                  "width":18.51851851851852,
-                  "height":12.796309286602659,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-kyGO23Dp.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":403,
-                           "height":141
-                        }
-                     },
-                     "subContentId":"0df21089-995e-4eae-b37a-fa1c5f500dac",
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":19.607843137254903,
-                  "y":30.124759539865817,
-                  "width":55.55555555555556,
-                  "height":39.999440540179975,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p style=\"text-align:center\"><span style=\"font-size:1.375em\">S. Ducasse, L. Fabresse, G. Polito, P. Tesone </span></p>\n\n<p style=\"text-align:center\"><span style=\"font-size:1.125em\">Copyright 2022</span></p>\n\n<p> </p>\n"
-                     },
-                     "subContentId":"a5116483-6063-4cf8-8155-dd08bd8526b0",
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[
-                           
-                        ],
-                        "changes":[
-                           
-                        ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "slideBackgroundSelector":{
-               
-            },
-            "keywords":[
-               {
-                  "main":"End"
-               }
-            ]
-         }
-      ],
-      "keywordListEnabled":true,
-      "globalBackgroundSelector":{
-         
-      },
-      "keywordListAlwaysShow":false,
-      "keywordListAutoHide":false,
-      "keywordListOpacity":100
-   },
-   "override":{
-      "activeSurface":false,
-      "hideSummarySlide":false,
-      "summarySlideSolutionButton":true,
-      "summarySlideRetryButton":true,
-      "enablePrintButton":false,
-      "social":{
-         "showFacebookShare":false,
-         "facebookShare":{
-            "url":"@currentpageurl",
-            "quote":"I scored @score out of @maxScore on a task at @currentpageurl."
-         },
-         "showTwitterShare":false,
-         "twitterShare":{
-            "statement":"I scored @score out of @maxScore on a task at @currentpageurl.",
-            "url":"@currentpageurl",
-            "hashtags":"h5p, course"
-         },
-         "showGoogleShare":false,
-         "googleShareUrl":"@currentpageurl"
-      }
-   },
-   "l10n":{
-      "slide":"Slide",
-      "score":"Score",
-      "yourScore":"Your Score",
-      "maxScore":"Max Score",
-      "total":"Total",
-      "totalScore":"Total Score",
-      "showSolutions":"Show solutions",
-      "retry":"Retry",
-      "exportAnswers":"Export text",
-      "hideKeywords":"Hide sidebar navigation menu",
-      "showKeywords":"Show sidebar navigation menu",
-      "fullscreen":"Fullscreen",
-      "exitFullscreen":"Exit fullscreen",
-      "prevSlide":"Previous slide",
-      "nextSlide":"Next slide",
-      "currentSlide":"Current slide",
-      "lastSlide":"Last slide",
-      "solutionModeTitle":"Exit solution mode",
-      "solutionModeText":"Solution Mode",
-      "summaryMultipleTaskText":"Multiple tasks",
-      "scoreMessage":"You achieved:",
-      "shareFacebook":"Share on Facebook",
-      "shareTwitter":"Share on Twitter",
-      "shareGoogle":"Share on Google+",
-      "summary":"Summary",
-      "solutionsButtonTitle":"Show comments",
-      "printTitle":"Print",
-      "printIngress":"How would you like to print this presentation?",
-      "printAllSlides":"Print all slides",
-      "printCurrentSlide":"Print current slide",
-      "noTitle":"No title",
-      "accessibilitySlideNavigationExplanation":"Use left and right arrow to change slide in that direction whenever canvas is selected.",
-      "accessibilityCanvasLabel":"Presentation canvas. Use left and right arrow to move between slides.",
-      "containsNotCompleted":"@slideName contains not completed interaction",
-      "containsCompleted":"@slideName contains completed interaction",
-      "slideCount":"Slide @index of @total",
-      "containsOnlyCorrect":"@slideName only has correct answers",
-      "containsIncorrectAnswers":"@slideName has incorrect answers",
-      "shareResult":"Share Result",
-      "accessibilityTotalScore":"You got @score of @maxScore points in total",
-      "accessibilityEnteredFullscreen":"Entered fullscreen",
-      "accessibilityExitedFullscreen":"Exited fullscreen",
-      "confirmDialogHeader":"Submit your answers",
-      "confirmDialogText":"This will submit your results, do you want to continue?",
-      "confirmDialogConfirmText":"Submit and see results"
-   }
-}'
-]
-
-{ #category : 'old working templates' }
-MicH5PTemplateWriter >> fullTemplateString5 [
-	"Cleaned subcomponents 
-	removed some extra space"
- ^ '{
-   "presentation":{
-      "slides":[
-         {
-            "elements":[
-               {
-                  "x":8.714596949891067,
-                  "y":25.821222462742128,
-                  "width":81.69934640522877,
-                  "height":27.972991001303974,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p><span style=\"font-size:1.5em\">{{{TITLEVARIABLE}}}</span></p>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":86.35110294117648,
-                  "y":71.00836177254085,
-                  "width":13.648910675381265,
-                  "height":26.954343775148796,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-b8lco9r6.png",
-                           "mime":"image/png",
-                           "copyright":{"license":"U"},
-                           "width":256,
-                           "height":256
-                        }
-                     },
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":16.051364365971107,
-                  "y":60.24268289202926,
-                  "width":40.30501089324619,
-                  "height":12.910611231371064,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p>{{{AUTHORVARIABLE}}}</p>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":2.178649237472767,
-                  "y":88.22251008103561,
-                  "width":14.161220043572985,
-                  "height":9.783833332616078,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-FLYhoyME.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":403,
-                           "height":141
-                        }
-                     },
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":2.178649237472767,
-                  "y":4.303537077123688,
-                  "width":93.68191721132898,
-                  "height":8.607074154247377,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p>Advanced object-oriented design explained with Pharo</p>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":70.80610021786492,
-                  "y":92.5260471581593,
-                  "width":19.607843137254903,
-                  "height":6.455305615685532,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p>http://www.pharo.org</p>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "keywords":[
-               {
-                  "main":"{{{SHORTTITLEVARIABLE}}}"
-               }
-            ],
-            "slideBackgroundSelector":{ }
-         },
-         {
-            "elements":[
-               {
-                  "x":6.5359477124183005,
-                  "y":19.365916847056596,
-                  "width":37.037037037037,
-                  "height":73.160071277275,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<ul>\n\t<li><span style=\"font-size:1.125em\">Cool</span></li>\n\t<li><span style=\"font-size:1.125em\">Nice</span></li>\n\t<li><span style=\"font-size:1.125em\">Super</span></li>\n\t<li><span style=\"font-size:1.125em\">Hyper language</span></li>\n</ul>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":2.178649237472767,
-                  "y":2.151768538561844,
-                  "width":95.86056644880175,
-                  "height":17.214148308494753,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<h2>{{{SLIDETITLEVARIABLE}}}</h2>\n" 
-                      },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "slideBackgroundSelector":{ },
-            "keywords":[
-               {
-                  "main":"{{{SHORTSLIDETITLEVARIABLE}}}"
-               }
-            ]
-         },
-         {
-            "elements":[
-               {
-                  "x":2.178649237472767,
-                  "y":2.151768538561844,
-                  "width":95.86056644880175,
-                  "height":10.758842692809221,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<h2>Doing Manual Title....</h2>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":4.3572984749455,
-                  "y":19.365901220455,
-                  "width":82.788671023965,
-                  "height":51.642403254547,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<pre>testSetLabel\n\n    | codeBlock |\n    codeBlock := self testedClass new.\n    codeBlock label: ''sec123''.\n    self assert: codeBlock hasLabel. \n    self assert: codeBlock label equals: ''sec123''\n</pre>\n"
-                     },
-                     "subContentId":"4f8b5f81-40ee-4bdd-9fa6-935c850f9da0",
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "slideBackgroundSelector":{
-               
-            },
-            "keywords":[
-               {
-                  "main":"Code"
-               }
-            ]
-         },
-         {
-            "elements":[
-               {
-                  "x":30.000680827887,
-                  "y":30.000336213563,
-                  "width":40,
-                  "height":40,
-                  "action":{
-                     "library":"H5P.Link 1.3",
-                     "params":{
-                        "linkWidget":{
-                           "protocol":"http://",
-                           "url":"www.pharo.org"
-                        },
-                        "title":"What a great link"
-                     },
-                     "metadata":{
-                        "contentType":"Link",
-                        "license":"U"
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "slideBackgroundSelector":{
-               
-            },
-            "keywords":[
-               {
-                  "main":"Link"
-               }
-            ]
-         },
-         {
-            "elements":[
-               {
-                  "x":57.734204793028326,
-                  "y":83.91897300391192,
-                  "width":18.51851851851852,
-                  "height":13.21319292326363,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-wFbeHf6p.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":227,
-                           "height":82
-                        }
-                     },
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":26.143790849673202,
-                  "y":81.76720446535008,
-                  "width":10.893246187363834,
-                  "height":13.448553366011526,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-9vO0XU26.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":160,
-                           "height":100
-                        }
-                     },
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":42.48366013071895,
-                  "y":81.76720446535008,
-                  "width":9.803921568627452,
-                  "height":13.39475915254748,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-oZNS16yO.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":133,
-                           "height":92
-                        }
-                     },
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":80.61002178649238,
-                  "y":83.91897300391192,
-                  "width":17.429193899782135,
-                  "height":13.646924907581543,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-TyojgW30.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":222,
-                           "height":88
-                        }
-                     },
-                     "subContentId":"fee02c70-37b2-4615-a13a-84b397cf0e41",
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":1.0893246187363834,
-                  "y":81.76720446535008,
-                  "width":19.607843137254903,
-                  "height":13.949506599474109,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-MHF07lsl.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":472,
-                           "height":170
-                        }
-                     },
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[ ],
-                        "changes": [ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":37.03703703703704,
-                  "y":62.40128761829348,
-                  "width":18.51851851851852,
-                  "height":12.796309286602659,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-kyGO23Dp.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":403,
-                           "height":141
-                        }
-                     },
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":19.607843137254903,
-                  "y":30.124759539865817,
-                  "width":55.55555555555556,
-                  "height":39.999440540179975,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p style=\"text-align:center\"><span style=\"font-size:1.375em\">S. Ducasse, L. Fabresse, G. Polito, P. Tesone </span></p>\n\n<p style=\"text-align:center\"><span style=\"font-size:1.125em\">Copyright 2022</span></p>\n\n<p> </p>\n"
-                     },
-                     "subContentId":"a5116483-6063-4cf8-8155-dd08bd8526b0",
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "slideBackgroundSelector":{ },
-            "keywords":[
-               { "main":"Credits/License" }
-            ]
-         }
-      ],
-      "keywordListEnabled":true,
-      "globalBackgroundSelector":{
-         
-      },
-      "keywordListAlwaysShow":false,
-      "keywordListAutoHide":false,
-      "keywordListOpacity":100
-   },
-   "override":{
-      "activeSurface":false,
-      "hideSummarySlide":false,
-      "summarySlideSolutionButton":true,
-      "summarySlideRetryButton":true,
-      "enablePrintButton":false,
-      "social":{
-         "showFacebookShare":false,
-         "facebookShare":{
-            "url":"@currentpageurl",
-            "quote":"I scored @score out of @maxScore on a task at @currentpageurl."
-         },
-         "showTwitterShare":false,
-         "twitterShare":{
-            "statement":"I scored @score out of @maxScore on a task at @currentpageurl.",
-            "url":"@currentpageurl",
-            "hashtags":"h5p, course"
-         },
-         "showGoogleShare":false,
-         "googleShareUrl":"@currentpageurl"
-      }
-   },
-   "l10n":{
-      "slide":"Slide",
-      "score":"Score",
-      "yourScore":"Your Score",
-      "maxScore":"Max Score",
-      "total":"Total",
-      "totalScore":"Total Score",
-      "showSolutions":"Show solutions",
-      "retry":"Retry",
-      "exportAnswers":"Export text",
-      "hideKeywords":"Hide sidebar navigation menu",
-      "showKeywords":"Show sidebar navigation menu",
-      "fullscreen":"Fullscreen",
-      "exitFullscreen":"Exit fullscreen",
-      "prevSlide":"Previous slide",
-      "nextSlide":"Next slide",
-      "currentSlide":"Current slide",
-      "lastSlide":"Last slide",
-      "solutionModeTitle":"Exit solution mode",
-      "solutionModeText":"Solution Mode",
-      "summaryMultipleTaskText":"Multiple tasks",
-      "scoreMessage":"You achieved:",
-      "shareFacebook":"Share on Facebook",
-      "shareTwitter":"Share on Twitter",
-      "shareGoogle":"Share on Google+",
-      "summary":"Summary",
-      "solutionsButtonTitle":"Show comments",
-      "printTitle":"Print",
-      "printIngress":"How would you like to print this presentation?",
-      "printAllSlides":"Print all slides",
-      "printCurrentSlide":"Print current slide",
-      "noTitle":"No title",
-      "accessibilitySlideNavigationExplanation":"Use left and right arrow to change slide in that direction whenever canvas is selected.",
-      "accessibilityCanvasLabel":"Presentation canvas. Use left and right arrow to move between slides.",
-      "containsNotCompleted":"@slideName contains not completed interaction",
-      "containsCompleted":"@slideName contains completed interaction",
-      "slideCount":"Slide @index of @total",
-      "containsOnlyCorrect":"@slideName only has correct answers",
-      "containsIncorrectAnswers":"@slideName has incorrect answers",
-      "shareResult":"Share Result",
-      "accessibilityTotalScore":"You got @score of @maxScore points in total",
-      "accessibilityEnteredFullscreen":"Entered fullscreen",
-      "accessibilityExitedFullscreen":"Exited fullscreen",
-      "confirmDialogHeader":"Submit your answers",
-      "confirmDialogText":"This will submit your results, do you want to continue?",
-      "confirmDialogConfirmText":"Submit and see results"
-   }
-}'
-]
-
-{ #category : 'working templates with parameters' }
-MicH5PTemplateWriter >> fullTemplateStringParam [
-	"with slides and credit variables."
- ^ '{
-   "presentation":{
-      "slides":[
-         {
-            "elements":[
-               {
-                  "x":8.714596949891067,
-                  "y":25.821222462742128,
-                  "width":81.69934640522877,
-                  "height":27.972991001303974,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p><span style=\"font-size:1.5em\">{{{TITLEVARIABLE}}}</span></p>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":86.35110294117648,
-                  "y":71.00836177254085,
-                  "width":13.648910675381265,
-                  "height":26.954343775148796,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-b8lco9r6.png",
-                           "mime":"image/png",
-                           "copyright":{"license":"U"},
-                           "width":256,
-                           "height":256
-                        }
-                     },
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":16.051364365971107,
-                  "y":60.24268289202926,
-                  "width":40.30501089324619,
-                  "height":12.910611231371064,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p>{{{AUTHORVARIABLE}}}</p>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":2.178649237472767,
-                  "y":88.22251008103561,
-                  "width":14.161220043572985,
-                  "height":9.783833332616078,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-FLYhoyME.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":403,
-                           "height":141
-                        }
-                     },
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":2.178649237472767,
-                  "y":4.303537077123688,
-                  "width":93.68191721132898,
-                  "height":8.607074154247377,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p>Advanced object-oriented design explained with Pharo</p>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":70.80610021786492,
-                  "y":92.5260471581593,
-                  "width":19.607843137254903,
-                  "height":6.455305615685532,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p>http://www.pharo.org</p>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "keywords":[
-               {
-                  "main":"{{{SHORTTITLEVARIABLE}}}"
-               }
-            ],
-            "slideBackgroundSelector":{ }
-         },
-         {{{SLIDES}}}
-         ,
-         {{{CREDITSLIDE}}}
-      ],
-      "keywordListEnabled":true,
-      "globalBackgroundSelector":{
-         
-      },
-      "keywordListAlwaysShow":false,
-      "keywordListAutoHide":false,
-      "keywordListOpacity":100
-   },
-   "override":{
-      "activeSurface":false,
-      "hideSummarySlide":false,
-      "summarySlideSolutionButton":true,
-      "summarySlideRetryButton":true,
-      "enablePrintButton":false,
-      "social":{
-         "showFacebookShare":false,
-         "facebookShare":{
-            "url":"@currentpageurl",
-            "quote":"I scored @score out of @maxScore on a task at @currentpageurl."
-         },
-         "showTwitterShare":false,
-         "twitterShare":{
-            "statement":"I scored @score out of @maxScore on a task at @currentpageurl.",
-            "url":"@currentpageurl",
-            "hashtags":"h5p, course"
-         },
-         "showGoogleShare":false,
-         "googleShareUrl":"@currentpageurl"
-      }
-   },
-   "l10n":{
-      "slide":"Slide",
-      "score":"Score",
-      "yourScore":"Your Score",
-      "maxScore":"Max Score",
-      "total":"Total",
-      "totalScore":"Total Score",
-      "showSolutions":"Show solutions",
-      "retry":"Retry",
-      "exportAnswers":"Export text",
-      "hideKeywords":"Hide sidebar navigation menu",
-      "showKeywords":"Show sidebar navigation menu",
-      "fullscreen":"Fullscreen",
-      "exitFullscreen":"Exit fullscreen",
-      "prevSlide":"Previous slide",
-      "nextSlide":"Next slide",
-      "currentSlide":"Current slide",
-      "lastSlide":"Last slide",
-      "solutionModeTitle":"Exit solution mode",
-      "solutionModeText":"Solution Mode",
-      "summaryMultipleTaskText":"Multiple tasks",
-      "scoreMessage":"You achieved:",
-      "shareFacebook":"Share on Facebook",
-      "shareTwitter":"Share on Twitter",
-      "shareGoogle":"Share on Google+",
-      "summary":"Summary",
-      "solutionsButtonTitle":"Show comments",
-      "printTitle":"Print",
-      "printIngress":"How would you like to print this presentation?",
-      "printAllSlides":"Print all slides",
-      "printCurrentSlide":"Print current slide",
-      "noTitle":"No title",
-      "accessibilitySlideNavigationExplanation":"Use left and right arrow to change slide in that direction whenever canvas is selected.",
-      "accessibilityCanvasLabel":"Presentation canvas. Use left and right arrow to move between slides.",
-      "containsNotCompleted":"@slideName contains not completed interaction",
-      "containsCompleted":"@slideName contains completed interaction",
-      "slideCount":"Slide @index of @total",
-      "containsOnlyCorrect":"@slideName only has correct answers",
-      "containsIncorrectAnswers":"@slideName has incorrect answers",
-      "shareResult":"Share Result",
-      "accessibilityTotalScore":"You got @score of @maxScore points in total",
-      "accessibilityEnteredFullscreen":"Entered fullscreen",
-      "accessibilityExitedFullscreen":"Exited fullscreen",
-      "confirmDialogHeader":"Submit your answers",
-      "confirmDialogText":"This will submit your results, do you want to continue?",
-      "confirmDialogConfirmText":"Submit and see results"
-   }
-}'
-]
-
-{ #category : 'working templates with parameters' }
-MicH5PTemplateWriter >> fullTemplateStringParam2 [
-	"This one is working"
- ^ '{
-   "presentation":{
-      "slides":[
-         {
-            "elements":[
-               {
-                  "x":8.714596949891067,
-                  "y":25.821222462742128,
-                  "width":81.69934640522877,
-                  "height":27.972991001303974,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p><span style=\"font-size:1.5em\">{{{TITLEVARIABLE}}}</span></p>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":86.35110294117648,
-                  "y":71.00836177254085,
-                  "width":13.648910675381265,
-                  "height":26.954343775148796,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-b8lco9r6.png",
-                           "mime":"image/png",
-                           "copyright":{"license":"U"},
-                           "width":256,
-                           "height":256
-                        }
-                     },
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":16.051364365971107,
-                  "y":60.24268289202926,
-                  "width":40.30501089324619,
-                  "height":12.910611231371064,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p>{{{AUTHORVARIABLE}}}</p>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":2.178649237472767,
-                  "y":88.22251008103561,
-                  "width":14.161220043572985,
-                  "height":9.783833332616078,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-FLYhoyME.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":403,
-                           "height":141
-                        }
-                     },
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":2.178649237472767,
-                  "y":4.303537077123688,
-                  "width":93.68191721132898,
-                  "height":8.607074154247377,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p>Advanced object-oriented design explained with Pharo</p>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":70.80610021786492,
-                  "y":92.5260471581593,
-                  "width":19.607843137254903,
-                  "height":6.455305615685532,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p>http://www.pharo.org</p>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "keywords":[
-               {
-                  "main":"{{{SHORTTITLEVARIABLE}}}"
-               }
-            ],
-            "slideBackgroundSelector":{ }
-         },
-         {
-            "elements":[
-               {
-                  "x":6.5359477124183005,
-                  "y":19.365916847056596,
-                  "width":37.037037037037,
-                  "height":73.160071277275,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<ul>\n\t<li><span style=\"font-size:1.125em\">Cool</span></li>\n\t<li><span style=\"font-size:1.125em\">Nice</span></li>\n\t<li><span style=\"font-size:1.125em\">Super</span></li>\n\t<li><span style=\"font-size:1.125em\">Hyper language</span></li>\n</ul>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":2.178649237472767,
-                  "y":2.151768538561844,
-                  "width":95.86056644880175,
-                  "height":17.214148308494753,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<h2>{{{SLIDETITLEVARIABLE}}}</h2>\n" 
-                      },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "slideBackgroundSelector":{ },
-            "keywords":[
-               {
-                  "main":"{{{SHORTSLIDETITLEVARIABLE}}}"
-               }
-            ]
-         },
-         {
-            "elements":[
-               {
-                  "x":2.178649237472767,
-                  "y":2.151768538561844,
-                  "width":95.86056644880175,
-                  "height":10.758842692809221,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<h2>Doing Manual Title....</h2>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":4.3572984749455,
-                  "y":19.365901220455,
-                  "width":82.788671023965,
-                  "height":51.642403254547,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<pre>testSetLabel\n\n    | codeBlock |\n    codeBlock := self testedClass new.\n    codeBlock label: ''sec123''.\n    self assert: codeBlock hasLabel. \n    self assert: codeBlock label equals: ''sec123''\n</pre>\n"
-                     },
-                     "subContentId":"4f8b5f81-40ee-4bdd-9fa6-935c850f9da0",
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "slideBackgroundSelector":{
-               
-            },
-            "keywords":[
-               {
-                  "main":"Code"
-               }
-            ]
-         },
-         {
-            "elements":[
-               {
-                  "x":30.000680827887,
-                  "y":30.000336213563,
-                  "width":40,
-                  "height":40,
-                  "action":{
-                     "library":"H5P.Link 1.3",
-                     "params":{
-                        "linkWidget":{
-                           "protocol":"http://",
-                           "url":"www.pharo.org"
-                        },
-                        "title":"What a great link"
-                     },
-                     "metadata":{
-                        "contentType":"Link",
-                        "license":"U"
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "slideBackgroundSelector":{
-               
-            },
-            "keywords":[
-               {
-                  "main":"Link"
-               }
-            ]
-         },
-         {{{CREDITSLIDE}}}
-      ],
-      "keywordListEnabled":true,
-      "globalBackgroundSelector":{
-         
-      },
-      "keywordListAlwaysShow":false,
-      "keywordListAutoHide":false,
-      "keywordListOpacity":100
-   },
-   "override":{
-      "activeSurface":false,
-      "hideSummarySlide":false,
-      "summarySlideSolutionButton":true,
-      "summarySlideRetryButton":true,
-      "enablePrintButton":false,
-      "social":{
-         "showFacebookShare":false,
-         "facebookShare":{
-            "url":"@currentpageurl",
-            "quote":"I scored @score out of @maxScore on a task at @currentpageurl."
-         },
-         "showTwitterShare":false,
-         "twitterShare":{
-            "statement":"I scored @score out of @maxScore on a task at @currentpageurl.",
-            "url":"@currentpageurl",
-            "hashtags":"h5p, course"
-         },
-         "showGoogleShare":false,
-         "googleShareUrl":"@currentpageurl"
-      }
-   },
-   "l10n":{
-      "slide":"Slide",
-      "score":"Score",
-      "yourScore":"Your Score",
-      "maxScore":"Max Score",
-      "total":"Total",
-      "totalScore":"Total Score",
-      "showSolutions":"Show solutions",
-      "retry":"Retry",
-      "exportAnswers":"Export text",
-      "hideKeywords":"Hide sidebar navigation menu",
-      "showKeywords":"Show sidebar navigation menu",
-      "fullscreen":"Fullscreen",
-      "exitFullscreen":"Exit fullscreen",
-      "prevSlide":"Previous slide",
-      "nextSlide":"Next slide",
-      "currentSlide":"Current slide",
-      "lastSlide":"Last slide",
-      "solutionModeTitle":"Exit solution mode",
-      "solutionModeText":"Solution Mode",
-      "summaryMultipleTaskText":"Multiple tasks",
-      "scoreMessage":"You achieved:",
-      "shareFacebook":"Share on Facebook",
-      "shareTwitter":"Share on Twitter",
-      "shareGoogle":"Share on Google+",
-      "summary":"Summary",
-      "solutionsButtonTitle":"Show comments",
-      "printTitle":"Print",
-      "printIngress":"How would you like to print this presentation?",
-      "printAllSlides":"Print all slides",
-      "printCurrentSlide":"Print current slide",
-      "noTitle":"No title",
-      "accessibilitySlideNavigationExplanation":"Use left and right arrow to change slide in that direction whenever canvas is selected.",
-      "accessibilityCanvasLabel":"Presentation canvas. Use left and right arrow to move between slides.",
-      "containsNotCompleted":"@slideName contains not completed interaction",
-      "containsCompleted":"@slideName contains completed interaction",
-      "slideCount":"Slide @index of @total",
-      "containsOnlyCorrect":"@slideName only has correct answers",
-      "containsIncorrectAnswers":"@slideName has incorrect answers",
-      "shareResult":"Share Result",
-      "accessibilityTotalScore":"You got @score of @maxScore points in total",
-      "accessibilityEnteredFullscreen":"Entered fullscreen",
-      "accessibilityExitedFullscreen":"Exited fullscreen",
-      "confirmDialogHeader":"Submit your answers",
-      "confirmDialogText":"This will submit your results, do you want to continue?",
-      "confirmDialogConfirmText":"Submit and see results"
-   }
-}'
-]
-
-{ #category : 'working templates with parameters' }
-MicH5PTemplateWriter >> fullTemplateStringParam3 [
-	"with slides and credit variables."
- ^ '{
-   "presentation":{
-      "slides":[
-         {
-            "elements":[
-               {
-                  "x":8.714596949891067,
-                  "y":25.821222462742128,
-                  "width":81.69934640522877,
-                  "height":27.972991001303974,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p><span style=\"font-size:1.5em\">{{{TITLEVARIABLE}}}</span></p>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":86.35110294117648,
-                  "y":71.00836177254085,
-                  "width":13.648910675381265,
-                  "height":26.954343775148796,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-b8lco9r6.png",
-                           "mime":"image/png",
-                           "copyright":{"license":"U"},
-                           "width":256,
-                           "height":256
-                        }
-                     },
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":16.051364365971107,
-                  "y":60.24268289202926,
-                  "width":40.30501089324619,
-                  "height":12.910611231371064,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p>{{{AUTHORVARIABLE}}}</p>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":2.178649237472767,
-                  "y":88.22251008103561,
-                  "width":14.161220043572985,
-                  "height":9.783833332616078,
-                  "action":{
-                     "library":"H5P.Image 1.1",
-                     "params":{
-                        "contentName":"Image",
-                        "file":{
-                           "path":"images/image-FLYhoyME.png",
-                           "mime":"image/png",
-                           "copyright":{
-                              "license":"U"
-                           },
-                           "width":403,
-                           "height":141
-                        }
-                     },
-                     "metadata":{
-                        "contentType":"Image",
-                        "license":"U",
-                        "title":"Untitled Image",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":2.178649237472767,
-                  "y":4.303537077123688,
-                  "width":93.68191721132898,
-                  "height":8.607074154247377,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p>Advanced object-oriented design explained with Pharo</p>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":70.80610021786492,
-                  "y":92.5260471581593,
-                  "width":19.607843137254903,
-                  "height":6.455305615685532,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<p>http://www.pharo.org</p>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ { "name" : "S. Ducasse" }, { "organization" : "Pharo Consortium" } ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "keywords":[
-               {
-                  "main":"{{{SHORTTITLEVARIABLE}}}"
-               }
-            ],
-            "slideBackgroundSelector":{ }
-         },
-         {{{SLIDES}}}
-         ,
-         {{{CREDITSLIDE}}}
-      ],
-      "keywordListEnabled":true,
-      "globalBackgroundSelector":{
-         
-      },
-      "keywordListAlwaysShow":false,
-      "keywordListAutoHide":false,
-      "keywordListOpacity":100
-   },
-   "override":{
-      "activeSurface":false,
-      "hideSummarySlide":false,
-      "summarySlideSolutionButton":true,
-      "summarySlideRetryButton":true,
-      "enablePrintButton":false,
-      "social":{
-         "showFacebookShare":false,
-         "facebookShare":{
-            "url":"@currentpageurl",
-            "quote":"I scored @score out of @maxScore on a task at @currentpageurl."
-         },
-         "showTwitterShare":false,
-         "twitterShare":{
-            "statement":"I scored @score out of @maxScore on a task at @currentpageurl.",
-            "url":"@currentpageurl",
-            "hashtags":"h5p, course"
-         },
-         "showGoogleShare":false,
-         "googleShareUrl":"@currentpageurl"
-      }
-   },
-   "l10n":{
-      "slide":"Slide",
-      "score":"Score",
-      "yourScore":"Your Score",
-      "maxScore":"Max Score",
-      "total":"Total",
-      "totalScore":"Total Score",
-      "showSolutions":"Show solutions",
-      "retry":"Retry",
-      "exportAnswers":"Export text",
-      "hideKeywords":"Hide sidebar navigation menu",
-      "showKeywords":"Show sidebar navigation menu",
-      "fullscreen":"Fullscreen",
-      "exitFullscreen":"Exit fullscreen",
-      "prevSlide":"Previous slide",
-      "nextSlide":"Next slide",
-      "currentSlide":"Current slide",
-      "lastSlide":"Last slide",
-      "solutionModeTitle":"Exit solution mode",
-      "solutionModeText":"Solution Mode",
-      "summaryMultipleTaskText":"Multiple tasks",
-      "scoreMessage":"You achieved:",
-      "shareFacebook":"Share on Facebook",
-      "shareTwitter":"Share on Twitter",
-      "shareGoogle":"Share on Google+",
-      "summary":"Summary",
-      "solutionsButtonTitle":"Show comments",
-      "printTitle":"Print",
-      "printIngress":"How would you like to print this presentation?",
-      "printAllSlides":"Print all slides",
-      "printCurrentSlide":"Print current slide",
-      "noTitle":"No title",
-      "accessibilitySlideNavigationExplanation":"Use left and right arrow to change slide in that direction whenever canvas is selected.",
-      "accessibilityCanvasLabel":"Presentation canvas. Use left and right arrow to move between slides.",
-      "containsNotCompleted":"@slideName contains not completed interaction",
-      "containsCompleted":"@slideName contains completed interaction",
-      "slideCount":"Slide @index of @total",
-      "containsOnlyCorrect":"@slideName only has correct answers",
-      "containsIncorrectAnswers":"@slideName has incorrect answers",
-      "shareResult":"Share Result",
-      "accessibilityTotalScore":"You got @score of @maxScore points in total",
-      "accessibilityEnteredFullscreen":"Entered fullscreen",
-      "accessibilityExitedFullscreen":"Exited fullscreen",
-      "confirmDialogHeader":"Submit your answers",
-      "confirmDialogText":"This will submit your results, do you want to continue?",
-      "confirmDialogConfirmText":"Submit and see results"
-   }
-}'
-]
-
-{ #category : 'working templates with parameters' }
-MicH5PTemplateWriter >> slideTemplate [
-
-	^ '{
-            "elements":[
-               {
-                  "x":6.5359477124183005,
-                  "y":19.365916847056596,
-                  "width":88.037037037037,
-                  "height":73.160071277275,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"{{{SINGLESLIDEBODY}}}"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":2.178649237472767,
-                  "y":2.151768538561844,
-                  "width":95.86056644880175,
-                  "height":17.214148308494753,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<h2>{{{SLIDETITLEVARIABLE}}}</h2>\n" 
-                      },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "slideBackgroundSelector":{ },
-            "keywords":[
-               {
-                  "main":"{{{SHORTSLIDETITLEVARIABLE}}}"
-               }
-            ]
-         }'
-]
-
-{ #category : 'visiting' }
-MicH5PTemplateWriter >> visitCode: aCodeBlock [
-	canvas nextPutAll: '<pre>'.
- 	aCodeBlock body do: [ :each | each = Character cr ifTrue: [ canvas nextPutAll: '\n' ]
-											ifFalse: [ canvas nextPut: each  ] ].
-	canvas nextPutAll: '\n</pre>\n'.
-]
-
-{ #category : 'visiting' }
-MicH5PTemplateWriter >> visitFigure: aFigureBlock [
-	
-
-	canvas nextPutAll:	
-	 '{
-            "x": 22.875816993464053,
-            "y": 25.821222462742128,
-            "width": 61.08050108932463,
-            "height": 51.642444925484256,
-            "action": {
-              "library": "H5P.Image 1.1",
-              "params": {
-                "contentName": "Image",
-                "file": {
-                  "path": "images/image-dejfFHSf.png",
-                  "mime": "image/png",
-                  "copyright": {
-                    "license": "U"
-                  },
-                  "width": 771,
-                  "height": 330
-                }
-              },
-              "subContentId": "9cdd1cde-7ffa-4306-b811-cf1287e7c0ba",
-              "metadata": {
-                "contentType": "Image",
-                "license": "U",
-                "title": "Untitled Image",
-                "authors": [],
-                "changes": []
-              }
-            },
-            "alwaysDisplayComments": false,
-            "backgroundOpacity": 0,
-            "displayAsButton": false,
-            "buttonSize": "big",
-            "goToSlideType": "specified",
-            "invisible": false,
-            "solution": ""
-          }'
-]
-
-{ #category : 'visiting' }
-MicH5PTemplateWriter >> visitOrderedList: anOrderedList [
-
-	canvas nextPutAll: '<ol>\n\t'.
-	super visitOrderedList: anOrderedList.
-	canvas nextPutAll: '\n<\ol>\n'.
-]
-
-{ #category : 'visiting' }
-MicH5PTemplateWriter >> visitUnorderedList: anOrderedList [
-
-	canvas nextPutAll: '<ul>\n\t'.
-	super visitUnorderedList: anOrderedList.
-	canvas nextPutAll: '\n</ul>\n'.
-]
-
-{ #category : 'visiting' }
-MicH5PTemplateWriter >> visitUnorderedListItem: anUnorderedListItem [
-
-	canvas nextPutAll: '<li><span style=\"font-size:1.125em\">'.
-	canvas nextPutAll: anUnorderedListItem text.
-	canvas nextPutAll: '</span></li>\n\t'.
-	
-]
-
-{ #category : 'to debug generation' }
-MicH5PTemplateWriter >> writeContentJSONOnDisk [
-	"self new writeContentJSONOnDisk"
-	
-	
-	 '/Users/ducasse/Workspace/FirstCircle/MyBooks/Bk-Writing/AdvancedOODesign/h5p/pharo-Template-withVariableNames2/content/content.json' asFileReference ensureDelete.
-	 '/Users/ducasse/Workspace/FirstCircle/MyBooks/Bk-Writing/AdvancedOODesign/h5p/pharo-Template-withVariableNames2/content/content.json' asFileReference 
-		writeStreamDo: [ :str | str nextPutAll: self fillTemplateWithVariables  ] 
-]
-
-{ #category : 'actions' }
-MicH5PTemplateWriter >> writeContentJSONOnDisk: aMicDocument [
-	"self new writeContentJSONOnDisk: (Microdown parse: MicH5PTemplateWriterTest new mainSlideInMicrodown, MicH5PTemplateWriterTest new oneSlideWithCodeInMicrodown )"
-	 '/Users/ducasse/Workspace/FirstCircle/MyBooks/Bk-Writing/AdvancedOODesign/h5p/pharo-Template-withVariableNames2/content/content.json' asFileReference ensureDelete.
-	 '/Users/ducasse/Workspace/FirstCircle/MyBooks/Bk-Writing/AdvancedOODesign/h5p/pharo-Template-withVariableNames2/content/content.json' asFileReference 
-		writeStreamDo: [ :str | str nextPutAll: (self fillTemplateWithVariables: aMicDocument children) ] 
-]
diff --git a/src/Microdown-H5P/MicH5PTemplateWriterTest.class.st b/src/Microdown-H5P/MicH5PTemplateWriterTest.class.st
deleted file mode 100644
index c5593583..00000000
--- a/src/Microdown-H5P/MicH5PTemplateWriterTest.class.st
+++ /dev/null
@@ -1,432 +0,0 @@
-Class {
-	#name : 'MicH5PTemplateWriterTest',
-	#superclass : 'TestCase',
-	#category : 'Microdown-H5P',
-	#package : 'Microdown-H5P'
-}
-
-{ #category : 'sample' }
-MicH5PTemplateWriterTest >> mainSlideInMicrodown [
-
-^ '
-{
-    "title":"About Validation",
-    "subtitle":"A pretext to talk about optional actions",
-    "author":"Tintin and Mickey"
-}
-
-'
-]
-
-{ #category : 'sample' }
-MicH5PTemplateWriterTest >> oneSlideWithCodeInMicrodown [
-
-^ '
-
-<!slide|title=Nice code eh!&tag=nh5p
-
-```
-SpTextInputFieldWithValidation >> validateInto: aValidationReport
-	self validate.
-	aValidationReport addAll: validationErrors
-```
-
-
-!>'
-]
-
-{ #category : 'sample' }
-MicH5PTemplateWriterTest >> presentationInMicrodown [
-
-^ self mainSlideInMicrodown , self twoSlidesInMicrodown 
-]
-
-{ #category : 'sample' }
-MicH5PTemplateWriterTest >> slideInMicrodown [
-
-^ '
-<!slide|title=A nice title isn''t&tag=nh5p
-
-- slide 1 bullet 1
-- slide 1 bullet 2
-- slide 1 bullet 3
-!>
-
-
-
-'
-]
-
-{ #category : 'sample' }
-MicH5PTemplateWriterTest >> slideInMicrodownWithCode [
-
-^ '
-<!slide|title=A piece of code&tag=nh5p
-
-```
-testMethod
-	self assert: 4 foo equals: 55
-```
-
-```
-testFoo
-   self assertSpace.
-   self assertSpace2
-   ^ self
-```
-!>
-
-
-
-'
-]
-
-{ #category : 'sample' }
-MicH5PTemplateWriterTest >> slideInMicrodownWithSimpleCode [
-
-^ '
-<!slide|title=A piece of code&tag=nh5p
-
-```
-testMethod
-	self assert: 4 foo equals: 55
-```
-!>
-
-
-
-'
-]
-
-{ #category : 'sample' }
-MicH5PTemplateWriterTest >> slideWithFigure [
-
-^ '
-<!slide|title=A nice title isn''t&tag=nh5p
-
-![A nice figure](file:/figures/foo.png)
-!>
-
-'
-]
-
-{ #category : 'tests' }
-MicH5PTemplateWriterTest >> testNSlide [
-
-	| doc h5p |
-	doc := Microdown parse: self twoSlidesInMicrodown.
-	h5p := MicH5PTemplateWriter new.
-	h5p fillUpSlides: doc children.
-	self assert: h5p contents equals: '{
-            "elements":[
-               {
-                  "x":6.5359477124183005,
-                  "y":19.365916847056596,
-                  "width":88.037037037037,
-                  "height":73.160071277275,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<ul>\n\t<li><span style=\"font-size:1.125em\">slide 1 bullet 1</span></li>\n\t<li><span style=\"font-size:1.125em\">slide 1 bullet 2</span></li>\n\t<li><span style=\"font-size:1.125em\">slide 1 bullet 3</span></li>\n\t\n</ul>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":2.178649237472767,
-                  "y":2.151768538561844,
-                  "width":95.86056644880175,
-                  "height":17.214148308494753,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<h2>A nice title isn''t</h2>\n" 
-                      },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "slideBackgroundSelector":{ },
-            "keywords":[
-               {
-                  "main":"A nice title isn''t"
-               }
-            ]
-         },
-{
-            "elements":[
-               {
-                  "x":6.5359477124183005,
-                  "y":19.365916847056596,
-                  "width":88.037037037037,
-                  "height":73.160071277275,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<ul>\n\t<li><span style=\"font-size:1.125em\">slide 2 bullet 1</span></li>\n\t<li><span style=\"font-size:1.125em\">bullet 2</span></li>\n\t<li><span style=\"font-size:1.125em\">bullet 2</span></li>\n\t\n</ul>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":2.178649237472767,
-                  "y":2.151768538561844,
-                  "width":95.86056644880175,
-                  "height":17.214148308494753,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<h2>Slide3 blah</h2>\n" 
-                      },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "slideBackgroundSelector":{ },
-            "keywords":[
-               {
-                  "main":"Slide3 blah"
-               }
-            ]
-         }' 
-]
-
-{ #category : 'tests' }
-MicH5PTemplateWriterTest >> testOneSlide [
-
-	| doc h5p |
-	doc := Microdown parse: self slideInMicrodown.
-	h5p := MicH5PTemplateWriter new fillUpOneSlide: doc children first.
-	self assert: h5p equals: '{
-            "elements":[
-               {
-                  "x":6.5359477124183005,
-                  "y":19.365916847056596,
-                  "width":88.037037037037,
-                  "height":73.160071277275,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<ul>\n\t<li><span style=\"font-size:1.125em\">slide 1 bullet 1</span></li>\n\t<li><span style=\"font-size:1.125em\">slide 1 bullet 2</span></li>\n\t<li><span style=\"font-size:1.125em\">slide 1 bullet 3</span></li>\n\t\n</ul>\n"
-                     },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":2.178649237472767,
-                  "y":2.151768538561844,
-                  "width":95.86056644880175,
-                  "height":17.214148308494753,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<h2>A nice title isn''t</h2>\n" 
-                      },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "slideBackgroundSelector":{ },
-            "keywords":[
-               {
-                  "main":"A nice title isn''t"
-               }
-            ]
-         }' 
-]
-
-{ #category : 'low level visitor tests' }
-MicH5PTemplateWriterTest >> testOneSlideBodyWithBullets [
-
-	| doc h5p |
-	doc := Microdown parse: self slideInMicrodown.
-	h5p := MicH5PTemplateWriter new.
-	h5p visit: doc children first.
-	self assert: h5p contents equals: '<ul>\n\t<li><span style=\"font-size:1.125em\">slide 1 bullet 1</span></li>\n\t<li><span style=\"font-size:1.125em\">slide 1 bullet 2</span></li>\n\t<li><span style=\"font-size:1.125em\">slide 1 bullet 3</span></li>\n\t\n</ul>\n' 
-]
-
-{ #category : 'low level visitor tests' }
-MicH5PTemplateWriterTest >> testOneSlideBodyWithCode [
-
-	| doc h5p |
-	doc := Microdown parse: self slideInMicrodownWithCode.
-	h5p := MicH5PTemplateWriter new.
-	h5p visit: doc children first.
-	self assert: h5p contents equals: '<pre>testMethod\n self assert: 4 foo equals: 55\n</pre>\n<pre>testFoo\n   self assertSpace.\n   self assertSpace2\n   ^ self\n</pre>\n' 
-]
-
-{ #category : 'low level visitor tests' }
-MicH5PTemplateWriterTest >> testOneSlideBodyWithSimpleCode [
-
-	| doc h5p |
-	doc := Microdown parse: self slideInMicrodownWithSimpleCode.
-	h5p := MicH5PTemplateWriter new.
-	h5p visit: doc children first.
-	self assert: h5p contents equals: '<pre>testMethod\n self assert: 4 foo equals: 55\n</pre>\n'
-]
-
-{ #category : 'tests' }
-MicH5PTemplateWriterTest >> testOneSlideWithOneFigure [
-
-	| doc h5p |
-	doc := Microdown parse: self slideWithFigure.
-	h5p := MicH5PTemplateWriter new.
-	h5p visit: doc children first.
-	self assert: h5p contents equals: '{
-            "x": 22.875816993464053,
-            "y": 25.821222462742128,
-            "width": 61.08050108932463,
-            "height": 51.642444925484256,
-            "action": {
-              "library": "H5P.Image 1.1",
-              "params": {
-                "contentName": "Image",
-                "file": {
-                  "path": "images/image-dejfFHSf.png",
-                  "mime": "image/png",
-                  "copyright": {
-                    "license": "U"
-                  },
-                  "width": 771,
-                  "height": 330
-                }
-              },
-              "subContentId": "9cdd1cde-7ffa-4306-b811-cf1287e7c0ba",
-              "metadata": {
-                "contentType": "Image",
-                "license": "U",
-                "title": "Untitled Image",
-                "authors": [],
-                "changes": []
-              }
-            },
-            "alwaysDisplayComments": false,
-            "backgroundOpacity": 0,
-            "displayAsButton": false,
-            "buttonSize": "big",
-            "goToSlideType": "specified",
-            "invisible": false,
-            "solution": ""
-          }'
-	
-	
-]
-
-{ #category : 'tests' }
-MicH5PTemplateWriterTest >> testSlides [
-
-	| doc |
-	doc := Microdown parse: 
-
-'
-{
-    "title":"About Validation",
-    "subtitle":"A pretext to talk about optional actions",
-    "author":""
-}
-
-<!slide|title=Slide2 Bli&tag=nh5p
-
-- slide 2 bullet 1
-- slide 2 bullet 2
-- slide 2 bullet 3
-!>.
-
-<!slide|title=Slide3 blah&tag=nh5p
-
-- slide 3 bullet 1
-- bullet 2
-- bullet 3
-!>'
-]
-
-{ #category : 'sample' }
-MicH5PTemplateWriterTest >> twoSlidesInMicrodown [
-
-^ self slideInMicrodown, '
-
-<!slide|title=Slide3 blah&tag=nh5p
-
-- slide 2 bullet 1
-- bullet 2
-- bullet 2
-!>'
-]
diff --git a/src/Microdown-H5P/MicJPEGH5PTemplateWriter.class.st b/src/Microdown-H5P/MicJPEGH5PTemplateWriter.class.st
deleted file mode 100644
index 48c3864e..00000000
--- a/src/Microdown-H5P/MicJPEGH5PTemplateWriter.class.st
+++ /dev/null
@@ -1,219 +0,0 @@
-"
-MicJPEGH5PTemplateWriter new 
-	writeContentJSONOnDisk: (Microdown parse: MicH5PTemplateWriterTest new mainSlideInMicrodown, MicH5PTemplateWriterTest new oneSlideWithCodeInMicrodown )
-"
-Class {
-	#name : 'MicJPEGH5PTemplateWriter',
-	#superclass : 'MicH5PTemplateWriter',
-	#category : 'Microdown-H5P',
-	#package : 'Microdown-H5P'
-}
-
-{ #category : 'as yet unclassified' }
-MicJPEGH5PTemplateWriter >> presentationString [
-
-	^ '{
-  "presentation": {
-    "slides": [
-      {
-        "elements": [
-          {
-            "x": 0,
-            "y": 0,
-            "width": 100,
-            "height": 100,
-            "action": {
-              "library": "H5P.Image 1.1",
-              "params": {
-                "contentName": "Image",
-                "file": {
-                  "path": "images/image-OE0PKFVx.png",
-                  "mime": "image/png",
-                  "copyright": {
-                    "license": "U"
-                  },
-                  "width": 310,
-                  "height": 330
-                }
-              },
-              "subContentId": "5fb6da95-df20-4df0-9de2-aa006c01c08e",
-              "metadata": {
-                "contentType": "Image",
-                "license": "U",
-                "title": "Untitled Image",
-                "authors": [],
-                "changes": []
-              }
-            },
-            "alwaysDisplayComments": false,
-            "backgroundOpacity": 0,
-            "displayAsButton": false,
-            "buttonSize": "big",
-            "goToSlideType": "specified",
-            "invisible": false,
-            "solution": ""
-          }
-        ],
-        "slideBackgroundSelector": null,
-        "keywords": [
-          {
-            "main": "Nice code eh!"
-          }
-        ]
-      }
-    ],
-    "keywordListEnabled": true,
-    "globalBackgroundSelector": null,
-    "keywordListAlwaysShow": false,
-    "keywordListAutoHide": false,
-    "keywordListOpacity": 100
-  },
-  "override": {
-    "activeSurface": false,
-    "hideSummarySlide": false,
-    "summarySlideSolutionButton": true,
-    "summarySlideRetryButton": true,
-    "enablePrintButton": false,
-    "social": {
-      "showFacebookShare": false,
-      "facebookShare": {
-        "url": "@currentpageurl",
-        "quote": "I scored @score out of @maxScore on a task at @currentpageurl."
-      },
-      "showTwitterShare": false,
-      "twitterShare": {
-        "statement": "I scored @score out of @maxScore on a task at @currentpageurl.",
-        "url": "@currentpageurl",
-        "hashtags": "h5p, course"
-      },
-      "showGoogleShare": false,
-      "googleShareUrl": "@currentpageurl"
-    }
-  },
-  "l10n": {
-    "slide": "Slide",
-    "score": "Score",
-    "yourScore": "Your Score",
-    "maxScore": "Max Score",
-    "total": "Total",
-    "totalScore": "Total Score",
-    "showSolutions": "Show solutions",
-    "retry": "Retry",
-    "exportAnswers": "Export text",
-    "hideKeywords": "Hide sidebar navigation menu",
-    "showKeywords": "Show sidebar navigation menu",
-    "fullscreen": "Fullscreen",
-    "exitFullscreen": "Exit fullscreen",
-    "prevSlide": "Previous slide",
-    "nextSlide": "Next slide",
-    "currentSlide": "Current slide",
-    "lastSlide": "Last slide",
-    "solutionModeTitle": "Exit solution mode",
-    "solutionModeText": "Solution Mode",
-    "summaryMultipleTaskText": "Multiple tasks",
-    "scoreMessage": "You achieved:",
-    "shareFacebook": "Share on Facebook",
-    "shareTwitter": "Share on Twitter",
-    "shareGoogle": "Share on Google+",
-    "summary": "Summary",
-    "solutionsButtonTitle": "Show comments",
-    "printTitle": "Print",
-    "printIngress": "How would you like to print this presentation?",
-    "printAllSlides": "Print all slides",
-    "printCurrentSlide": "Print current slide",
-    "noTitle": "No title",
-    "accessibilitySlideNavigationExplanation": "Use left and right arrow to change slide in that direction whenever canvas is selected.",
-    "accessibilityCanvasLabel": "Presentation canvas. Use left and right arrow to move between slides.",
-    "containsNotCompleted": "@slideName contains not completed interaction",
-    "containsCompleted": "@slideName contains completed interaction",
-    "slideCount": "Slide @index of @total",
-    "containsOnlyCorrect": "@slideName only has correct answers",
-    "containsIncorrectAnswers": "@slideName has incorrect answers",
-    "shareResult": "Share Result",
-    "accessibilityTotalScore": "You got @score of @maxScore points in total",
-    "accessibilityEnteredFullscreen": "Entered fullscreen",
-    "accessibilityExitedFullscreen": "Exited fullscreen",
-    "confirmDialogHeader": "Submit your answers",
-    "confirmDialogText": "This will submit your results, do you want to continue?",
-    "confirmDialogConfirmText": "Submit and see results"
-  }
-}
-'
-]
-
-{ #category : 'working templates with parameters' }
-MicJPEGH5PTemplateWriter >> slideTemplate [
-	"in this version we only embed jpeg"
-	
-	^ '{
-            "elements":[
-               {
-                  "x":1,
-                  "y":1,
-                  "width":99,
-                  "height":99,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params": {
-                			"contentName": "Image",
-                			"file": {
-                  			"path": "images/image-dejfFHSf.png",
-                  			"mime": "image/png",
-                  			"copyright": {
-                    		"license": "U"
-                  },
-                  "width": 771,
-                  "height": 330
-                }
-              },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               },
-               {
-                  "x":2.178649237472767,
-                  "y":2.151768538561844,
-                  "width":95.86056644880175,
-                  "height":17.214148308494753,
-                  "action":{
-                     "library":"H5P.AdvancedText 1.1",
-                     "params":{
-                        "text":"<h2>{{{SLIDETITLEVARIABLE}}}</h2>\n" 
-                      },
-                     "metadata":{
-                        "contentType":"Text",
-                        "license":"U",
-                        "title":"Untitled Text",
-                        "authors":[ ],
-                        "changes":[ ]
-                     }
-                  },
-                  "alwaysDisplayComments":false,
-                  "backgroundOpacity":0,
-                  "displayAsButton":false,
-                  "buttonSize":"big",
-                  "goToSlideType":"specified",
-                  "invisible":false,
-                  "solution":""
-               }
-            ],
-            "slideBackgroundSelector":{ },
-            "keywords":[
-               {
-                  "main":"{{{SHORTSLIDETITLEVARIABLE}}}"
-               }
-            ]
-         }'
-]
diff --git a/src/Microdown-H5P/MicPictureBasedWriter.class.st b/src/Microdown-H5P/MicPictureBasedWriter.class.st
deleted file mode 100644
index 5bfb0623..00000000
--- a/src/Microdown-H5P/MicPictureBasedWriter.class.st
+++ /dev/null
@@ -1,348 +0,0 @@
-"
-The idea of a picture based writer is that 	we take a pdf + the list of H5P templates and we 
-- generate a list of jpeg 
-- and an H5P file representing the corresponding slides. 
-
-Right now the creation of the jpeg and the zip of the folder to create the H5P files are done by hand. 
-
-
-- placeOfTemplateFolder is the location of all the JS files.
-- sourceSlideImagesFolder is the place where all the jpeg files are.
-
-
-
-The process is the following:
-
-Once we have generated from the PDF the JPEG using
-
-```
-pdftoppm -jpeg AboutBasket.pdf Tests-01
-
-pdftoppm -jpeg AboutBasket.pdf -scale-to 1000  Basket
-```
-
-- the folder Target contains /content/images will contain all the JPEG
-- then we invoke the method `go` as follow
-
-```
-self new
-		placeOfTemplateFolder: '/Users/ducasse/Workspace/FirstCircle/MyBooks/Bk-Writing/AdvancedOODesign/h5p/Source-Template/';
-		sourceSlideImagesFolder: '/Users/ducasse/Workspace/FirstCircle/MyBooks/Bk-Writing/AdvancedOODesign/h5p/AboutBasket-images/';
-		go
-		
-```
-- and manually the script
-
-```
-cd Target
-zip -r -D -X ../Generated.h5p *
-cd ../
-```
-
-
-All the manual parts should be done automatically (this is the next step).
-
-```
-MicPictureBasedWriter new
-	sourcePDF: '/Users/ducasse/Workspace/FirstCircle/MyBooks/Bk-Writing/AdvancedOODesign/h5p/Essence-04-Self.pdf';
-	treatSourcePDF;
-	go;
-	compressH5P.
-```
-
-
-
-
-
-
-"
-Class {
-	#name : 'MicPictureBasedWriter',
-	#superclass : 'Object',
-	#instVars : [
-		'placeOfTemplateFolder',
-		'sourceSlideImagesFolder',
-		'slideNames',
-		'sourcePDF'
-	],
-	#category : 'Microdown-H5P',
-	#package : 'Microdown-H5P'
-}
-
-{ #category : 'examples' }
-MicPictureBasedWriter class >> example [
-	<script>
-	
-	self new
-		placeOfTemplateFolder: '/Users/ducasse/Workspace/FirstCircle/MyBooks/Bk-Writing/AdvancedOODesign/h5p/Source-Template/';
-		sourceSlideImagesFolder: '/Users/ducasse/Workspace/FirstCircle/MyBooks/Bk-Writing/AdvancedOODesign/h5p/AboutBasket-images/';
-		go
-		
-]
-
-{ #category : 'operations' }
-MicPictureBasedWriter >> compressH5P [
-	"the following expression works on the parent folder of Target. It produces a working H5P file archive."
-	"cd Target
-zip -r -D -X ../Generated.h5p *
-cd ../"
-	"-X  means no extra file attributes 
-	-D no Dir entries
-	-r recursively"
-
-	
-	OSSUnixSubprocess new	
-		shellCommand: '/usr/bin/zip -r -D -X ', sourcePDF withoutExtension fullName, '.h5p *';
-		workingDirectory: self target fullName;
-		runAndWaitOnExitDo: [ :process :outString :errString |
-			process isSuccess
-				ifTrue: [ Transcript show: 'Command exited correctly with output: ', outString. ]
-				ifFalse: [
-					Transcript show: 'Command exit with error status: ', process exitStatusInterpreter printString; cr.
-					Transcript show: 'Stderr contents: ', errString.
-				]
-		]
-	
-]
-
-{ #category : 'operations' }
-MicPictureBasedWriter >> compressH5P2 [
-	"the following expression works on the parent folder of Target. It produces a working H5P file archive."
-	"cd Target
-zip -r -D -X ../Generated.h5p *
-cd ../"
-	"-X  means no extra file attributes 
-	-D no Dir entries
-	-r recursively"
-
-	
-	OSSUnixSubprocess new	
-		shellCommand: '/usr/bin/zip -r -D -X ', sourcePDF withoutExtension fullName, '.h5p *';
-		workingDirectory: self target fullName;
-		runAndWaitOnExitDo: [ :process :outString :errString |
-			process isSuccess
-				ifTrue: [ Transcript show: 'Command exited correctly with output: ', outString. ]
-				ifFalse: [
-					Transcript show: 'Command exit with error status: ', process exitStatusInterpreter printString; cr.
-					Transcript show: 'Stderr contents: ', errString.
-				]
-		]
-	
-]
-
-{ #category : 'operations' }
-MicPictureBasedWriter >> compressH5POld [
-	"the following expression works on the parent folder of Target. It produces a working H5P file archive."
-	"cd Target
-zip -r -D -X ../Generated.h5p *
-cd ../"
-	"-X  means no extra file attributes 
-	-D no Dir entries
-	-r recursively"
-
-"the star is not correct because this is a shell and not the command behavior to expand"
-	OSSUnixSubprocess new	
-		command: '/usr/bin/zip';
-		arguments: {'-r' . '-D'. '-X'. sourcePDF withoutExtension fullName, '.h5p' . '*' };
-		workingDirectory: self target fullName;
-		runAndWaitOnExitDo: [ :process :outString :errString |
-			process isSuccess
-				ifTrue: [ Transcript show: 'Command exited correctly with output: ', outString. ]
-				ifFalse: [
-					Transcript show: 'Command exit with error status: ', process exitStatusInterpreter printString; cr.
-					Transcript show: 'Stderr contents: ', errString.
-				]
-		]
-	
-]
-
-{ #category : 'accessing' }
-MicPictureBasedWriter >> contentJSON [
-	"I point to the place in the source where the content.json should be located."
-	
-	^ (self target / 'content' / 'content.json') asFileReference
-]
-
-{ #category : 'operations' }
-MicPictureBasedWriter >> copyImagesInSource [
-
-	(self target / 'content' / 'images/') ensureDeleteAll.
-	
-	self sourceSlideImagesFolder copyAllTo: self target / 'content' / 'images/'
-]
-
-{ #category : 'operations' }
-MicPictureBasedWriter >> generateContent [
-
-	self contentJSON ensureDelete.
-	self contentJSON 
-		writeStreamDo: [ :str | str nextPutAll: (self presentationStringForCollection: slideNames sorted )]
-]
-
-{ #category : 'operations' }
-MicPictureBasedWriter >> go [
-	
-	"copy all the template to the target"
-	self installSource.
-	
-	self splitPDF.
-	
-	"Copy the image from the source to the target"
-	self copyImagesInSource.
-	
-	slideNames := ((self sourceSlideImagesFolder children select: [:each | #('jpeg' 'jpg') includes: each extension]) collect: [:each | each basename]) sorted.
-	self generateContent.
-	
-	self compressH5P
-]
-
-{ #category : 'operations' }
-MicPictureBasedWriter >> installSource [
-
-	self target ensureDeleteAll.
-	self placeOfTemplateFolder copyAllTo: self target
-]
-
-{ #category : 'accessing' }
-MicPictureBasedWriter >> placeOfTemplateFolder [
-
-	^ placeOfTemplateFolder ifNil: [ 
-		placeOfTemplateFolder := '/Users/ducasse/Workspace/FirstCircle/MyBooks/Bk-Writing/AdvancedOODesign/h5p/Source-Template/' asFileReference ]
-]
-
-{ #category : 'accessing' }
-MicPictureBasedWriter >> placeOfTemplateFolder: aString [
-
-	placeOfTemplateFolder := aString asFileReference 
-]
-
-{ #category : 'no template' }
-MicPictureBasedWriter >> presentationRawString [
-	"STONJSON fromString: self new presentationRawString"
-	^ '{"presentation":{"slides":[{"elements":[{"x":0,"y":0,"width":99.99999999999999,"height":100,"action":{"library":"H5P.Image 1.1","params":{"contentName":"Image","file":{"path":"images/image-OE0PKFVx.png","mime":"image/png","copyright":{"license":"U"},"width":310,"height":330}},"subContentId":"5fb6da95-df20-4df0-9de2-aa006c01c08e","metadata":{"contentType":"Image","license":"U","title":"Untitled Image","authors":[],"changes":[]}},"alwaysDisplayComments":false,"backgroundOpacity":0,"displayAsButton":false,"buttonSize":"big","goToSlideType":"specified","invisible":false,"solution":""}],"slideBackgroundSelector":{},"keywords":[{"main":"Nice code eh!"}]}],"keywordListEnabled":true,"globalBackgroundSelector":{},"keywordListAlwaysShow":false,"keywordListAutoHide":false,"keywordListOpacity":100},"override":{"activeSurface":false,"hideSummarySlide":false,"summarySlideSolutionButton":true,"summarySlideRetryButton":true,"enablePrintButton":false,"social":{"showFacebookShare":false,"facebookShare":{"url":"@currentpageurl","quote":"I scored @score out of @maxScore on a task at @currentpageurl."},"showTwitterShare":false,"twitterShare":{"statement":"I scored @score out of @maxScore on a task at @currentpageurl.","url":"@currentpageurl","hashtags":"h5p, course"},"showGoogleShare":false,"googleShareUrl":"@currentpageurl"}},"l10n":{"slide":"Slide","score":"Score","yourScore":"Your Score","maxScore":"Max Score","total":"Total","totalScore":"Total Score","showSolutions":"Show solutions","retry":"Retry","exportAnswers":"Export text","hideKeywords":"Hide sidebar navigation menu","showKeywords":"Show sidebar navigation menu","fullscreen":"Fullscreen","exitFullscreen":"Exit fullscreen","prevSlide":"Previous slide","nextSlide":"Next slide","currentSlide":"Current slide","lastSlide":"Last slide","solutionModeTitle":"Exit solution mode","solutionModeText":"Solution Mode","summaryMultipleTaskText":"Multiple tasks","scoreMessage":"You achieved:","shareFacebook":"Share on Facebook","shareTwitter":"Share on Twitter","shareGoogle":"Share on Google+","summary":"Summary","solutionsButtonTitle":"Show comments","printTitle":"Print","printIngress":"How would you like to print this presentation?","printAllSlides":"Print all slides","printCurrentSlide":"Print current slide","noTitle":"No title","accessibilitySlideNavigationExplanation":"Use left and right arrow to change slide in that direction whenever canvas is selected.","accessibilityCanvasLabel":"Presentation canvas. Use left and right arrow to move between slides.","containsNotCompleted":"@slideName contains not completed interaction","containsCompleted":"@slideName contains completed interaction","slideCount":"Slide @index of @total","containsOnlyCorrect":"@slideName only has correct answers","containsIncorrectAnswers":"@slideName has incorrect answers","shareResult":"Share Result","accessibilityTotalScore":"You got @score of @maxScore points in total","accessibilityEnteredFullscreen":"Entered fullscreen","accessibilityExitedFullscreen":"Exited fullscreen","confirmDialogHeader":"Submit your answers","confirmDialogText":"This will submit your results, do you want to continue?","confirmDialogConfirmText":"Submit and see results"}}'
-]
-
-{ #category : 'writing' }
-MicPictureBasedWriter >> presentationString2 [
-	"STONJSON fromString: self new presentationString2"
-	
-	^ '{"presentation":{"slides":[', (self slideStringFor: 'foo.png'), '],"keywordListEnabled":true,"globalBackgroundSelector":{},"keywordListAlwaysShow":false,"keywordListAutoHide":false,"keywordListOpacity":100},"override":{"activeSurface":false,"hideSummarySlide":false,"summarySlideSolutionButton":true,"summarySlideRetryButton":true,"enablePrintButton":false,"social":{"showFacebookShare":false,"facebookShare":{"url":"@currentpageurl","quote":"I scored @score out of @maxScore on a task at @currentpageurl."},"showTwitterShare":false,"twitterShare":{"statement":"I scored @score out of @maxScore on a task at @currentpageurl.","url":"@currentpageurl","hashtags":"h5p, course"},"showGoogleShare":false,"googleShareUrl":"@currentpageurl"}},"l10n":{"slide":"Slide","score":"Score","yourScore":"Your Score","maxScore":"Max Score","total":"Total","totalScore":"Total Score","showSolutions":"Show solutions","retry":"Retry","exportAnswers":"Export text","hideKeywords":"Hide sidebar navigation menu","showKeywords":"Show sidebar navigation menu","fullscreen":"Fullscreen","exitFullscreen":"Exit fullscreen","prevSlide":"Previous slide","nextSlide":"Next slide","currentSlide":"Current slide","lastSlide":"Last slide","solutionModeTitle":"Exit solution mode","solutionModeText":"Solution Mode","summaryMultipleTaskText":"Multiple tasks","scoreMessage":"You achieved:","shareFacebook":"Share on Facebook","shareTwitter":"Share on Twitter","shareGoogle":"Share on Google+","summary":"Summary","solutionsButtonTitle":"Show comments","printTitle":"Print","printIngress":"How would you like to print this presentation?","printAllSlides":"Print all slides","printCurrentSlide":"Print current slide","noTitle":"No title","accessibilitySlideNavigationExplanation":"Use left and right arrow to change slide in that direction whenever canvas is selected.","accessibilityCanvasLabel":"Presentation canvas. Use left and right arrow to move between slides.","containsNotCompleted":"@slideName contains not completed interaction","containsCompleted":"@slideName contains completed interaction","slideCount":"Slide @index of @total","containsOnlyCorrect":"@slideName only has correct answers","containsIncorrectAnswers":"@slideName has incorrect answers","shareResult":"Share Result","accessibilityTotalScore":"You got @score of @maxScore points in total","accessibilityEnteredFullscreen":"Entered fullscreen","accessibilityExitedFullscreen":"Exited fullscreen","confirmDialogHeader":"Submit your answers","confirmDialogText":"This will submit your results, do you want to continue?","confirmDialogConfirmText":"Submit and see results"}}'
-]
-
-{ #category : 'writing' }
-MicPictureBasedWriter >> presentationString3 [
-	"STONJSON fromString: self new presentationString3"
-	
-	^ '{"presentation":{"slides":[', (self slideStringFor: '0001.jpg'), ',' , (self slideStringFor: 'foo.png'),  '],"keywordListEnabled":true,"globalBackgroundSelector":{},"keywordListAlwaysShow":false,"keywordListAutoHide":false,"keywordListOpacity":100},"override":{"activeSurface":false,"hideSummarySlide":false,"summarySlideSolutionButton":true,"summarySlideRetryButton":true,"enablePrintButton":false,"social":{"showFacebookShare":false,"facebookShare":{"url":"@currentpageurl","quote":"I scored @score out of @maxScore on a task at @currentpageurl."},"showTwitterShare":false,"twitterShare":{"statement":"I scored @score out of @maxScore on a task at @currentpageurl.","url":"@currentpageurl","hashtags":"h5p, course"},"showGoogleShare":false,"googleShareUrl":"@currentpageurl"}},"l10n":{"slide":"Slide","score":"Score","yourScore":"Your Score","maxScore":"Max Score","total":"Total","totalScore":"Total Score","showSolutions":"Show solutions","retry":"Retry","exportAnswers":"Export text","hideKeywords":"Hide sidebar navigation menu","showKeywords":"Show sidebar navigation menu","fullscreen":"Fullscreen","exitFullscreen":"Exit fullscreen","prevSlide":"Previous slide","nextSlide":"Next slide","currentSlide":"Current slide","lastSlide":"Last slide","solutionModeTitle":"Exit solution mode","solutionModeText":"Solution Mode","summaryMultipleTaskText":"Multiple tasks","scoreMessage":"You achieved:","shareFacebook":"Share on Facebook","shareTwitter":"Share on Twitter","shareGoogle":"Share on Google+","summary":"Summary","solutionsButtonTitle":"Show comments","printTitle":"Print","printIngress":"How would you like to print this presentation?","printAllSlides":"Print all slides","printCurrentSlide":"Print current slide","noTitle":"No title","accessibilitySlideNavigationExplanation":"Use left and right arrow to change slide in that direction whenever canvas is selected.","accessibilityCanvasLabel":"Presentation canvas. Use left and right arrow to move between slides.","containsNotCompleted":"@slideName contains not completed interaction","containsCompleted":"@slideName contains completed interaction","slideCount":"Slide @index of @total","containsOnlyCorrect":"@slideName only has correct answers","containsIncorrectAnswers":"@slideName has incorrect answers","shareResult":"Share Result","accessibilityTotalScore":"You got @score of @maxScore points in total","accessibilityEnteredFullscreen":"Entered fullscreen","accessibilityExitedFullscreen":"Exited fullscreen","confirmDialogHeader":"Submit your answers","confirmDialogText":"This will submit your results, do you want to continue?","confirmDialogConfirmText":"Submit and see results"}}'
-]
-
-{ #category : 'writing' }
-MicPictureBasedWriter >> presentationString4 [
-	"STONJSON fromString: self new presentationString4"
-	
-	^ '{"presentation":{"slides":[', (self slidesStringForCollection: #('0001.jpg' 'foo.png' '0001.jpg')),  '],"keywordListEnabled":true,"globalBackgroundSelector":{},"keywordListAlwaysShow":false,"keywordListAutoHide":false,"keywordListOpacity":100},"override":{"activeSurface":false,"hideSummarySlide":false,"summarySlideSolutionButton":true,"summarySlideRetryButton":true,"enablePrintButton":false,"social":{"showFacebookShare":false,"facebookShare":{"url":"@currentpageurl","quote":"I scored @score out of @maxScore on a task at @currentpageurl."},"showTwitterShare":false,"twitterShare":{"statement":"I scored @score out of @maxScore on a task at @currentpageurl.","url":"@currentpageurl","hashtags":"h5p, course"},"showGoogleShare":false,"googleShareUrl":"@currentpageurl"}},"l10n":{"slide":"Slide","score":"Score","yourScore":"Your Score","maxScore":"Max Score","total":"Total","totalScore":"Total Score","showSolutions":"Show solutions","retry":"Retry","exportAnswers":"Export text","hideKeywords":"Hide sidebar navigation menu","showKeywords":"Show sidebar navigation menu","fullscreen":"Fullscreen","exitFullscreen":"Exit fullscreen","prevSlide":"Previous slide","nextSlide":"Next slide","currentSlide":"Current slide","lastSlide":"Last slide","solutionModeTitle":"Exit solution mode","solutionModeText":"Solution Mode","summaryMultipleTaskText":"Multiple tasks","scoreMessage":"You achieved:","shareFacebook":"Share on Facebook","shareTwitter":"Share on Twitter","shareGoogle":"Share on Google+","summary":"Summary","solutionsButtonTitle":"Show comments","printTitle":"Print","printIngress":"How would you like to print this presentation?","printAllSlides":"Print all slides","printCurrentSlide":"Print current slide","noTitle":"No title","accessibilitySlideNavigationExplanation":"Use left and right arrow to change slide in that direction whenever canvas is selected.","accessibilityCanvasLabel":"Presentation canvas. Use left and right arrow to move between slides.","containsNotCompleted":"@slideName contains not completed interaction","containsCompleted":"@slideName contains completed interaction","slideCount":"Slide @index of @total","containsOnlyCorrect":"@slideName only has correct answers","containsIncorrectAnswers":"@slideName has incorrect answers","shareResult":"Share Result","accessibilityTotalScore":"You got @score of @maxScore points in total","accessibilityEnteredFullscreen":"Entered fullscreen","accessibilityExitedFullscreen":"Exited fullscreen","confirmDialogHeader":"Submit your answers","confirmDialogText":"This will submit your results, do you want to continue?","confirmDialogConfirmText":"Submit and see results"}}'
-]
-
-{ #category : 'writing' }
-MicPictureBasedWriter >> presentationStringForCollection: aCol [ 
-	"STONJSON fromString: self new presentationString4"
-	
-	^ '{"presentation":{"slides":[', (self slidesStringForCollection: aCol),  '],"keywordListEnabled":true,"globalBackgroundSelector":{},"keywordListAlwaysShow":false,"keywordListAutoHide":false,"keywordListOpacity":100},"override":{"activeSurface":false,"hideSummarySlide":false,"summarySlideSolutionButton":true,"summarySlideRetryButton":true,"enablePrintButton":false,"social":{"showFacebookShare":false,"facebookShare":{"url":"@currentpageurl","quote":"I scored @score out of @maxScore on a task at @currentpageurl."},"showTwitterShare":false,"twitterShare":{"statement":"I scored @score out of @maxScore on a task at @currentpageurl.","url":"@currentpageurl","hashtags":"h5p, course"},"showGoogleShare":false,"googleShareUrl":"@currentpageurl"}},"l10n":{"slide":"Slide","score":"Score","yourScore":"Your Score","maxScore":"Max Score","total":"Total","totalScore":"Total Score","showSolutions":"Show solutions","retry":"Retry","exportAnswers":"Export text","hideKeywords":"Hide sidebar navigation menu","showKeywords":"Show sidebar navigation menu","fullscreen":"Fullscreen","exitFullscreen":"Exit fullscreen","prevSlide":"Previous slide","nextSlide":"Next slide","currentSlide":"Current slide","lastSlide":"Last slide","solutionModeTitle":"Exit solution mode","solutionModeText":"Solution Mode","summaryMultipleTaskText":"Multiple tasks","scoreMessage":"You achieved:","shareFacebook":"Share on Facebook","shareTwitter":"Share on Twitter","shareGoogle":"Share on Google+","summary":"Summary","solutionsButtonTitle":"Show comments","printTitle":"Print","printIngress":"How would you like to print this presentation?","printAllSlides":"Print all slides","printCurrentSlide":"Print current slide","noTitle":"No title","accessibilitySlideNavigationExplanation":"Use left and right arrow to change slide in that direction whenever canvas is selected.","accessibilityCanvasLabel":"Presentation canvas. Use left and right arrow to move between slides.","containsNotCompleted":"@slideName contains not completed interaction","containsCompleted":"@slideName contains completed interaction","slideCount":"Slide @index of @total","containsOnlyCorrect":"@slideName only has correct answers","containsIncorrectAnswers":"@slideName has incorrect answers","shareResult":"Share Result","accessibilityTotalScore":"You got @score of @maxScore points in total","accessibilityEnteredFullscreen":"Entered fullscreen","accessibilityExitedFullscreen":"Exited fullscreen","confirmDialogHeader":"Submit your answers","confirmDialogText":"This will submit your results, do you want to continue?","confirmDialogConfirmText":"Submit and see results"}}'
-]
-
-{ #category : 'no template' }
-MicPictureBasedWriter >> slideString [
-	"STONJSON fromString: self new slideString"
-	^ '{"elements":[{"x":0,"y":0,"width":100,"height":100,"action":{"library":"H5P.Image 1.1","params":{"contentName":"Image","file":{"path":"images/image-OE0PKFVx.png","mime":"image/png","copyright":{"license":"U"},"width":310,"height":330}},"subContentId":"5fb6da95-df20-4df0-9de2-aa006c01c08e","metadata":{"contentType":"Image","license":"U","title":"Untitled Image","authors":[],"changes":[]}},"alwaysDisplayComments":false,"backgroundOpacity":0,"displayAsButton":false,"buttonSize":"big","goToSlideType":"specified","invisible":false,"solution":""}],"slideBackgroundSelector":{},"keywords":[{"main":"Nice code eh!"}]}'
-]
-
-{ #category : 'writing' }
-MicPictureBasedWriter >> slideStringFor: aString [
-
-	^ '{"elements":[{"x":0,"y":0,"width":100,"height":100,"action":{"library":"H5P.Image 1.1","params":{"contentName":"Image","file":{"path":"images/',aString,'","mime":"image/png","copyright":{"license":"U"},"width":310,"height":330}},"subContentId":"5fb6da95-df20-4df0-9de2-aa006c01c08e","metadata":{"contentType":"Image","license":"U","title":"Untitled Image","authors":[],"changes":[]}},"alwaysDisplayComments":false,"backgroundOpacity":0,"displayAsButton":false,"buttonSize":"big","goToSlideType":"specified","invisible":false,"solution":""}],"slideBackgroundSelector":{},"keywords":[{"main":"Nice code eh!"}]}'
-]
-
-{ #category : 'writing' }
-MicPictureBasedWriter >> slidesStringForCollection: aCollection [
-
-	^ String streamContents: [ :st | 
-		aCollection 
-			do: [ :each | st nextPutAll: (self slideStringFor: each)  ]
-			separatedBy: [ st nextPutAll:',' ]
-		 ]
-
-]
-
-{ #category : 'accessing' }
-MicPictureBasedWriter >> sourcePDF: aString [
-
-	sourcePDF := aString asFileReference.
-	
-]
-
-{ #category : 'accessing' }
-MicPictureBasedWriter >> sourceSlideImagesFolder [
-	"I'm the place where the slides expressed in jpeg files are. The files in my repository will the copy in the target architecture 
-	and used to generate the presentation in the content.json file."
-	
-	^ sourceSlideImagesFolder
-]
-
-{ #category : 'accessing' }
-MicPictureBasedWriter >> sourceSlideImagesFolder: aString [
-
-	sourceSlideImagesFolder := aString asFileReference
-]
-
-{ #category : 'operations' }
-MicPictureBasedWriter >> splitPDF [
-	
-	| treatedPDF cmd |
-	treatedPDF := (self sourceSlideImagesFolder / sourcePDF basename).
-	
-	cmd := '/usr/local/bin/pdftoppm -jpeg ', treatedPDF fullName, ' -scale-to 1000 ', treatedPDF basenameWithoutExtension.
-	OSSUnixSubprocess new	
-		command: '/usr/local/bin/pdftoppm';
-		arguments: {'-jpeg' . treatedPDF fullName . '-scale-to' . '1000' . treatedPDF basenameWithoutExtension };
-		workingDirectory: self sourceSlideImagesFolder fullName;
-		runAndWaitOnExitDo: [ :process :outString :errString |
-		process isSuccess
-			ifTrue: [ Transcript show: 'Command exited correctly with output: ', outString. ]
-			ifFalse: [
-				Transcript show: 'Command exit with error status: ', process exitStatusInterpreter printString; cr.
-				Transcript show: 'Stderr contents: ', errString.
-			]
-	]
-	
-	
-]
-
-{ #category : 'accessing' }
-MicPictureBasedWriter >> target [
-	"self new target"
-	^ self placeOfTemplateFolder parent / 'Target'
-]
-
-{ #category : 'accessing' }
-MicPictureBasedWriter >> targetImageFolder [
-	"This is the repository inside the target where we should put the images."
-	
-	^ (self placeOfTemplateFolder / 'content' / 'images/') asFileReference
-]
-
-{ #category : 'operations' }
-MicPictureBasedWriter >> treatSourcePDF [
-
-	self sourceSlideImagesFolder: sourcePDF parent / (sourcePDF basenameWithoutExtension,'Images').
-	self sourceSlideImagesFolder ensureDeleteAll.
-	self sourceSlideImagesFolder createDirectory.
-	sourcePDF copyTo: self sourceSlideImagesFolder / sourcePDF basename .
-]
-
-{ #category : 'writing' }
-MicPictureBasedWriter >> writeContentJSONOnDisk: aMicDocument [
-	"self new writeContentJSONOnDisk: 2"
-	self contentJSON ensureDelete.
-	self contentJSON 
-		writeStreamDo: [ :str | str nextPutAll: (self presentationStringForCollection: #('0001.jpg' 'foo.png' '0001.jpg' 'foo.png'))]
-]
diff --git a/src/Microdown-HTMLExporter/MicCSSEntity.class.st b/src/Microdown-HTMLExporter/MicCSSEntity.class.st
index a2a875e2..c4e91cc3 100644
--- a/src/Microdown-HTMLExporter/MicCSSEntity.class.st
+++ b/src/Microdown-HTMLExporter/MicCSSEntity.class.st
@@ -35,6 +35,12 @@ MicCSSEntity >> basePath [
 		ifNil: [ basePath := self defaultBasePath ]
 ]
 
+{ #category : 'defaults' }
+MicCSSEntity >> basePath: anObject [
+
+	basePath := anObject
+]
+
 { #category : 'accessing' }
 MicCSSEntity >> cssFile [
 	"Answer the receiver's <MicCSSFile>"
diff --git a/src/Microdown-Macrodown-Pillar/MacLineBreakBlock.extension.st b/src/Microdown-Macrodown-Pillar/MacLineBreakBlock.extension.st
deleted file mode 100644
index ec644004..00000000
--- a/src/Microdown-Macrodown-Pillar/MacLineBreakBlock.extension.st
+++ /dev/null
@@ -1,7 +0,0 @@
-Extension { #name : 'MacLineBreakBlock' }
-
-{ #category : '*Microdown-Macrodown-Pillar' }
-MacLineBreakBlock >> associatedPillarClass [
-
-	^ PRLineBreak
-]
diff --git a/src/Microdown-Macrodown-Tests/MacInlineParserTest.class.st b/src/Microdown-Macrodown-Tests/MacInlineParserTest.class.st
deleted file mode 100644
index 7c80a6c1..00000000
--- a/src/Microdown-Macrodown-Tests/MacInlineParserTest.class.st
+++ /dev/null
@@ -1,36 +0,0 @@
-Class {
-	#name : 'MacInlineParserTest',
-	#superclass : 'MicInlineParserTest',
-	#category : 'Microdown-Macrodown-Tests',
-	#package : 'Microdown-Macrodown-Tests'
-}
-
-{ #category : 'accessing' }
-MacInlineParserTest >> splitter [
-
-	^ MacInlineParser new
-]
-
-{ #category : 'tests' }
-MacInlineParserTest >> testParseLineBreak [
-	| blocks |
-
-	blocks := self splitter parse: 'x1  
-x2
-'.
-
-	self assert: blocks size equals: 3.
-	self assert: blocks second class equals: MacLineBreakBlock
-]
-
-{ #category : 'tests' }
-MacInlineParserTest >> testParseLineBreakManySpaces [
-	| blocks |
-
-	blocks := self splitter parse: 'a     
-b
-'.
-
-	self assert: blocks size equals: 3.
-	self assert: blocks second class equals: MacLineBreakBlock
-]
diff --git a/src/Microdown-Macrodown-Tests/MacParagraphBlockTest.class.st b/src/Microdown-Macrodown-Tests/MacParagraphBlockTest.class.st
deleted file mode 100644
index b70c2349..00000000
--- a/src/Microdown-Macrodown-Tests/MacParagraphBlockTest.class.st
+++ /dev/null
@@ -1,28 +0,0 @@
-Class {
-	#name : 'MacParagraphBlockTest',
-	#superclass : 'MicParagraphBlockTest',
-	#category : 'Microdown-Macrodown-Tests',
-	#package : 'Microdown-Macrodown-Tests'
-}
-
-{ #category : 'accessing' }
-MacParagraphBlockTest >> parserClass [
-
-	^ MacrodownParser
-]
-
-{ #category : 'tests' }
-MacParagraphBlockTest >> testTwoSingleLinesWithSpaces [
-	| root paragraph |
-	
-	root := parser parse: 'This is  
-a paragraph on two lines, separated by two spaces'.
-	self assert: root children size equals: 1.
-	paragraph := root children first. 
-
-	self assert: paragraph children first text equals: 'This is'.
-	self assert: paragraph children second class equals: MacLineBreakBlock.
-	self assert: paragraph children third text equals: 'a paragraph on two lines, separated by two spaces'.
-	self assert: paragraph text equals: 'This is
-a paragraph on two lines, separated by two spaces'
-]
diff --git a/src/Microdown-Macrodown/MacConstants.class.st b/src/Microdown-Macrodown/MacConstants.class.st
deleted file mode 100644
index 601ee713..00000000
--- a/src/Microdown-Macrodown/MacConstants.class.st
+++ /dev/null
@@ -1,18 +0,0 @@
-"
-Constants to be used on the extended parser.
-"
-Class {
-	#name : 'MacConstants',
-	#superclass : 'SharedPool',
-	#classVars : [
-		'InlineParagraphDelimiter'
-	],
-	#category : 'Microdown-Macrodown',
-	#package : 'Microdown-Macrodown'
-}
-
-{ #category : 'initialization' }
-MacConstants class >> initialize [
-
-	InlineParagraphDelimiter := '  '
-]
diff --git a/src/Microdown-Macrodown/MacInlineParser.class.st b/src/Microdown-Macrodown/MacInlineParser.class.st
deleted file mode 100644
index 2ea214ff..00000000
--- a/src/Microdown-Macrodown/MacInlineParser.class.st
+++ /dev/null
@@ -1,55 +0,0 @@
-"
-Inline parser to detect and parse extended parse functionality.
-
-- line break with two (or more) spaces.
-"
-Class {
-	#name : 'MacInlineParser',
-	#superclass : 'MicInlineParser',
-	#pools : [
-		'MacConstants'
-	],
-	#category : 'Microdown-Macrodown',
-	#package : 'Microdown-Macrodown'
-}
-
-{ #category : 'adding' }
-MacInlineParser >> addLineBreakInlineBlock: indexOfAssociateOpener [
-	| startIndex endIndex |
-	
-	startIndex := opener index + opener size.
-	endIndex := string indexOf: Character cr startingAt: startIndex.
-	(endIndex = 0 
-		or: [ (endIndex - startIndex) = 0 ]) 
-		ifTrue: [ ^ self ].
-
-	self 
-		addInlineBlock: indexOfAssociateOpener 
-		from: startIndex
-		to: endIndex
-]
-
-{ #category : 'private' }
-MacInlineParser >> extentedDelimiters [
-		
-	^ { MacLineBreakDelimiter }
-]
-
-{ #category : 'actions' }
-MacInlineParser >> identifyMarkupFor: aString [
-	
-	^ self extentedDelimiters
-		detect: [ :each | each matches: aString ]
-		ifFound: [ :aDelimiterClass | 
-			delimiterClass := aDelimiterClass.
-			aDelimiterClass applyOn: self ]
-		ifNone: [ super identifyMarkupFor: aString ]
-]
-
-{ #category : 'applying' }
-MacInlineParser >> processLineBreak [
-
-	self delimiterFoundProcess.
-	self addInlineBlock: (self findType: delimiterClass type).
-	^ result last text size
-]
diff --git a/src/Microdown-Macrodown/MacLineBreakBlock.class.st b/src/Microdown-Macrodown/MacLineBreakBlock.class.st
deleted file mode 100644
index 3b70293a..00000000
--- a/src/Microdown-Macrodown/MacLineBreakBlock.class.st
+++ /dev/null
@@ -1,33 +0,0 @@
-"
-Block to process line breaks. 
-"
-Class {
-	#name : 'MacLineBreakBlock',
-	#superclass : 'MicInlineElement',
-	#category : 'Microdown-Macrodown',
-	#package : 'Microdown-Macrodown'
-}
-
-{ #category : 'visiting' }
-MacLineBreakBlock >> accept: aVisitor [
-
- 	^ aVisitor visitLineBreak: self
-]
-
-{ #category : 'accessing' }
-MacLineBreakBlock >> kind [
-
-	^ #lineBreak
-]
-
-{ #category : 'accessing' }
-MacLineBreakBlock >> openingDelimiter [
-
-	^ nil
-]
-
-{ #category : 'accessing' }
-MacLineBreakBlock >> openingDelimiterSize [ 
-
-	^ 0
-]
diff --git a/src/Microdown-Macrodown/MacLineBreakDelimiter.class.st b/src/Microdown-Macrodown/MacLineBreakDelimiter.class.st
deleted file mode 100644
index 130e82b4..00000000
--- a/src/Microdown-Macrodown/MacLineBreakDelimiter.class.st
+++ /dev/null
@@ -1,76 +0,0 @@
-"
-Delimiter definition for line break.
-"
-Class {
-	#name : 'MacLineBreakDelimiter',
-	#superclass : 'MicAbstractDelimiter',
-	#category : 'Microdown-Macrodown',
-	#package : 'Microdown-Macrodown'
-}
-
-{ #category : 'applying' }
-MacLineBreakDelimiter class >> applyOn: inlineParser [
-
-	^ inlineParser processLineBreak
-]
-
-{ #category : 'accessing' }
-MacLineBreakDelimiter class >> associatedInlineBlock [
-
-	^ MacLineBreakBlock
-]
-
-{ #category : 'accessing' }
-MacLineBreakDelimiter class >> isCloser [
-
-	^ true
-]
-
-{ #category : 'accessing' }
-MacLineBreakDelimiter class >> isOpener [
-
-	^ true
-]
-
-{ #category : 'accessing' }
-MacLineBreakDelimiter class >> markup [
-
-	^ #lineBreak
-]
-
-{ #category : 'testing' }
-MacLineBreakDelimiter class >> matches: aString [
-	| indexOfCr |
-
-	(aString size >= 3) ifFalse: [ ^ false ].
-	
-	indexOfCr := (aString indexOf: Character cr) - 1.
-	indexOfCr < 2 ifTrue: [ ^ false ].
-			
-	^ (aString first: indexOfCr) allSatisfy: [ :each | each = Character space ]
-]
-
-{ #category : 'accessing' }
-MacLineBreakDelimiter class >> size [
-
-	^ 1
-]
-
-{ #category : 'accessing' }
-MacLineBreakDelimiter class >> type [
-
-	^ #lineBreak
-]
-
-{ #category : 'adding' }
-MacLineBreakDelimiter >> addInlineBlock: anIndex to: inlineParser [
-
-	inlineParser addLineBreakInlineBlock: anIndex
-
-]
-
-{ #category : 'accessing' }
-MacLineBreakDelimiter >> endIndex [
-
-	^ self index + self size
-]
diff --git a/src/Microdown-Macrodown/MacMailtoResourceReference.class.st b/src/Microdown-Macrodown/MacMailtoResourceReference.class.st
deleted file mode 100644
index beddf805..00000000
--- a/src/Microdown-Macrodown/MacMailtoResourceReference.class.st
+++ /dev/null
@@ -1,20 +0,0 @@
-"
-Definition of ""mailto"" scheme (to let the links recognise it).
-"
-Class {
-	#name : 'MacMailtoResourceReference',
-	#superclass : 'MicAbsoluteResourceReference',
-	#category : 'Microdown-Macrodown',
-	#package : 'Microdown-Macrodown'
-}
-
-{ #category : 'instance creation' }
-MacMailtoResourceReference class >> handlesUriScheme: scheme [
-	^ scheme beginsWith: 'mailto'
-]
-
-{ #category : 'accessing' }
-MacMailtoResourceReference >> contents [
-
-	^ self error: 'Should not arrive here?'
-]
diff --git a/src/Microdown-Macrodown/MacParagraphBlock.class.st b/src/Microdown-Macrodown/MacParagraphBlock.class.st
deleted file mode 100644
index 8431f9c7..00000000
--- a/src/Microdown-Macrodown/MacParagraphBlock.class.st
+++ /dev/null
@@ -1,38 +0,0 @@
-"
-Paragraph extension to process the extended inlines.
-"
-Class {
-	#name : 'MacParagraphBlock',
-	#superclass : 'MicParagraphBlock',
-	#instVars : [
-		'textWithoutBreak'
-	],
-	#pools : [
-		'MacConstants'
-	],
-	#category : 'Microdown-Macrodown',
-	#package : 'Microdown-Macrodown'
-}
-
-{ #category : 'parising' }
-MacParagraphBlock >> addLineAndReturnNextNode: line [
-
-	super addLineAndReturnNextNode: line.
-	textWithoutBreak := self appendLine: line to: textWithoutBreak.
-	
-	(line endsWith: InlineParagraphDelimiter) ifFalse: [ ^ self ].
-	"add nodes up to now, then insert break and continue"
-	children addAll: (self inlineParse: textWithoutBreak).
-	children add: (MacLineBreakBlock new).
-	textWithoutBreak := nil
-]
-
-{ #category : 'visiting' }
-MacParagraphBlock >> closeMe [
-
-	textWithoutBreak ifNil: [ 
-		"means is already closed"
-		^ self ]. 
-	self children: self children, (self inlineParse: textWithoutBreak).
-	textWithoutBreak := nil
-]
diff --git a/src/Microdown-Macrodown/MacRawParagraphBlock.class.st b/src/Microdown-Macrodown/MacRawParagraphBlock.class.st
deleted file mode 100644
index 7db25fa9..00000000
--- a/src/Microdown-Macrodown/MacRawParagraphBlock.class.st
+++ /dev/null
@@ -1,53 +0,0 @@
-"
-A raw paragraph block is a block that containes raw content (e.g. plain HTML)
-"
-Class {
-	#name : 'MacRawParagraphBlock',
-	#superclass : 'MicParagraphBlock',
-	#category : 'Microdown-Macrodown',
-	#package : 'Microdown-Macrodown'
-}
-
-{ #category : 'private' }
-MacRawParagraphBlock class >> htmlTags [
-		
-	^ #('!--' 'a' 'abbr' 'address' 'area' 'article' 'aside' 'audio' 'b' 'base' 'bdi' 'bdo' 'blockquote' 'body' 'br' 'button' 'canvas' 'caption' 'cite' 'code' 'col' 'colgroup' 'data' 'datalist' 'dd' 'del' 'details' 'dfn' 'dialog' 'div' 'dl' 'dt' 'em' 'embed' 'fieldset' 'figcaption' 'figure' 'footer' 'form' 'h1' 'h2' 'h3' 'h4' 'h5' 'h6' 'head' 'header' 'hgroup' 'hr' 'html' 'i' 'iframe' 'img' 'input' 'ins' 'kbd' 'label' 'legend' 'li' 'link' 'main' 'map' 'mark' 'menu' 'meta' 'meter' 'nav' 'noscript' 'object' 'ol' 'optgroup' 'option' 'output' 'p' 'param' 'picture' 'pre' 'progress' 'q' 'rb' 'rp' 'rt' 'rtc' 'ruby' 's' 'samp' 'script' 'section' 'select' 'slot' 'small' 'source' 'span' 'strong' 'style' 'sub' 'summary' 'sup' 'table' 'tbody' 'td' 'template' 'textarea' 'tfoot' 'th' 'thead' 'time' 'title' 'tr' 'track' 'u' 'ul' 'var' 'video' 'wbr')
-]
-
-{ #category : 'testing' }
-MacRawParagraphBlock class >> matches: aString [
-
-	^ self matches: aString trimLeft withAnyOf: self htmlTags
-]
-
-{ #category : 'private' }
-MacRawParagraphBlock class >> matches: aString withAnyOf: htmlTags [
-
-	aString ifEmpty: [ ^ false ].
-	^ (aString first = $<)
-		and: [ htmlTags includes: (aString readStream upToAnyOf: '> ') allButFirst ]
-]
-
-{ #category : 'testing' }
-MacRawParagraphBlock class >> matchesComment: aString [
-
-	^ self 
-		matches: aString trimLeft
-		withAnyOf: { self htmlTags first }
-]
-
-{ #category : 'visiting' }
-MacRawParagraphBlock >> accept: aVisitor [
-
- 	^ aVisitor visitRawParagraph: self
-]
-
-{ #category : 'parse support' }
-MacRawParagraphBlock >> closeMe [
-
-	self children: { 
-		MicRawBlock 
-			from: 1 
-			to: text size 
-			withSubstring: text }
-]
diff --git a/src/Microdown-Macrodown/MacrodownParser.class.st b/src/Microdown-Macrodown/MacrodownParser.class.st
deleted file mode 100644
index a91b598f..00000000
--- a/src/Microdown-Macrodown/MacrodownParser.class.st
+++ /dev/null
@@ -1,42 +0,0 @@
-"
-This is a variation of the MicrodownParser that tries to be as close as possible to the ""markdown strict"" definition, that can be seen here: https://www.markdownguide.org/basic-syntax.
-"
-Class {
-	#name : 'MacrodownParser',
-	#superclass : 'MicrodownParser',
-	#category : 'Microdown-Macrodown',
-	#package : 'Microdown-Macrodown'
-}
-
-{ #category : 'public' }
-MacrodownParser >> blockStarterClassFrom: line [
-
-	self flag: #HACK. "This is a special case because it collides with environment"
-	(MacRawParagraphBlock matchesComment: line) 
-		ifTrue: [ ^ self nonMatchedBlockClassFor: line ]. 
-		
-	^ super blockStarterClassFrom: line
-]
-
-{ #category : 'node creation' }
-MacrodownParser >> elementBlockClasses [
-		
-	^ { 
-	MacRawParagraphBlock.
-	 }
-]
-
-{ #category : 'node creation' }
-MacrodownParser >> nonMatchedBlockClassFor: line [
-
-	^ self elementBlockClasses 
-		detect: [ :each | each matches: line ]
-		ifFound: [ :aClass | aClass ]
-		ifNone: [ self paragraphBlockClass ]
-]
-
-{ #category : 'node creation' }
-MacrodownParser >> paragraphBlockClass [
-
-	^ MacParagraphBlock
-]
diff --git a/src/Microdown-Macrodown/MicAbstractDelimiter.extension.st b/src/Microdown-Macrodown/MicAbstractDelimiter.extension.st
deleted file mode 100644
index 7ab0d971..00000000
--- a/src/Microdown-Macrodown/MicAbstractDelimiter.extension.st
+++ /dev/null
@@ -1,13 +0,0 @@
-Extension { #name : 'MicAbstractDelimiter' }
-
-{ #category : '*Microdown-Macrodown' }
-MicAbstractDelimiter classSide >> applyOn: inlineParser [
-
-	self subclassResponsibility
-]
-
-{ #category : '*Microdown-Macrodown' }
-MicAbstractDelimiter classSide >> matches: aString [
-
-	^ false
-]
diff --git a/src/Microdown-Macrodown/MicMicrodownObjectToPillarObjectConverter.extension.st b/src/Microdown-Macrodown/MicMicrodownObjectToPillarObjectConverter.extension.st
deleted file mode 100644
index ed19d8c0..00000000
--- a/src/Microdown-Macrodown/MicMicrodownObjectToPillarObjectConverter.extension.st
+++ /dev/null
@@ -1,13 +0,0 @@
-Extension { #name : 'MicMicrodownObjectToPillarObjectConverter' }
-
-{ #category : '*Microdown-Macrodown' }
-MicMicrodownObjectToPillarObjectConverter >> visitLineBreak: aBreak [ 
-
-	^ PRLineBreak new
-]
-
-{ #category : '*Microdown-Macrodown' }
-MicMicrodownObjectToPillarObjectConverter >> visitRawParagraph: aRawParagraph [ 
-
-	^ PRRaw content: aRawParagraph text
-]
diff --git a/src/Microdown-Macrodown/MicrodownVisitor.extension.st b/src/Microdown-Macrodown/MicrodownVisitor.extension.st
deleted file mode 100644
index e5dc523a..00000000
--- a/src/Microdown-Macrodown/MicrodownVisitor.extension.st
+++ /dev/null
@@ -1,12 +0,0 @@
-Extension { #name : 'MicrodownVisitor' }
-
-{ #category : '*Microdown-Macrodown' }
-MicrodownVisitor >> visitLineBreak: aBreak [ 
-
-]
-
-{ #category : '*Microdown-Macrodown' }
-MicrodownVisitor >> visitRawParagraph: aRawParagraph [ 
-
-	^ self visitChildrenOf: aRawParagraph
-]
diff --git a/src/Microdown-Pillar-Tests/MicAnchorBlockTest.extension.st b/src/Microdown-Pillar-Tests/MicAnchorBlockTest.extension.st
deleted file mode 100644
index aa54b624..00000000
--- a/src/Microdown-Pillar-Tests/MicAnchorBlockTest.extension.st
+++ /dev/null
@@ -1,11 +0,0 @@
-Extension { #name : 'MicAnchorBlockTest' }
-
-{ #category : '*Microdown-Pillar-Tests' }
-MicAnchorBlockTest >> testAnchorBlockAsPillar [
-	| source root pillar |
-	source := '@anchor'.
-	root := parser parse: source.
-	pillar := root children first asPillar.
-	self assert: pillar class equals: PRAnchor.
-	self assert: root children first label equals: 'anchor'
-]
diff --git a/src/Microdown-Pillar-Tests/MicCodeBlockTest.extension.st b/src/Microdown-Pillar-Tests/MicCodeBlockTest.extension.st
deleted file mode 100644
index adf4f503..00000000
--- a/src/Microdown-Pillar-Tests/MicCodeBlockTest.extension.st
+++ /dev/null
@@ -1,18 +0,0 @@
-Extension { #name : 'MicCodeBlockTest' }
-
-{ #category : '*Microdown-Pillar-Tests' }
-MicCodeBlockTest >> testSingleCodeBlockTwoLinesAsPillar [
-	| source root code textBody argument |
-	textBody := 'my fancy code
-is really cool'.
-	argument := 'ArgumentGoesHere'.
-	source := CodeblockMarkup, argument, String cr, textBody, String cr, CodeblockMarkup. 
-	root := self parser parse: source.
-	code := root children first asPillar.
-	self
-		assert: code text
-		equals:
-			'my fancy code
-is really cool'.
-	self assert: code language originalName equals: 'ArgumentGoesHere'
-]
diff --git a/src/Microdown-Pillar-Tests/MicEnvironmentBlockTest.extension.st b/src/Microdown-Pillar-Tests/MicEnvironmentBlockTest.extension.st
deleted file mode 100644
index 50b274d7..00000000
--- a/src/Microdown-Pillar-Tests/MicEnvironmentBlockTest.extension.st
+++ /dev/null
@@ -1,27 +0,0 @@
-Extension { #name : 'MicEnvironmentBlockTest' }
-
-{ #category : '*Microdown-Pillar-Tests' }
-MicEnvironmentBlockTest >> testEnvironmentBlockAsPillar [
-	| source root pillar |
-	source := '<!environment|name=aName
-Hello this is a dull body.
-!>'.
-	root := parser parse: source.
-	pillar := root children first asPillar.
-	self assert: pillar class equals: PREnvironment
-	
-]
-
-{ #category : '*Microdown-Pillar-Tests' }
-MicEnvironmentBlockTest >> testEnvironmentBlockWithParametersAsPillar [
-	| source root pillar |
-	source := '<!environment|toto=22&name=isAlreadyDefined
-Hello this is a dull body.
-!>'.
-	root := parser parse: source.
-	pillar := root children first asPillar.
-	self assert: pillar class equals: PREnvironment.
-	self assert: (pillar parameterAt: 'toto') equals: '22'.
-	self assert: (pillar parameterAt: 'name') equals: 'isAlreadyDefined'
-	
-]
diff --git a/src/Microdown-Pillar-Tests/MicHeaderBlockTest.extension.st b/src/Microdown-Pillar-Tests/MicHeaderBlockTest.extension.st
deleted file mode 100644
index fb670806..00000000
--- a/src/Microdown-Pillar-Tests/MicHeaderBlockTest.extension.st
+++ /dev/null
@@ -1,12 +0,0 @@
-Extension { #name : 'MicHeaderBlockTest' }
-
-{ #category : '*Microdown-Pillar-Tests' }
-MicHeaderBlockTest >> testHeaderLevel4AsPillar [
-	| source root pillar |
-	source := '####    Level four'.
-	root := parser parse: source.
-	pillar := root children first asPillar.
-	self assert: pillar class equals: PRHeader.
-	self assert: pillar children first class equals: PRText.
-	self assert: pillar children first text equals: 'Level four'
-]
diff --git a/src/Microdown-Pillar-Tests/MicHorizontalLineBlockTest.extension.st b/src/Microdown-Pillar-Tests/MicHorizontalLineBlockTest.extension.st
deleted file mode 100644
index 83f1f315..00000000
--- a/src/Microdown-Pillar-Tests/MicHorizontalLineBlockTest.extension.st
+++ /dev/null
@@ -1,12 +0,0 @@
-Extension { #name : 'MicHorizontalLineBlockTest' }
-
-{ #category : '*Microdown-Pillar-Tests' }
-MicHorizontalLineBlockTest >> testHorizontalLineBlockAsPillar [
-	| source root pillar |
-	source := '***
-	'.
-	root := parser parse: source.
-	pillar := root children first asPillar.
-	self assert: pillar class equals: PRHorizontalRule
-	
-]
diff --git a/src/Microdown-Pillar-Tests/MicInlineParserTest.extension.st b/src/Microdown-Pillar-Tests/MicInlineParserTest.extension.st
deleted file mode 100644
index f1a113a5..00000000
--- a/src/Microdown-Pillar-Tests/MicInlineParserTest.extension.st
+++ /dev/null
@@ -1,56 +0,0 @@
-Extension { #name : 'MicInlineParserTest' }
-
-{ #category : '*Microdown-Pillar-Tests' }
-MicInlineParserTest >> testBasicTextAsPillar [
-	| res |
-	res := self splitter pillarFrom: 'abc'.
-	self assert: res first text equals: 'abc'.
-	self assert: res first class equals: PRText.
-]
-
-{ #category : '*Microdown-Pillar-Tests' }
-MicInlineParserTest >> testBoldAndNestedItalicAsPillar [
-	| res |
-	res := self splitter pillarFrom: 'abc**x_y_z**cba'.
-	self assert: res second class equals: PRBoldFormat.
-	self assert: res second children first text equals: 'x'.
-	self assert: res second children second class equals: PRItalicFormat.
-	self assert: res second children second children first text equals: 'y'.
-	self assert: res second children third text equals: 'z'
-]
-
-{ #category : '*Microdown-Pillar-Tests' }
-MicInlineParserTest >> testBoldAsPillar [
-	| res |
-	res := self splitter pillarFrom: 'abc**xyz**cba'.
-	self assert: res second children first text equals: 'xyz'.
-	self assert: res second class equals: PRBoldFormat.
-]
-
-{ #category : '*Microdown-Pillar-Tests' }
-MicInlineParserTest >> testExternalLinkAsPillar [
-	| res |
-	res := self splitter pillarFrom: 'abc[alias](link)cba'.
-	self assert: res second children first text equals: 'alias'.
-	self assert: res second class equals: PRExternalLink.
-
-]
-
-{ #category : '*Microdown-Pillar-Tests' }
-MicInlineParserTest >> testFigureAsPillar [
-	| res |
-	res := self splitter pillarFrom: 'abc![alias](http://www.pharo.org)cba'.
-	self assert: res second children first text equals: 'alias'.
-	self assert: res second class equals: PRFigure
-
-]
-
-{ #category : '*Microdown-Pillar-Tests' }
-MicInlineParserTest >> testItalicAsPillar [
-	| res |
-	res := self splitter pillarFrom: 'abc_xyz_cba'.
-	self assert: res second children first text equals: 'xyz'.
-	self assert: res second class equals: PRItalicFormat.
-	
-	
-]
diff --git a/src/Microdown-Pillar-Tests/MicMathBlockTest.extension.st b/src/Microdown-Pillar-Tests/MicMathBlockTest.extension.st
deleted file mode 100644
index bedeedc6..00000000
--- a/src/Microdown-Pillar-Tests/MicMathBlockTest.extension.st
+++ /dev/null
@@ -1,48 +0,0 @@
-Extension { #name : 'MicMathBlockTest' }
-
-{ #category : '*Microdown-Pillar-Tests' }
-MicMathBlockTest >> testMathBlockAsPillar [
-	| source root pillar |
-	source := '
-',MathOpeningBlockMarkup,'
-V_i = C_0 - C_3
-', MathClosingBlockMarkup.
-root := parser parse: source.
-	pillar := root children first asPillar.
-	self assert: pillar class equals: PRMathEnvironment.
-	self assert: pillar children first class equals: PRText.
-	
-]
-
-{ #category : '*Microdown-Pillar-Tests' }
-MicMathBlockTest >> testMathBlockAsPillarWithArgument [
-	| source root pillar |
-	source := '
-',MathOpeningBlockMarkup,'toto=22&caption=isAlreadyDefined.
-V_i = C_0 - C_3
-', MathClosingBlockMarkup.
-	root := parser parse: source.
-	pillar := root children first asPillar.
-	self assert: pillar class equals: PRMathEnvironment.
-	self assert: pillar children first class equals: PRText.
-	self assert: (pillar parameters at: 'toto') equals: '22'.
-	self assert: pillar caption first text  equals: 'isAlreadyDefined.'.
-	
-]
-
-{ #category : '*Microdown-Pillar-Tests' }
-MicMathBlockTest >> testMathBlockAsPillarWithArgumentWithFormatting [
-	| source root pillar |
-	source := '
-',MathOpeningBlockMarkup,'toto=22&caption=**is**AlreadyDefined.
-V_i = C_0 - C_3
-', MathClosingBlockMarkup.
-	root := parser parse: source.
-	pillar := root children first asPillar.
-	self assert: pillar class equals: PRMathEnvironment.
-	self assert: pillar children first class equals: PRText.
-	self assert: (pillar parameters at: 'toto') equals: '22'.
-	self assert: pillar caption first text equals: 'is'.
-	self assert: pillar caption first class equals: PRBoldFormat.
-	
-]
diff --git a/src/Microdown-Pillar-Tests/MicMicrodownObjectToPillarObjectConverterTest.class.st b/src/Microdown-Pillar-Tests/MicMicrodownObjectToPillarObjectConverterTest.class.st
deleted file mode 100644
index 75fb44a8..00000000
--- a/src/Microdown-Pillar-Tests/MicMicrodownObjectToPillarObjectConverterTest.class.st
+++ /dev/null
@@ -1,345 +0,0 @@
-Class {
-	#name : 'MicMicrodownObjectToPillarObjectConverterTest',
-	#superclass : 'TestCase',
-	#instVars : [
-		'pillarDocument',
-		'visitor',
-		'factory'
-	],
-	#category : 'Microdown-Pillar-Tests',
-	#package : 'Microdown-Pillar-Tests'
-}
-
-{ #category : 'parsing' }
-MicMicrodownObjectToPillarObjectConverterTest >> parse: sample createChildElementOfClass: aClass [
-
-	| parser micDoc pillarDoc |
-	parser := self parserClass new. 
-	micDoc := (parser parse: sample) children first children first.
-	pillarDoc := micDoc accept: visitor.
-	self assert: pillarDoc class equals: aClass.
-	^ pillarDoc
-]
-
-{ #category : 'parsing' }
-MicMicrodownObjectToPillarObjectConverterTest >> parse: sample createChildSecondElementOfClass: aClass [
-
-	| parser micDoc pillarDoc |
-	parser := self parserClass new. 
-	micDoc := (parser parse: sample) children first children second.
-	pillarDoc := micDoc accept: visitor.
-	self assert: pillarDoc class equals: aClass.
-	^ pillarDoc
-]
-
-{ #category : 'parsing' }
-MicMicrodownObjectToPillarObjectConverterTest >> parse: sample createElementOfClass: aClass [
-
-	| parser micDoc pillarDoc |
-	parser := self parserClass new. 
-	micDoc := (parser parse: sample) children first.
-	pillarDoc := micDoc accept: visitor.
-	self assert: pillarDoc class equals: aClass.
-	^ pillarDoc
-]
-
-{ #category : 'tests' }
-MicMicrodownObjectToPillarObjectConverterTest >> parserClass [
-	^ Microdown
-]
-
-{ #category : 'running' }
-MicMicrodownObjectToPillarObjectConverterTest >> setUp [
- 	super setUp.
- 	visitor := MicMicrodownObjectToPillarObjectConverter new.
-	factory := MicMicrodownSnippetFactory new.
-]
-
-{ #category : 'tests' }
-MicMicrodownObjectToPillarObjectConverterTest >> testAnchorBlock [
-	self parse: factory anchorSample createElementOfClass: PRAnchor
-]
-
-{ #category : 'tests-inline blocks' }
-MicMicrodownObjectToPillarObjectConverterTest >> testAnchorReference [
-	self parse: factory anchorReferenceSample createChildElementOfClass: PRInternalLink
-]
-
-{ #category : 'tests' }
-MicMicrodownObjectToPillarObjectConverterTest >> testAnnotated [
-	self parse: factory annotatedSample createElementOfClass: PRAnnotatedParagraph
-]
-
-{ #category : 'tests-inline blocks' }
-MicMicrodownObjectToPillarObjectConverterTest >> testAnnotation [
-	self parse: factory annotationSample createChildSecondElementOfClass: PRUndefinedAnnotation
-]
-
-{ #category : 'tests-inline blocks' }
-MicMicrodownObjectToPillarObjectConverterTest >> testBoldFormat [
-	self parse: factory boldFormatSample createChildElementOfClass: PRBoldFormat
-]
-
-{ #category : 'tests-inline blocks' }
-MicMicrodownObjectToPillarObjectConverterTest >> testBoldFormatEmpty [
-	| boldBlock |
-	self skip.
-	self flag: #fixme.
-	"the parser parse '****' and return a HorizontalBlock"
-	boldBlock := self parse: factory boldFormatEmptySample createChildElementOfClass: PRBoldFormat.
-	self assert: boldBlock text equals: ''
-]
-
-{ #category : 'tests' }
-MicMicrodownObjectToPillarObjectConverterTest >> testCodeBlock [
-	self parse: (factory codeblock: 'language=pharo' body: '1-2 ') createElementOfClass: PRCodeblock
-
-]
-
-{ #category : 'tests' }
-MicMicrodownObjectToPillarObjectConverterTest >> testCodeInText [
-
-	| document |
-	document := self parserClass new parse: 'The method `foo` is fun'.
-	pillarDocument := document accept: visitor.
-	self assert: pillarDocument children first class equals: PRParagraph.
-	self assert: pillarDocument children first children second class equals: PRMonospaceFormat 
-	
-	
-]
-
-{ #category : 'tests' }
-MicMicrodownObjectToPillarObjectConverterTest >> testComment [
-	self parse: factory commentSample createElementOfClass: PRCommentedLine
-]
-
-{ #category : 'tests' }
-MicMicrodownObjectToPillarObjectConverterTest >> testEnvironmentBlock [
-
-	self parse: factory environmentSample createElementOfClass: PREnvironment
-	
-]
-
-{ #category : 'tests-inline blocks' }
-MicMicrodownObjectToPillarObjectConverterTest >> testFigure [
-	self parse: factory figureSample createChildElementOfClass: PRFigure
-]
-
-{ #category : 'tests' }
-MicMicrodownObjectToPillarObjectConverterTest >> testHeader [ 
-	self parse: factory headerLevel3Sample createElementOfClass: PRHeader
-]
-
-{ #category : 'tests' }
-MicMicrodownObjectToPillarObjectConverterTest >> testHorizontalLineBlock [
-	self parse: factory horizontalLineSample createElementOfClass: PRHorizontalRule
-	
-]
-
-{ #category : 'tests-inline blocks' }
-MicMicrodownObjectToPillarObjectConverterTest >> testItalicFormat [
-	self parse: factory italicFormatSample createChildElementOfClass: PRItalicFormat
-]
-
-{ #category : 'tests-inline blocks' }
-MicMicrodownObjectToPillarObjectConverterTest >> testItalicFormatEmpty [
-	| italicBlock |
-	italicBlock := self parse: factory italicFormatEmptySample createChildElementOfClass: PRItalicFormat.
-	self assert: italicBlock text equals: ''
-]
-
-{ #category : 'tests-inline blocks' }
-MicMicrodownObjectToPillarObjectConverterTest >> testLink [
-	self parse: factory linkSample createChildElementOfClass: PRExternalLink
-]
-
-{ #category : 'tests' }
-MicMicrodownObjectToPillarObjectConverterTest >> testListItem [
-	self parse: factory listMultiSample createChildElementOfClass: PRListItem
-	
-]
-
-{ #category : 'tests' }
-MicMicrodownObjectToPillarObjectConverterTest >> testMathBlock [
-	self parse: factory mathParametersSample createElementOfClass: PRMathEnvironment
-	
-]
-
-{ #category : 'tests-inline blocks' }
-MicMicrodownObjectToPillarObjectConverterTest >> testMathInline [
-	self parse: factory mathInlineSample createChildElementOfClass: PRMathInTextAnnotation
-]
-
-{ #category : 'tests' }
-MicMicrodownObjectToPillarObjectConverterTest >> testMetaDataBlock [
-	self parse: factory metaDataSample createElementOfClass: PRMetadata
-	
-]
-
-{ #category : 'tests-inline blocks' }
-MicMicrodownObjectToPillarObjectConverterTest >> testMonospaceFormat [
-	self parse: factory monospaceFormatSample createChildElementOfClass: PRMonospaceFormat
-]
-
-{ #category : 'tests-inline blocks' }
-MicMicrodownObjectToPillarObjectConverterTest >> testMonospaceFormatEmpty [
-	| monospaceBloc |
-	monospaceBloc := self parse: factory monospaceFormatEmptySample createChildElementOfClass: PRMonospaceFormat.
-	self assert: monospaceBloc text equals: ''
-]
-
-{ #category : 'tests' }
-MicMicrodownObjectToPillarObjectConverterTest >> testNumberedList [
-	| document |
-	document := (self parserClass new 
-		parse: MicMicrodownSnippetFactory new orderedListWithTwoItemsSample).
-	document := document accept: visitor.
-	self assert: document children first class equals: PROrderedList.
-	self
-		assert: document children first children first class
-		equals: PRListItem.
-	self
-		assert: document children first children second class
-		equals: PRListItem
-]
-
-{ #category : 'tests' }
-MicMicrodownObjectToPillarObjectConverterTest >> testQuoteBlock [
-	| source root pillarNode |
-	source := '> text1
->    text2'.
-	root := self parserClass new parse: source.
-	self assert: root children size equals: 1.
-	pillarNode := root children first accept: visitor.
-	self assert: pillarNode class equals: PRPreformatted.
-	self
-		assert: pillarNode text
-		equals:
-			'text1
-text2'
-]
-
-{ #category : 'tests-inline blocks' }
-MicMicrodownObjectToPillarObjectConverterTest >> testRawFormat [
-	self skip.
-	self flag: #fixme.
-	"PRRaw don't understand setChildren"
-	self parse: factory rawFormatSample createChildSecondElementOfClass: PRRaw
-]
-
-{ #category : 'tests' }
-MicMicrodownObjectToPillarObjectConverterTest >> testRoot [
-	| source root pillar |
-	source := '####    Level four
-## Level 2'.
-	root := self parserClass new parse: source.
-	pillar := root accept: visitor.
-	self assert: pillar class equals: PRDocument.
-	self assert: pillar children second class equals: PRHeader.
-	self assert: pillar children first level equals: 4
-]
-
-{ #category : 'tests' }
-MicMicrodownObjectToPillarObjectConverterTest >> testSingleLevelOrderedList2 [
-	| source root list |
-	source := '19. item 1
-    expanded
-7.  item 2'.
-	root := self parserClass new parse: source.
-	list := root children first accept: visitor.
-	self assert: list class equals: PROrderedList .
-	self assert: list children size equals: 2.
-	self
-		assert: list children first text
-		equals:
-			'item 1
-expanded'.
-	self assert: list counter equals: 19
-]
-
-{ #category : 'tests' }
-MicMicrodownObjectToPillarObjectConverterTest >> testSingleLevelUnorderedList2 [
-	| source root list item |
-	source := '- item 1
-  expanded
-- item 2'.
-	root := self parserClass new parse: source.
-	list := root children first accept: visitor.
-	self assert: list class equals: PRUnorderedList.
-	self assert: list children size equals: 2.
-	item := list children first.
-	self assert: item class equals: PRListItem.
-	self
-		assert: item children first text
-		equals:
-			'item 1
-expanded'
-]
-
-{ #category : 'tests' }
-MicMicrodownObjectToPillarObjectConverterTest >> testSingleParagraphWithIndentedText [
-	| source root expected pillar |
-	source := 'This is
-   a paragraph with spaces
-	and one with tabs'.
-	expected := 'This is
-a paragraph with spaces
-and one with tabs'.
-	root := self parserClass new parse: source.
-	pillar := root children first accept: visitor.
-	self assert: pillar class equals: PRParagraph.
-	self assert: pillar children first class equals: PRText.
-	self assert: pillar children first text equals: expected
-]
-
-{ #category : 'tests-inline blocks' }
-MicMicrodownObjectToPillarObjectConverterTest >> testStrikethroughFormat [
-	self parse: factory strikethroughFormatSample createChildElementOfClass: PRStrikethroughFormat
-]
-
-{ #category : 'tests-inline blocks' }
-MicMicrodownObjectToPillarObjectConverterTest >> testStrikethroughFormatEmpty [
-	| strikeBlock |
-	strikeBlock := self parse: factory strikethroughFormatEmptySample createChildElementOfClass: PRStrikethroughFormat.
-	self assert: strikeBlock text equals: ''
-]
-
-{ #category : 'tests' }
-MicMicrodownObjectToPillarObjectConverterTest >> testTableBlock [
-
-	self parse: factory simpleTable createElementOfClass: PRTable
-]
-
-{ #category : 'tests' }
-MicMicrodownObjectToPillarObjectConverterTest >> testTableFormatBlock [
-
-	self parse: factory simpleTableMoreFormat createElementOfClass: PRTable
-]
-
-{ #category : 'tests-inline blocks' }
-MicMicrodownObjectToPillarObjectConverterTest >> testText [
-	| source root pillar |
-	source := 'Foo'.
-	root := (self parserClass new parse: source) children first children first.
-	pillar := root accept: visitor.
-	self assert: pillar class equals: PRText
-]
-
-{ #category : 'tests' }
-MicMicrodownObjectToPillarObjectConverterTest >> testTwoLevelUnorderedList1 [
-	| source root list secondItem subItem |
-	source := '- item 1
-  - sublevel
-- item 2'.
-	root := self parserClass new parse: source.
-	list := root children first accept: visitor.
-	secondItem := list children second.
-	self assert: secondItem class equals: PRListItem.
-	self assert: secondItem children first class equals: PRText.
-	self assert: secondItem children first text equals: 'item 2'.
-	subItem := list children first children second.
-	self assert: subItem class equals: PRUnorderedList.
-	self
-		assert: subItem children first text
-		equals: 'sublevel'	"item 1"	"unorded list"	"sub item"
-]
diff --git a/src/Microdown-Pillar-Tests/MicOrderedListBlockTest.extension.st b/src/Microdown-Pillar-Tests/MicOrderedListBlockTest.extension.st
deleted file mode 100644
index fca6013a..00000000
--- a/src/Microdown-Pillar-Tests/MicOrderedListBlockTest.extension.st
+++ /dev/null
@@ -1,19 +0,0 @@
-Extension { #name : 'MicOrderedListBlockTest' }
-
-{ #category : '*Microdown-Pillar-Tests' }
-MicOrderedListBlockTest >> testSingleLevelList2asPillar [
-	| source root list |
-	source := '19. item 1
-    expanded
-7.  item 2'.
-	root := parser parse: source.
-	list := root children first asPillar.
-	self assert: list class equals: PROrderedList .
-	self assert: list children size equals: 2.
-	self
-		assert: list children first text
-		equals:
-			'item 1
-expanded'.
-	self assert: list counter equals: 19
-]
diff --git a/src/Microdown-Pillar-Tests/MicParagraphBlockTest.extension.st b/src/Microdown-Pillar-Tests/MicParagraphBlockTest.extension.st
deleted file mode 100644
index 51e24483..00000000
--- a/src/Microdown-Pillar-Tests/MicParagraphBlockTest.extension.st
+++ /dev/null
@@ -1,33 +0,0 @@
-Extension { #name : 'MicParagraphBlockTest' }
-
-{ #category : '*Microdown-Pillar-Tests' }
-MicParagraphBlockTest >> testSingleParagraphWithFormat [
-	| source root pillar |
-	source := 'This **paragraph** with spaces'.
-	root := parser parse: source.
-	pillar := root children first asPillar.
-	self assert: pillar class equals: PRParagraph.
-	self assert: pillar children first class equals: PRText.
-	self assert: pillar children first text equals: 'This '.
-	self assert: pillar children second class equals: PRBoldFormat.
-	self assert: pillar children third class equals: PRText.
-	self assert: pillar children third text equals: ' with spaces'.
-	 
-	
-]
-
-{ #category : '*Microdown-Pillar-Tests' }
-MicParagraphBlockTest >> testSingleParagraphWithIndentedTextAsPillar [
-	| source root expected pillar |
-	source := 'This is
-   a paragraph with spaces
-	and one with tabs'.
-	expected := 'This is
-a paragraph with spaces
-and one with tabs'.
-	root := parser parse: source.
-	pillar := root children first asPillar.
-	self assert: pillar class equals: PRParagraph.
-	self assert: pillar children first class equals: PRText.
-	self assert: pillar children first text equals: expected
-]
diff --git a/src/Microdown-Pillar-Tests/MicQuoteBlockTest.extension.st b/src/Microdown-Pillar-Tests/MicQuoteBlockTest.extension.st
deleted file mode 100644
index c276187f..00000000
--- a/src/Microdown-Pillar-Tests/MicQuoteBlockTest.extension.st
+++ /dev/null
@@ -1,17 +0,0 @@
-Extension { #name : 'MicQuoteBlockTest' }
-
-{ #category : '*Microdown-Pillar-Tests' }
-MicQuoteBlockTest >> testQuoteBlockAsPilar [
-	| source root pillarNode |
-	source := '> text1
->    text2'.
-	root := parser parse: source.
-	self assert: root children size equals: 1.
-	pillarNode := root children first asPillar.
-	self assert: pillarNode class equals: PRPreformatted.
-	self
-		assert: pillarNode text
-		equals:
-			'text1
-text2'
-]
diff --git a/src/Microdown-Pillar-Tests/MicRawBlockTest.extension.st b/src/Microdown-Pillar-Tests/MicRawBlockTest.extension.st
deleted file mode 100644
index feda1b1d..00000000
--- a/src/Microdown-Pillar-Tests/MicRawBlockTest.extension.st
+++ /dev/null
@@ -1,22 +0,0 @@
-Extension { #name : 'MicRawBlockTest' }
-
-{ #category : '*Microdown-Pillar-Tests' }
-MicRawBlockTest >> testRawAsBackslash [
-	"backslash should not be expanded in raw"
-	| source rawBlock pillar |
-	source := 'bla {{ aRaw\Text }} bla'.
-	rawBlock := (parser parse: source) children first children second.
-	pillar := rawBlock asPillar.
-	self assert: pillar class equals: PRRaw.
-	self assert: pillar text equals: ' aRaw\Text '
-]
-
-{ #category : '*Microdown-Pillar-Tests' }
-MicRawBlockTest >> testRawAsPillar [
-	| source rawBlock pillar |
-	source := 'bla {{ aRawText }} bla'.
-	rawBlock := (parser parse: source) children first children second.
-	pillar := rawBlock asPillar.
-	self assert: pillar class equals: PRRaw.
-	self assert: pillar text equals: ' aRawText '
-]
diff --git a/src/Microdown-Pillar-Tests/MicRootBlockTest.extension.st b/src/Microdown-Pillar-Tests/MicRootBlockTest.extension.st
deleted file mode 100644
index ba3d21ef..00000000
--- a/src/Microdown-Pillar-Tests/MicRootBlockTest.extension.st
+++ /dev/null
@@ -1,13 +0,0 @@
-Extension { #name : 'MicRootBlockTest' }
-
-{ #category : '*Microdown-Pillar-Tests' }
-MicRootBlockTest >> testRootAsPillar [
-	| source root pillar |
-	source := '####    Level four
-## Level 2'.
-	root := parser parse: source.
-	pillar := root asPillar.
-	self assert: pillar class equals: PRDocument.
-	self assert: pillar children second class equals: PRHeader.
-	self assert: pillar children first level equals: 4
-]
diff --git a/src/Microdown-Pillar-Tests/MicTextualMicrodownToPillarTest.class.st b/src/Microdown-Pillar-Tests/MicTextualMicrodownToPillarTest.class.st
deleted file mode 100644
index fb234db9..00000000
--- a/src/Microdown-Pillar-Tests/MicTextualMicrodownToPillarTest.class.st
+++ /dev/null
@@ -1,340 +0,0 @@
-"
-This test case uses the microdownSnippetFactory and test that the conversion to Pillar object trees is correct. 
-This is why it is in this package
-
-Microdown text -> Microdown trees -> Pillar trees
-
-Te tests are just checking that object of the correct class is created. 
-Future extensions should handle the details.
-"
-Class {
-	#name : 'MicTextualMicrodownToPillarTest',
-	#superclass : 'TestCase',
-	#instVars : [
-		'factory'
-	],
-	#category : 'Microdown-Pillar-Tests',
-	#package : 'Microdown-Pillar-Tests'
-}
-
-{ #category : 'tests - anchor' }
-MicTextualMicrodownToPillarTest >> anchorClass [
-
-	^ PRAnchor
-]
-
-{ #category : 'tests - codeblock' }
-MicTextualMicrodownToPillarTest >> codeBlockClass [
-	^ PRCodeblock
-]
-
-{ #category : 'accessing' }
-MicTextualMicrodownToPillarTest >> factory [
-
-	^ factory
-]
-
-{ #category : 'accessing' }
-MicTextualMicrodownToPillarTest >> factory: aFactory [
-
-	factory := aFactory
-]
-
-{ #category : 'tests - header' }
-MicTextualMicrodownToPillarTest >> headerClass [
-	^ PRHeader
-]
-
-{ #category : 'tests - list' }
-MicTextualMicrodownToPillarTest >> orderedListClass [
-	^ PROrderedList
-]
-
-{ #category : 'accessing' }
-MicTextualMicrodownToPillarTest >> parse: sample createChildElementOfClass: aClass [
-
-	| parser micDoc pillarDoc |
-	parser := self parserClass new. 
-	micDoc := parser parse: sample.
-	pillarDoc := micDoc asPillar.
-	self assert: pillarDoc children first children first class equals: aClass.
-	^ pillarDoc children first children first
-]
-
-{ #category : 'accessing' }
-MicTextualMicrodownToPillarTest >> parse: sample createElementOfClass: aClass [
-
-	| parser micDoc pillarDoc |
-	parser := self parserClass new. 
-	micDoc := parser parse: sample.
-	pillarDoc := micDoc asPillar.
-	self assert: pillarDoc children first class equals: aClass.
-]
-
-{ #category : 'accessing' }
-MicTextualMicrodownToPillarTest >> parseCreateDocument: sample [ 
-
-	| parser micDoc pillarDoc |
-	parser := self parserClass new. 
-	micDoc := parser parse: sample.
-	pillarDoc := micDoc asPillar.
-	self assert: pillarDoc class equals: PRDocument.
-]
-
-{ #category : 'accessing' }
-MicTextualMicrodownToPillarTest >> parserClass [
-	^ Microdown   
-]
-
-{ #category : 'tests - document' }
-MicTextualMicrodownToPillarTest >> rootBlockClass [
-
-	^ PRDocument
-]
-
-{ #category : 'running' }
-MicTextualMicrodownToPillarTest >> setUp [ 
-	super setUp.
-	self factory: MicMicrodownSnippetFactory new.
-]
-
-{ #category : 'tests - anchor' }
-MicTextualMicrodownToPillarTest >> testAnchor [
-	self parse: factory anchorSample createElementOfClass: self anchorClass
-]
-
-{ #category : 'tests - anchor' }
-MicTextualMicrodownToPillarTest >> testAnchorAreTrimed [
-	self parse: factory anchorAreTrimedSample createElementOfClass: self anchorClass
-]
-
-{ #category : 'tests - anchor' }
-MicTextualMicrodownToPillarTest >> testAnchorWithNewLine [
-	self parse: factory anchorWithNewLineSample createElementOfClass:  self anchorClass
-]
-
-{ #category : 'tests - anchor' }
-MicTextualMicrodownToPillarTest >> testAnchorWithSpaceInside [
-	self parse: factory anchorWithSpaceInsideSample createElementOfClass:  self anchorClass
-]
-
-{ #category : 'tests - format' }
-MicTextualMicrodownToPillarTest >> testBoldFormat [
-	self parse: factory boldFormatSample createChildElementOfClass: PRBoldFormat
-]
-
-{ #category : 'tests - format' }
-MicTextualMicrodownToPillarTest >> testBoldFormatEmpty [
-	| boldBlock |
-	self skip.
-	"the parser parse '****' and return a HorizontalBlock"
-	boldBlock := self parse: factory boldFormatEmptySample createChildElementOfClass: PRBoldFormat.
-	self assert: boldBlock text equals: ''
-]
-
-{ #category : 'tests - header' }
-MicTextualMicrodownToPillarTest >> testHeaderEmpty [
-	self parse: factory headerEmptySample createElementOfClass: self headerClass
-]
-
-{ #category : 'tests - header' }
-MicTextualMicrodownToPillarTest >> testHeaderLevel1 [
-	self parse: factory headerLevel1Sample createElementOfClass: self headerClass
-]
-
-{ #category : 'tests - header' }
-MicTextualMicrodownToPillarTest >> testHeaderLevel2 [
-	self parse: factory headerLevel2Sample createElementOfClass: self headerClass
-]
-
-{ #category : 'tests - header' }
-MicTextualMicrodownToPillarTest >> testHeaderLevel3 [
-	self parse: factory headerLevel3Sample createElementOfClass: self headerClass
-]
-
-{ #category : 'tests - header' }
-MicTextualMicrodownToPillarTest >> testHeaderLevel4 [
-	self parse: factory headerLevel4Sample createElementOfClass: self headerClass
-]
-
-{ #category : 'tests - header' }
-MicTextualMicrodownToPillarTest >> testHeaderLevel5 [
-	self parse: factory headerLevel5Sample createElementOfClass: self headerClass
-]
-
-{ #category : 'tests - header' }
-MicTextualMicrodownToPillarTest >> testHeaderWithFormat [
-	self parse: factory headerWithFormatSample createElementOfClass: self headerClass
-]
-
-{ #category : 'tests - header' }
-MicTextualMicrodownToPillarTest >> testHeaderWithNewLine [
-	self parse: factory headerWithNewLineSample createElementOfClass: self headerClass
-]
-
-{ #category : 'tests - format' }
-MicTextualMicrodownToPillarTest >> testItalicFormat [
-	self parse: factory italicFormatSample createChildElementOfClass: PRItalicFormat
-]
-
-{ #category : 'tests - format' }
-MicTextualMicrodownToPillarTest >> testItalicFormatEmpty [
-	| italicBlock |
-	italicBlock := self parse: factory italicFormatEmptySample createChildElementOfClass: PRItalicFormat.
-	self assert: italicBlock text equals: ''
-]
-
-{ #category : 'tests - document' }
-MicTextualMicrodownToPillarTest >> testLineEnd [
-	self parseCreateDocument: factory lineEndSample 
-]
-
-{ #category : 'tests - document' }
-MicTextualMicrodownToPillarTest >> testLineEndwithNewline [
-	self parseCreateDocument: factory lineEndwithNewlineSample 
-]
-
-{ #category : 'tests - list' }
-MicTextualMicrodownToPillarTest >> testListMulti [
-	self parse: factory listMultiSample createElementOfClass: self unorderedListClass
-]
-
-{ #category : 'tests - list' }
-MicTextualMicrodownToPillarTest >> testListWithComment [
-	self parse: factory listWithCommentSample createElementOfClass: self orderedListClass 
-]
-
-{ #category : 'tests - format' }
-MicTextualMicrodownToPillarTest >> testMonospaceFormat [
-	self parse: factory monospaceFormatSample createChildElementOfClass: PRMonospaceFormat
-]
-
-{ #category : 'tests - format' }
-MicTextualMicrodownToPillarTest >> testMonospaceFormatEmpty [
-	| monospaceBloc |
-	monospaceBloc := self parse: factory monospaceFormatEmptySample createChildElementOfClass: PRMonospaceFormat.
-	self assert: monospaceBloc text equals: ''
-]
-
-{ #category : 'tests - document' }
-MicTextualMicrodownToPillarTest >> testNewline [
-	self parseCreateDocument: factory newlineSample 
-]
-
-{ #category : 'tests - document' }
-MicTextualMicrodownToPillarTest >> testNewlineCR [
-	self parseCreateDocument: factory newlineCRSample 
-]
-
-{ #category : 'tests - document' }
-MicTextualMicrodownToPillarTest >> testNewlineCRLF [
-	self parseCreateDocument: factory newlineCRLFSample 
-]
-
-{ #category : 'tests - document' }
-MicTextualMicrodownToPillarTest >> testNewlineLF [
-	self parseCreateDocument: factory newlineLFSample 
-]
-
-{ #category : 'tests - list' }
-MicTextualMicrodownToPillarTest >> testOrderedList [
-	self parse: factory orderedListSample createElementOfClass: self orderedListClass
-]
-
-{ #category : 'tests - list' }
-MicTextualMicrodownToPillarTest >> testOrderedListEmpty [
-	self parse: factory orderedListEmptySample createElementOfClass: self orderedListClass
-]
-
-{ #category : 'tests - list' }
-MicTextualMicrodownToPillarTest >> testOrderedListWithTwoItems [
-	self
-		parse: factory orderedListWithTwoItemsSample
-		createElementOfClass: self orderedListClass
-]
-
-{ #category : 'tests - codeblock' }
-MicTextualMicrodownToPillarTest >> testScript [
-	self
-		parse: factory blockSampleOnMultipleLines
-		createElementOfClass: self codeBlockClass
-]
-
-{ #category : 'tests - codeblock' }
-MicTextualMicrodownToPillarTest >> testScriptParameterTrueByDefault [
-	self 
-		parse: factory blockWithParameterTrueByDefaultSample 
-		createElementOfClass: self codeBlockClass 
-]
-
-{ #category : 'tests - codeblock' }
-MicTextualMicrodownToPillarTest >> testScriptParameterWithFloat [
-	self parse: factory blockWithParameterWithFloatSample createElementOfClass: self codeBlockClass 
-]
-
-{ #category : 'tests - codeblock' }
-MicTextualMicrodownToPillarTest >> testScriptParameterWithNoValues [
-	self parse: factory blockWithParameterWithNoValuesSample createElementOfClass: self codeBlockClass 
-]
-
-{ #category : 'tests - codeblock' }
-MicTextualMicrodownToPillarTest >> testScriptWithLanguage [
-	self parse: factory blockWithLanguageSample createElementOfClass: self codeBlockClass 
-]
-
-{ #category : 'tests - codeblock' }
-MicTextualMicrodownToPillarTest >> testScriptWithNewLine [
-	self parse: factory blockWithNewLineSample createElementOfClass: self codeBlockClass 
-]
-
-{ #category : 'tests - codeblock' }
-MicTextualMicrodownToPillarTest >> testScriptWithSpaceAtTheEnd [
-	self parse: factory blockWithSpaceAtTheEndSample createElementOfClass: self codeBlockClass 
-]
-
-{ #category : 'tests - codeblock' }
-MicTextualMicrodownToPillarTest >> testScriptWithSpacedParameters [
-	self parse: factory blockWithSpacedParametersSample createElementOfClass: self codeBlockClass
-]
-
-{ #category : 'tests - format' }
-MicTextualMicrodownToPillarTest >> testStrikethroughFormat [
-	self parse: factory strikethroughFormatSample createChildElementOfClass: PRStrikethroughFormat
-]
-
-{ #category : 'tests - format' }
-MicTextualMicrodownToPillarTest >> testStrikethroughFormatEmpty [
-	| strikeBlock |
-	strikeBlock := self parse: factory strikethroughFormatEmptySample createChildElementOfClass: PRStrikethroughFormat.
-	self assert: strikeBlock text equals: ''
-]
-
-{ #category : 'tests - list' }
-MicTextualMicrodownToPillarTest >> testUnorderedList [
-	self parse: factory unorderedListSample createElementOfClass: self unorderedListClass 
-]
-
-{ #category : 'tests - list' }
-MicTextualMicrodownToPillarTest >> testUnorderedListEmpty [
-	self parse: factory unorderedListEmptySample createElementOfClass: self unorderedListClass 
-]
-
-{ #category : 'tests - list' }
-MicTextualMicrodownToPillarTest >> testUnorderedListWithSubList [
-	self
-		parse: factory unorderedListWithSubListSample
-		createElementOfClass: self unorderedListClass 
-]
-
-{ #category : 'tests - list' }
-MicTextualMicrodownToPillarTest >> testUnorderedListWithTwoItems [
-	self
-		parse: factory unorderedListWithTwoItemsSample
-		createElementOfClass: self unorderedListClass 
-]
-
-{ #category : 'tests - list' }
-MicTextualMicrodownToPillarTest >> unorderedListClass [
-
-	^ PRUnorderedList 
-]
diff --git a/src/Microdown-Pillar-Tests/MicToPillarBasicTest.class.st b/src/Microdown-Pillar-Tests/MicToPillarBasicTest.class.st
deleted file mode 100644
index 5cd86c24..00000000
--- a/src/Microdown-Pillar-Tests/MicToPillarBasicTest.class.st
+++ /dev/null
@@ -1,68 +0,0 @@
-Class {
-	#name : 'MicToPillarBasicTest',
-	#superclass : 'TestCase',
-	#instVars : [
-		'pillarDocument'
-	],
-	#category : 'Microdown-Pillar-Tests',
-	#package : 'Microdown-Pillar-Tests'
-}
-
-{ #category : 'tests' }
-MicToPillarBasicTest >> parserClass [
-	^ Microdown
-]
-
-{ #category : 'tests' }
-MicToPillarBasicTest >> testCodeBlock [
-
-	| document |
-	document := self parserClass new parse: '```language=pharo
-	1-2 
-```'.
-	self assert: document asPillar children first class equals: PRCodeblock.
-	
-]
-
-{ #category : 'tests' }
-MicToPillarBasicTest >> testCodeInText [
-
-	| document |
-	document := self parserClass new parse: 'The method `foo` is fun'.
-	pillarDocument := document asPillar.
-	self assert: pillarDocument children first class equals: PRParagraph.
-	self assert: pillarDocument children first children second class equals: PRMonospaceFormat 
-	
-	
-]
-
-{ #category : 'tests' }
-MicToPillarBasicTest >> testHeader [ 
-
-	| document |
-	document := self parserClass new parse: '# Header1
-	
-## Header 2
-	
-### Header 3'.
-	pillarDocument := document asPillar.
-	"we could have use Grammar headerMarkup to build the text but this is clearer like that"
-	self assert: pillarDocument children first class equals: PRHeader.
-	self assert: pillarDocument children third class equals: PRHeader.
-	self assert: pillarDocument children fifth class equals: PRHeader
-	
-]
-
-{ #category : 'tests' }
-MicToPillarBasicTest >> testNumberedList [
-	| document |
-	document := (self parserClass new 
-		parse: MicMicrodownSnippetFactory new orderedListWithTwoItemsSample) asPillar.
-	self assert: document children first class equals: PROrderedList.
-	self
-		assert: document children first children first class
-		equals: PRListItem.
-	self
-		assert: document children first children second class
-		equals: PRListItem
-]
diff --git a/src/Microdown-Pillar-Tests/MicUnorderedListBlockTest.extension.st b/src/Microdown-Pillar-Tests/MicUnorderedListBlockTest.extension.st
deleted file mode 100644
index ed8b7fdf..00000000
--- a/src/Microdown-Pillar-Tests/MicUnorderedListBlockTest.extension.st
+++ /dev/null
@@ -1,80 +0,0 @@
-Extension { #name : 'MicUnorderedListBlockTest' }
-
-{ #category : '*Microdown-Pillar-Tests' }
-MicUnorderedListBlockTest >> testSingleLevelList2asPillar [
-	| source root list item |
-	source := '- item 1
-  expanded
-- item 2'.
-	root := parser parse: source.
-	list := root children first asPillar.
-	self assert: list class equals: PRUnorderedList.
-	self assert: list children size equals: 2.
-	item := list children first.
-	self assert: item class equals: PRListItem.
-	self
-		assert: item children first text
-		equals:
-			'item 1
-expanded'
-]
-
-{ #category : '*Microdown-Pillar-Tests' }
-MicUnorderedListBlockTest >> testSingleLevelList2asPillarWithFormatting [
-	| source root prlist item |
-	source := '- **item 1** expanded
-- item 2'.
-	root := parser parse: source.
-	prlist := root children first asPillar.
-	self assert: prlist class equals: PRUnorderedList.
-	self assert: prlist children size equals: 2.
-	item := prlist children first.
-	self assert: item class equals: PRListItem.
-	self
-		assert: item children first text
-		equals:
-			'item 1'.
-			
-	self
-		assert: item children second text
-		equals:
-			' expanded'.
-]
-
-{ #category : '*Microdown-Pillar-Tests' }
-MicUnorderedListBlockTest >> testTwoLevelList1AsPillar [
-	| source root list secondItem subItem |
-	source := '- item 1
-  - sublevel
-- item 2'.
-	root := parser parse: source.
-	list := root children first asPillar.
-	secondItem := list children second.
-	self assert: secondItem class equals: PRListItem.
-	self assert: secondItem children first class equals: PRText.
-	self assert: secondItem children first text equals: 'item 2'.
-	subItem := list children first children second.
-	self assert: subItem class equals: PRUnorderedList.
-	self
-		assert: subItem children first text
-		equals: 'sublevel'	"item 1"	"unorded list"	"sub item"
-]
-
-{ #category : '*Microdown-Pillar-Tests' }
-MicUnorderedListBlockTest >> testTwoLevelList1AsPillarWithFormatting [
-	| source root list secondItem subItem |
-	source := '- item 1
-  - `sublevel`
-- item 2'.
-	root := parser parse: source.
-	list := root children first asPillar.
-	secondItem := list children second.
-	self assert: secondItem class equals: PRListItem.
-	self assert: secondItem children first class equals: PRText.
-	self assert: secondItem children first text equals: 'item 2'.
-	subItem := list children first children second.
-	self assert: subItem class equals: PRUnorderedList.
-	self
-		assert: subItem children first children first class
-		equals: PRMonospaceFormat	"item 1"	"unorded list"	"sub item"
-]
diff --git a/src/Microdown-Pillar/ManifestMicrodownPillar.class.st b/src/Microdown-Pillar/ManifestMicrodownPillar.class.st
deleted file mode 100644
index bcb35b9c..00000000
--- a/src/Microdown-Pillar/ManifestMicrodownPillar.class.st
+++ /dev/null
@@ -1,12 +0,0 @@
-"
-I'm extending the microdown object model to support the generation of Pillar elements.
-
-My main method is `asPillar`.
-"
-Class {
-	#name : 'ManifestMicrodownPillar',
-	#superclass : 'PackageManifest',
-	#category : 'Microdown-Pillar-Manifest',
-	#package : 'Microdown-Pillar',
-	#tag : 'Manifest'
-}
diff --git a/src/Microdown-Pillar/MicAbstractBlock.extension.st b/src/Microdown-Pillar/MicAbstractBlock.extension.st
deleted file mode 100644
index dc2c088b..00000000
--- a/src/Microdown-Pillar/MicAbstractBlock.extension.st
+++ /dev/null
@@ -1,13 +0,0 @@
-Extension { #name : 'MicAbstractBlock' }
-
-{ #category : '*Microdown-Pillar' }
-MicAbstractBlock >> pillarFrom: aCollectionOfMicElements [
-	
-	^ aCollectionOfMicElements collect: [ :e | e accept: MicMicrodownObjectToPillarObjectConverter new ]
-]
-
-{ #category : '*Microdown-Pillar' }
-MicAbstractBlock >> pillarFromString: aString [
-	
-	^ MicInlineParser new pillarFrom: aString
-]
diff --git a/src/Microdown-Pillar/MicAnchorReferenceBlock.extension.st b/src/Microdown-Pillar/MicAnchorReferenceBlock.extension.st
deleted file mode 100644
index 6057336c..00000000
--- a/src/Microdown-Pillar/MicAnchorReferenceBlock.extension.st
+++ /dev/null
@@ -1,6 +0,0 @@
-Extension { #name : 'MicAnchorReferenceBlock' }
-
-{ #category : '*Microdown-Pillar' }
-MicAnchorReferenceBlock >> associatedPillarClass [
-	^ PRInternalLink
-]
diff --git a/src/Microdown-Pillar/MicAnnotationBlock.extension.st b/src/Microdown-Pillar/MicAnnotationBlock.extension.st
deleted file mode 100644
index 9bccd56c..00000000
--- a/src/Microdown-Pillar/MicAnnotationBlock.extension.st
+++ /dev/null
@@ -1,8 +0,0 @@
-Extension { #name : 'MicAnnotationBlock' }
-
-{ #category : '*Microdown-Pillar' }
-MicAnnotationBlock >> associatedPillarClass [ 
-
-	^  PRAbstractAnnotation findClassAcceptingTag: self name ifNone: [ PRUndefinedAnnotation ]
-	
-]
diff --git a/src/Microdown-Pillar/MicBoldFormatBlock.extension.st b/src/Microdown-Pillar/MicBoldFormatBlock.extension.st
deleted file mode 100644
index 839b36ce..00000000
--- a/src/Microdown-Pillar/MicBoldFormatBlock.extension.st
+++ /dev/null
@@ -1,6 +0,0 @@
-Extension { #name : 'MicBoldFormatBlock' }
-
-{ #category : '*Microdown-Pillar' }
-MicBoldFormatBlock >> associatedPillarClass [
-	^ PRBoldFormat
-]
diff --git a/src/Microdown-Pillar/MicElement.extension.st b/src/Microdown-Pillar/MicElement.extension.st
deleted file mode 100644
index f7ef0e92..00000000
--- a/src/Microdown-Pillar/MicElement.extension.st
+++ /dev/null
@@ -1,7 +0,0 @@
-Extension { #name : 'MicElement' }
-
-{ #category : '*Microdown-Pillar' }
-MicElement >> asPillar [
-
-	^ self accept: MicMicrodownObjectToPillarObjectConverter new
-]
diff --git a/src/Microdown-Pillar/MicFigureBlock.extension.st b/src/Microdown-Pillar/MicFigureBlock.extension.st
deleted file mode 100644
index 717490a8..00000000
--- a/src/Microdown-Pillar/MicFigureBlock.extension.st
+++ /dev/null
@@ -1,6 +0,0 @@
-Extension { #name : 'MicFigureBlock' }
-
-{ #category : '*Microdown-Pillar' }
-MicFigureBlock >> associatedPillarClass [
-	^PRFigure
-]
diff --git a/src/Microdown-Pillar/MicInlineElement.extension.st b/src/Microdown-Pillar/MicInlineElement.extension.st
deleted file mode 100644
index 67f5b8f0..00000000
--- a/src/Microdown-Pillar/MicInlineElement.extension.st
+++ /dev/null
@@ -1,6 +0,0 @@
-Extension { #name : 'MicInlineElement' }
-
-{ #category : '*Microdown-Pillar' }
-MicInlineElement >> associatedPillarClass [
-	^ self subclassResponsibility
-]
diff --git a/src/Microdown-Pillar/MicInlineParser.extension.st b/src/Microdown-Pillar/MicInlineParser.extension.st
deleted file mode 100644
index b98e5882..00000000
--- a/src/Microdown-Pillar/MicInlineParser.extension.st
+++ /dev/null
@@ -1,10 +0,0 @@
-Extension { #name : 'MicInlineParser' }
-
-{ #category : '*Microdown-Pillar' }
-MicInlineParser >> pillarFrom: aString [
-
-	"return a collection of pillar nodes which can be used in setChildren: of the owner of aString"
-
-	^ (self parse: aString) collect: [ :node | 
-		  node accept: MicMicrodownObjectToPillarObjectConverter new ]
-]
diff --git a/src/Microdown-Pillar/MicItalicFormatBlock.extension.st b/src/Microdown-Pillar/MicItalicFormatBlock.extension.st
deleted file mode 100644
index 378551ce..00000000
--- a/src/Microdown-Pillar/MicItalicFormatBlock.extension.st
+++ /dev/null
@@ -1,6 +0,0 @@
-Extension { #name : 'MicItalicFormatBlock' }
-
-{ #category : '*Microdown-Pillar' }
-MicItalicFormatBlock >> associatedPillarClass [
-	^ PRItalicFormat
-]
diff --git a/src/Microdown-Pillar/MicLinkBlock.extension.st b/src/Microdown-Pillar/MicLinkBlock.extension.st
deleted file mode 100644
index 08c0d828..00000000
--- a/src/Microdown-Pillar/MicLinkBlock.extension.st
+++ /dev/null
@@ -1,6 +0,0 @@
-Extension { #name : 'MicLinkBlock' }
-
-{ #category : '*Microdown-Pillar' }
-MicLinkBlock >> associatedPillarClass [
-	^ PRExternalLink
-]
diff --git a/src/Microdown-Pillar/MicMathInlineBlock.extension.st b/src/Microdown-Pillar/MicMathInlineBlock.extension.st
deleted file mode 100644
index 13a57bff..00000000
--- a/src/Microdown-Pillar/MicMathInlineBlock.extension.st
+++ /dev/null
@@ -1,6 +0,0 @@
-Extension { #name : 'MicMathInlineBlock' }
-
-{ #category : '*Microdown-Pillar' }
-MicMathInlineBlock >> associatedPillarClass [
-	^ PRMathInTextAnnotation 
-]
diff --git a/src/Microdown-Pillar/MicMicrodownObjectToPillarObjectConverter.class.st b/src/Microdown-Pillar/MicMicrodownObjectToPillarObjectConverter.class.st
deleted file mode 100644
index d4c530ce..00000000
--- a/src/Microdown-Pillar/MicMicrodownObjectToPillarObjectConverter.class.st
+++ /dev/null
@@ -1,288 +0,0 @@
-"
-This visitor is about to disappeared. It was created just to make sure that we can have asPillar expressed as a visitor. 
-Now this visitor is working on non expanded code blocks.
-"
-Class {
-	#name : 'MicMicrodownObjectToPillarObjectConverter',
-	#superclass : 'MicrodownVisitor',
-	#category : 'Microdown-Pillar-Visitor',
-	#package : 'Microdown-Pillar',
-	#tag : 'Visitor'
-}
-
-{ #category : 'formatting' }
-MicMicrodownObjectToPillarObjectConverter >> formatBlock: aMicFormatBlock [
-	| childrenAsPillar |
-	childrenAsPillar := aMicFormatBlock isOnlyChild 
-		ifTrue: [ {(PRText new text: aMicFormatBlock substring )} ] 
-		ifFalse: [ aMicFormatBlock children collect: [:e | e accept: self ] ].
-	 ^ aMicFormatBlock associatedPillarClass new
-				setChildren: childrenAsPillar;
-				yourself
-]
-
-{ #category : 'formatting' }
-MicMicrodownObjectToPillarObjectConverter >> urlBlock: aMicUrlBlock [
-	
-	| queries urlString |
-	queries := aMicUrlBlock reference uri query.
-	aMicUrlBlock reference uri query: nil.
-	"UGLY we remove the query dicrtionary just to print."
-	urlString := aMicUrlBlock reference uri asString.
-	"the following test is needed as reported in https://github.com/pillar-markup/Microdown/issues/527"
-	urlString first = $/ ifTrue: [ urlString := urlString allButFirst ].
-	
-	aMicUrlBlock reference uri query: queries.
-	^ aMicUrlBlock associatedPillarClass new
-		  setChildren:
-			  ((aMicUrlBlock inlineParse: aMicUrlBlock substring) collect: [ :n | 
-					   n accept: self ]);
-		  reference: urlString;
-		  yourself
-]
-
-{ #category : 'visiting' }
-MicMicrodownObjectToPillarObjectConverter >> visitAnchor: aMicAnchorBlock [
- 	^ PRAnchor new name: aMicAnchorBlock label; yourself
-]
-
-{ #category : 'visiting inline' }
-MicMicrodownObjectToPillarObjectConverter >> visitAnchorReference: aMicAnchorReference [
-	^ PRInternalLink new anchor: aMicAnchorReference substring; yourself
-]
-
-{ #category : 'visiting' }
-MicMicrodownObjectToPillarObjectConverter >> visitAnnotated: aMicAnnotatedBlock [
- 	^ PRAnnotatedParagraph new 
-			annotation: aMicAnnotatedBlock label; 
-			setChildren: (aMicAnnotatedBlock pillarFrom: aMicAnnotatedBlock textElements);
-			yourself
-]
-
-{ #category : 'visiting inline' }
-MicMicrodownObjectToPillarObjectConverter >> visitAnnotation: aMicAnnotation [
-	^ aMicAnnotation associatedPillarClass new parameters: aMicAnnotation arguments
-]
-
-{ #category : 'visiting inline' }
-MicMicrodownObjectToPillarObjectConverter >> visitBold: aMicBold [
- 	^ self formatBlock: aMicBold
-]
-
-{ #category : 'visiting' }
-MicMicrodownObjectToPillarObjectConverter >> visitCell: aCell [
-	| cell |
-	cell := PRTableCell new.
-	aCell do: [ :each | cell add: (each accept: self)  ].
-	^ cell
-]
-
-{ #category : 'visiting' }
-MicMicrodownObjectToPillarObjectConverter >> visitCode: aMicCodeBlock [
-
-	| prBlock par pillars |
-	prBlock := PRCodeblock new.
-	prBlock text: aMicCodeBlock code.
-
-	aMicCodeBlock arguments keysAndValuesDo: [ :k :v | 
-		(aMicCodeBlock arguments includesKey: #language)
-			ifFalse: [ 
-				(aMicCodeBlock arguments keys first = k and: v isEmptyOrNil)
-					ifTrue: [ prBlock parameterAt: 'language' put: k ]
-					ifFalse: [ prBlock parameterAt: k put: v ] ]
-			ifTrue: [ prBlock parameterAt: k put: v ] ].
-
-	aMicCodeBlock hasCaption
-		ifTrue: [ 
-			prBlock parameters removeKey: #caption.
-			par := PRParagraph new.
-			pillars := aMicCodeBlock captionElements collect: [ :each | 
-				           each accept: MicMicrodownObjectToPillarObjectConverter new ].
-			pillars do: [ :each | par add: each ].
-			prBlock setCaption: par ]
-		ifFalse: [ 
-			prBlock caption "Yes this is not an accessor but something with side effect" ].
-	^ prBlock
-]
-
-{ #category : 'visiting' }
-MicMicrodownObjectToPillarObjectConverter >> visitComment: aMicCommentBlock [
- 	^ PRCommentedLine new
- 			text: aMicCommentBlock text ;
- 			yourself
-]
-
-{ #category : 'visiting' }
-MicMicrodownObjectToPillarObjectConverter >> visitEnvironment: aMicEnvironmentBlock [
-	
-	| env |
-	env := PREnvironment new 
-			name: aMicEnvironmentBlock environmentName;
-			parameters: aMicEnvironmentBlock arguments; yourself.
-	env add: (PRParagraph withAll: (aMicEnvironmentBlock pillarFrom: aMicEnvironmentBlock bodyElements)).
-	^ env
-]
-
-{ #category : 'visiting inline' }
-MicMicrodownObjectToPillarObjectConverter >> visitFigure: aMicFigureBlock [
-
-	| aPRFigure |
-	aPRFigure := self urlBlock: aMicFigureBlock.
-	^ aPRFigure
-		  label: aMicFigureBlock substring;
-		  parameters: aMicFigureBlock arguments;
-		  yourself
-]
-
-{ #category : 'visiting' }
-MicMicrodownObjectToPillarObjectConverter >> visitFormatBlock: aMicFormatBlock [
- 	| childrenAsPillar |
- 	childrenAsPillar := aMicFormatBlock isOnlyChild 
- 		ifTrue: [ {(PRText new text: aMicFormatBlock substring )} ] 
- 		ifFalse: [ aMicFormatBlock children collect: [:e | e accept: self ] ].
- 	 ^ aMicFormatBlock associatedPillarClass new
- 				setChildren: childrenAsPillar;
- 				yourself
-]
-
-{ #category : 'visiting' }
-MicMicrodownObjectToPillarObjectConverter >> visitHeader: aMicHeaderBlock [
-
- 	^ PRHeader new
-		level: aMicHeaderBlock level;
-		setChildren: (aMicHeaderBlock children collect: [:each | each accept: self ]);
-		yourself
-]
-
-{ #category : 'visiting' }
-MicMicrodownObjectToPillarObjectConverter >> visitHorizontalLine: anHorizontalLineBlock [
- 	^ PRHorizontalRule new 
-]
-
-{ #category : 'visiting inline' }
-MicMicrodownObjectToPillarObjectConverter >> visitItalic: aMicItalic [
- 	^ self formatBlock: aMicItalic
-]
-
-{ #category : 'visiting inline' }
-MicMicrodownObjectToPillarObjectConverter >> visitLink: aMicLink [
-
-	^ aMicLink associatedPillarClass new
-		  setChildren:
-			  ((aMicLink inlineParse: aMicLink substring) collect: [ :n | 
-					   n accept: self ]);
-		  reference: aMicLink url asString;
-		  yourself
-]
-
-{ #category : 'visiting' }
-MicMicrodownObjectToPillarObjectConverter >> visitListItem: aMicListItemBlock [
-	
- 	^ PRListItem new
-		setChildren: "(aMicListItemBlock pillarFrom: aMicListItemBlock textElements)," (aMicListItemBlock children collect: [:child| child accept: self]);
-		yourself;
-		yourself
-
-]
-
-{ #category : 'visiting' }
-MicMicrodownObjectToPillarObjectConverter >> visitMath: aMicMathBlock [
- 	| captionElements |
-	captionElements := aMicMathBlock arguments at: 'caption' ifAbsent: [ nil ]. 
-	captionElements isNotNil 
-		ifTrue: [ aMicMathBlock arguments at: 'caption' put: (aMicMathBlock pillarFrom: captionElements) ].
-	^ PRMathEnvironment new 
-	 	parameters: aMicMathBlock arguments;   
-		add: (PRText content: aMicMathBlock body);
-		yourself
-]
-
-{ #category : 'visiting inline' }
-MicMicrodownObjectToPillarObjectConverter >> visitMathInline: aMicMathInline [
- 	^ self formatBlock: aMicMathInline
-]
-
-{ #category : 'visiting inline' }
-MicMicrodownObjectToPillarObjectConverter >> visitMetaData: aMicMetaData [
- 	^ PRMetadata new 
-			metadata: aMicMetaData body; yourself
-]
-
-{ #category : 'visiting inline' }
-MicMicrodownObjectToPillarObjectConverter >> visitMonospace: aMicMonospace [
- 	^ self formatBlock: aMicMonospace
-]
-
-{ #category : 'visiting' }
-MicMicrodownObjectToPillarObjectConverter >> visitOrderedList: aMicOrderedListBlock [
- 	^ PROrderedList new
-		setChildren: (aMicOrderedListBlock children collect: [ :child | child accept: self ]);
-		counter: aMicOrderedListBlock startIndex;
-		yourself
-]
-
-{ #category : 'visiting' }
-MicMicrodownObjectToPillarObjectConverter >> visitParagraph: aMicParagraphBlock [
- 	^ PRParagraph  new
-		setChildren: (aMicParagraphBlock pillarFromString: aMicParagraphBlock text);
-		yourself
-]
-
-{ #category : 'visiting' }
-MicMicrodownObjectToPillarObjectConverter >> visitQuote: aMicQuoteBlock [
- 	^ PRPreformatted new
- 		setChildren: (aMicQuoteBlock pillarFromString: aMicQuoteBlock text);
- 		yourself
-]
-
-{ #category : 'visiting inline' }
-MicMicrodownObjectToPillarObjectConverter >> visitRaw: aMicRaw [
-	^ PRRaw new text: aMicRaw substring ; yourself 
-	
-]
-
-{ #category : 'visiting' }
-MicMicrodownObjectToPillarObjectConverter >> visitRoot: aMicRootBlock [
- 	^ PRDocument new
- 		setChildren: (aMicRootBlock children collect: [ :child | child accept: self ]);
- 		yourself
-
-]
-
-{ #category : 'visiting' }
-MicMicrodownObjectToPillarObjectConverter >> visitRow: aRow in: aTable at: i [
-
-	| row |
-	row := PRTableRow new.
-	i = 1 
-		ifTrue: [ aRow do: [ :cell | row add: ((self visitCell: cell) heading: true) ] ] 
-		ifFalse: [ aRow do: [ :cell | row add: (self visitCell: cell) ] ].
-	^ row
-]
-
-{ #category : 'visiting inline' }
-MicMicrodownObjectToPillarObjectConverter >> visitStrike: aMicStrike [
- 	^ self formatBlock: aMicStrike
-]
-
-{ #category : 'visiting' }
-MicMicrodownObjectToPillarObjectConverter >> visitTable: aTable [
-	| table |
-	table := PRTable new.
-	aTable rows doWithIndex: [ :row : i | 
-		table add: (self visitRow: row in: aTable at: i)].
-	^ table
-]
-
-{ #category : 'visiting inline' }
-MicMicrodownObjectToPillarObjectConverter >> visitText: aMicTextBlock [
-	
- 	^ PRText new text: aMicTextBlock substring ; yourself
-]
-
-{ #category : 'visiting' }
-MicMicrodownObjectToPillarObjectConverter >> visitUnorderedList: aMicUnorderedListBlock [
- 	^ PRUnorderedList new
- 		setChildren: (aMicUnorderedListBlock children collect:[:child| child accept: self]);
- 		yourself
-]
diff --git a/src/Microdown-Pillar/MicMonospaceFormatBlock.extension.st b/src/Microdown-Pillar/MicMonospaceFormatBlock.extension.st
deleted file mode 100644
index a573750e..00000000
--- a/src/Microdown-Pillar/MicMonospaceFormatBlock.extension.st
+++ /dev/null
@@ -1,6 +0,0 @@
-Extension { #name : 'MicMonospaceFormatBlock' }
-
-{ #category : '*Microdown-Pillar' }
-MicMonospaceFormatBlock >> associatedPillarClass [
-	^ PRMonospaceFormat
-]
diff --git a/src/Microdown-Pillar/MicRawBlock.extension.st b/src/Microdown-Pillar/MicRawBlock.extension.st
deleted file mode 100644
index 73dc8583..00000000
--- a/src/Microdown-Pillar/MicRawBlock.extension.st
+++ /dev/null
@@ -1,6 +0,0 @@
-Extension { #name : 'MicRawBlock' }
-
-{ #category : '*Microdown-Pillar' }
-MicRawBlock >> associatedPillarClass [
-	^ PRRaw 
-]
diff --git a/src/Microdown-Pillar/MicStrikeFormatBlock.extension.st b/src/Microdown-Pillar/MicStrikeFormatBlock.extension.st
deleted file mode 100644
index 34027a16..00000000
--- a/src/Microdown-Pillar/MicStrikeFormatBlock.extension.st
+++ /dev/null
@@ -1,6 +0,0 @@
-Extension { #name : 'MicStrikeFormatBlock' }
-
-{ #category : '*Microdown-Pillar' }
-MicStrikeFormatBlock >> associatedPillarClass [
-	^ PRStrikethroughFormat
-]
diff --git a/src/Microdown-Pillar/MicTextBlock.extension.st b/src/Microdown-Pillar/MicTextBlock.extension.st
deleted file mode 100644
index 98cb2805..00000000
--- a/src/Microdown-Pillar/MicTextBlock.extension.st
+++ /dev/null
@@ -1,6 +0,0 @@
-Extension { #name : 'MicTextBlock' }
-
-{ #category : '*Microdown-Pillar' }
-MicTextBlock >> associatedPillarClass [
-	"special case"
-]
diff --git a/src/Microdown-Pillar/Trait.extension.st b/src/Microdown-Pillar/Trait.extension.st
deleted file mode 100644
index 4acae285..00000000
--- a/src/Microdown-Pillar/Trait.extension.st
+++ /dev/null
@@ -1,11 +0,0 @@
-Extension { #name : 'Trait' }
-
-{ #category : '*Microdown-Pillar' }
-Trait >> buildMicroDownUsing: aBuilder withComment: aString [
-	
-	aBuilder 
-		header: [	aBuilder text: 'Trait: '.
-					aBuilder text: self name] withLevel: 1;
-		horizontalLine;
-		text: aString
-]
diff --git a/src/Microdown-RenderingFeatures/MicCodeBlock.extension.st b/src/Microdown-RenderingFeatures/MicCodeBlock.extension.st
deleted file mode 100644
index 25282165..00000000
--- a/src/Microdown-RenderingFeatures/MicCodeBlock.extension.st
+++ /dev/null
@@ -1,6 +0,0 @@
-Extension { #name : 'MicCodeBlock' }
-
-{ #category : '*Microdown-RenderingFeatures' }
-MicCodeBlock >> lineNumber: aBoolean [ 
-	arguments at: 'lineNumber' put: aBoolean
-]
diff --git a/src/Microdown-RenderingFeatures/MicCodeblockLineNumberer.class.st b/src/Microdown-RenderingFeatures/MicCodeblockLineNumberer.class.st
deleted file mode 100644
index bd935b44..00000000
--- a/src/Microdown-RenderingFeatures/MicCodeblockLineNumberer.class.st
+++ /dev/null
@@ -1,75 +0,0 @@
-Class {
-	#name : 'MicCodeblockLineNumberer',
-	#superclass : 'MicrodownVisitor',
-	#instVars : [
-		'stream',
-		'configuration'
-	],
-	#category : 'Microdown-RenderingFeatures',
-	#package : 'Microdown-RenderingFeatures'
-}
-
-{ #category : 'adding' }
-MicCodeblockLineNumberer >> add: aString untilNewLineAt: firstOccurence withNumber: number [
-
-	| length |
-	length := firstOccurence + self configuration newLine size -1.
-	self add: (aString first: length) withNumber: number.
-	^ aString allButFirst: length
-]
-
-{ #category : 'adding' }
-MicCodeblockLineNumberer >> add: aString withNumber: number [
-
-	stream
-		<< number asString;
-		tab;
-		<< aString
-]
-
-{ #category : 'adding' }
-MicCodeblockLineNumberer >> addLineNumberTo: aCodeblock [
-	"I add a numerotation at each line of a script."
-
-	| text firstOccurence number |
-	
-	text := aCodeblock body.
-	number := 1.
-	firstOccurence := text indexOfSubCollection: self configuration newLine.
-	[ firstOccurence = 0 ]
-		whileFalse: [ 
-			text := self add: text untilNewLineAt: firstOccurence withNumber: number.
-			firstOccurence := text indexOfSubCollection: self configuration newLine.
-			number := number + 1 ].
-	self add: text withNumber: number.
-	^ aCodeblock body: stream contents
-]
-
-{ #category : 'accessing' }
-MicCodeblockLineNumberer >> configuration [
-	^ configuration
-]
-
-{ #category : 'accessing' }
-MicCodeblockLineNumberer >> configuration: aConfiguration [
-	configuration := aConfiguration
-]
-
-{ #category : 'testing' }
-MicCodeblockLineNumberer >> hasLineNumber: aCodeblock [
-	^ aCodeblock arguments 
-			at: 'lineNumber' 
-			ifPresent: [ :lN | lN = 'true' or: [ lN ] ] ifAbsent: [ false ]
-]
-
-{ #category : 'initialization' }
-MicCodeblockLineNumberer >> initialize [
-	super initialize.
-	stream := MicOutputStream on: (String new writeStream). 
-]
-
-{ #category : 'visiting-document' }
-MicCodeblockLineNumberer >> visitCode: aCodeblock [
-	(self hasLineNumber: aCodeblock)
-		ifTrue: [ self addLineNumberTo: aCodeblock ]
-]
diff --git a/src/Microdown-RenderingFeatures/MicCodeblockLineNumbererTest.class.st b/src/Microdown-RenderingFeatures/MicCodeblockLineNumbererTest.class.st
deleted file mode 100644
index a9681568..00000000
--- a/src/Microdown-RenderingFeatures/MicCodeblockLineNumbererTest.class.st
+++ /dev/null
@@ -1,91 +0,0 @@
-Class {
-	#name : 'MicCodeblockLineNumbererTest',
-	#superclass : 'TestCase',
-	#instVars : [
-		'visitor',
-		'instance'
-	],
-	#category : 'Microdown-RenderingFeatures',
-	#package : 'Microdown-RenderingFeatures'
-}
-
-{ #category : 'private' }
-MicCodeblockLineNumbererTest >> actualClass [
-	^ MicCodeblockLineNumberer 
-]
-
-{ #category : 'tests' }
-MicCodeblockLineNumbererTest >> configuration [
-	^ MicMinimalConfiguration new
-]
-
-{ #category : 'running' }
-MicCodeblockLineNumbererTest >> setUp [
-	super setUp.
-	instance := self actualClass new.
-	visitor := MicCodeblockLineNumberer new.
-	visitor configuration: self configuration
-]
-
-{ #category : 'tests' }
-MicCodeblockLineNumbererTest >> testScriptWithLineNumber [
-	| input |
-	input := MicRootBlock new
-		addChild:
-				((MicCodeBlock new body: 'stream nextPut: $h; nextPut: $e; nextPut: $l; nextPutAll: ''lo''')
-						lineNumber: true;
-						eval: false;
-						yourself);
-		yourself.
-	visitor visit: input.
-	self assert: input children first class equals: MicCodeBlock.
-	self assert: input children first body equals: '1	stream nextPut: $h; nextPut: $e; nextPut: $l; nextPutAll: ''lo'''
-]
-
-{ #category : 'tests' }
-MicCodeblockLineNumbererTest >> testScriptWithLineNumberFalse [
-	| input |
-	input := MicRootBlock new
-		addChild:
-				((MicCodeBlock new body: 'stream nextPut: $h; nextPut: $e; nextPut: $l; nextPutAll: ''lo''')
-						lineNumber: false;
-						eval: false;
-						yourself);
-		yourself.
-	visitor visit: input.
-	self assert: input children first class equals: MicCodeBlock.
-	self assert: input children first body equals: 'stream nextPut: $h; nextPut: $e; nextPut: $l; nextPutAll: ''lo'''
-]
-
-{ #category : 'tests' }
-MicCodeblockLineNumbererTest >> testScriptWithSeveralLineNumbers [
-	
-	| input  |
-	input := MicRootBlock new
-		addChild:
-				((MicCodeBlock new body: 'stream nextPut: $h; nextPut: $e; nextPut: $l; nextPutAll: ''lo''
- world
- !')
-						lineNumber: true;
-						eval: false;
-						yourself);
-		yourself.
-	visitor visit: input.
-	self assert: input children first class equals: MicCodeBlock.
-	self assert: input children first body  equals: '1	stream nextPut: $h; nextPut: $e; nextPut: $l; nextPutAll: ''lo''
-2	 world
-3	 !'
-]
-
-{ #category : 'tests' }
-MicCodeblockLineNumbererTest >> testScriptWithoutParameter [
-	| input |
-	input := MicRootBlock new
-		addChild:
-				((MicCodeBlock new body: 'stream nextPut: $h; nextPut: $e; nextPut: $l; nextPutAll: ''lo''')
-						yourself);
-		yourself.
-	visitor visit: input.
-	self assert: input children first class equals: MicCodeBlock.
-	self assert: input children first body equals: 'stream nextPut: $h; nextPut: $e; nextPut: $l; nextPutAll: ''lo'''
-]
diff --git a/src/Microdown-RenderingFeatures/MicHeadRenumbererTest.class.st b/src/Microdown-RenderingFeatures/MicHeadRenumbererTest.class.st
deleted file mode 100644
index 7604c13c..00000000
--- a/src/Microdown-RenderingFeatures/MicHeadRenumbererTest.class.st
+++ /dev/null
@@ -1,65 +0,0 @@
-Class {
-	#name : 'MicHeadRenumbererTest',
-	#superclass : 'TestCase',
-	#category : 'Microdown-RenderingFeatures',
-	#package : 'Microdown-RenderingFeatures'
-}
-
-{ #category : 'private' }
-MicHeadRenumbererTest >> actualClass [
-
-	^ MicHeaderRenumberer
-]
-
-{ #category : 'private' }
-MicHeadRenumbererTest >> checkWithOffset: offset [
-
-	| result input configuration |
-	configuration := self configuration.
-	configuration headingLevelOffset: offset.
-	input := MicHeaderBlock new
-		         level: 3;
-		         addChild: (MicTextBlock new substring: 'a title');
-		         yourself.
-	result := self executePhase: input with: configuration.
-	self assert: result level equals: offset + 3
-]
-
-{ #category : 'tests' }
-MicHeadRenumbererTest >> configuration [
-
-	^ self configurationClass new
-]
-
-{ #category : 'tests' }
-MicHeadRenumbererTest >> configurationClass [
-
-	^ MicMinimalConfiguration 
-]
-
-{ #category : 'tests' }
-MicHeadRenumbererTest >> executePhase: anInput with: aConfig [
-
-	^ (self actualClass executeOn:
-		   (MicCompilationContext
-			    withDocument: anInput
-			    withConfiguration: aConfig)) input
-]
-
-{ #category : 'tests' }
-MicHeadRenumbererTest >> testNegativeOffset [
-
-	self checkWithOffset: -4
-]
-
-{ #category : 'tests' }
-MicHeadRenumbererTest >> testPositiveOffset [
-
-	self checkWithOffset: 2
-]
-
-{ #category : 'tests' }
-MicHeadRenumbererTest >> testZeroOffset [
-
-	self checkWithOffset: 0
-]
diff --git a/src/Microdown-RenderingFeatures/MicHeaderRenumberer.class.st b/src/Microdown-RenderingFeatures/MicHeaderRenumberer.class.st
deleted file mode 100644
index 85186532..00000000
--- a/src/Microdown-RenderingFeatures/MicHeaderRenumberer.class.st
+++ /dev/null
@@ -1,43 +0,0 @@
-Class {
-	#name : 'MicHeaderRenumberer',
-	#superclass : 'MicrodownVisitor',
-	#instVars : [
-		'configuration'
-	],
-	#category : 'Microdown-RenderingFeatures',
-	#package : 'Microdown-RenderingFeatures'
-}
-
-{ #category : 'execution' }
-MicHeaderRenumberer class >> executeOn: aContext [
-
-	self new
-		configuration: aContext configuration;
-		visit: aContext input.
-	^ aContext
-]
-
-{ #category : 'accessing' }
-MicHeaderRenumberer >> configuration [
-
-	configuration
-]
-
-{ #category : 'accessing' }
-MicHeaderRenumberer >> configuration: anObject [
-
-	configuration := anObject.
-]
-
-{ #category : 'visiting' }
-MicHeaderRenumberer >> initialize [ 
-
-	configuration := MicMinimalConfiguration new.
-	
-]
-
-{ #category : 'visiting' }
-MicHeaderRenumberer >> visitHeader: aHeader [
-
-	aHeader level: aHeader level + configuration headingLevelOffset
-]
diff --git a/src/Microdown-RenderingFeatures/MicLevelLetterPrinter.class.st b/src/Microdown-RenderingFeatures/MicLevelLetterPrinter.class.st
deleted file mode 100644
index 611ae279..00000000
--- a/src/Microdown-RenderingFeatures/MicLevelLetterPrinter.class.st
+++ /dev/null
@@ -1,18 +0,0 @@
-Class {
-	#name : 'MicLevelLetterPrinter',
-	#superclass : 'MicTitlePrinterSpecification',
-	#category : 'Microdown-RenderingFeatures',
-	#package : 'Microdown-RenderingFeatures'
-}
-
-{ #category : 'rendering-element' }
-MicLevelLetterPrinter >> renderElement: aNumber on: stream [
-	| alphabet position |
-	aNumber = 0 ifTrue: [ stream nextPutAll: 'NaN'. ^self  ].
-	alphabet := Character alphabet.
-	position := aNumber \\ alphabet size.
-	position = 0 
-		ifTrue: [ position := alphabet size ].
-	stream nextPut: (alphabet at: position).
-	((aNumber - 1) / alphabet size) asFloat floor timesRepeat: [ stream nextPut: $' ]
-]
diff --git a/src/Microdown-RenderingFeatures/MicLevelNumberPrinter.class.st b/src/Microdown-RenderingFeatures/MicLevelNumberPrinter.class.st
deleted file mode 100644
index c7f4f2d6..00000000
--- a/src/Microdown-RenderingFeatures/MicLevelNumberPrinter.class.st
+++ /dev/null
@@ -1,11 +0,0 @@
-Class {
-	#name : 'MicLevelNumberPrinter',
-	#superclass : 'MicTitlePrinterSpecification',
-	#category : 'Microdown-RenderingFeatures',
-	#package : 'Microdown-RenderingFeatures'
-}
-
-{ #category : 'rendering-element' }
-MicLevelNumberPrinter >> renderElement: aNumber on: stream [
-	aNumber printOn: stream
-]
diff --git a/src/Microdown-RenderingFeatures/MicLevelRomanPrinter.class.st b/src/Microdown-RenderingFeatures/MicLevelRomanPrinter.class.st
deleted file mode 100644
index ea565f8a..00000000
--- a/src/Microdown-RenderingFeatures/MicLevelRomanPrinter.class.st
+++ /dev/null
@@ -1,11 +0,0 @@
-Class {
-	#name : 'MicLevelRomanPrinter',
-	#superclass : 'MicTitlePrinterSpecification',
-	#category : 'Microdown-RenderingFeatures',
-	#package : 'Microdown-RenderingFeatures'
-}
-
-{ #category : 'rendering-element' }
-MicLevelRomanPrinter >> renderElement: aNumber on: stream [
-	stream nextPutAll: aNumber printStringRoman
-]
diff --git a/src/Microdown-RenderingFeatures/MicLevelUpperLetterPrinter.class.st b/src/Microdown-RenderingFeatures/MicLevelUpperLetterPrinter.class.st
deleted file mode 100644
index f0c7f75c..00000000
--- a/src/Microdown-RenderingFeatures/MicLevelUpperLetterPrinter.class.st
+++ /dev/null
@@ -1,19 +0,0 @@
-Class {
-	#name : 'MicLevelUpperLetterPrinter',
-	#superclass : 'MicTitlePrinterSpecification',
-	#category : 'Microdown-RenderingFeatures',
-	#package : 'Microdown-RenderingFeatures'
-}
-
-{ #category : 'rendering-element' }
-MicLevelUpperLetterPrinter >> renderElement: aNumber on: stream [
-	| alphabet position |
-	aNumber = 0
-		ifTrue: [ stream nextPutAll: 'NaN'. ^ self ].
-	alphabet := Character alphabet.
-	position := aNumber \\ alphabet size.
-	position = 0
-		ifTrue: [ position := alphabet size ].
-	stream nextPut: (alphabet at: position) asUppercase.
-	((aNumber - 1) / alphabet size) asFloat floor timesRepeat: [ stream nextPut: $' ] 
-]
diff --git a/src/Microdown-RenderingFeatures/MicTitlePrinter.class.st b/src/Microdown-RenderingFeatures/MicTitlePrinter.class.st
deleted file mode 100644
index b48932a4..00000000
--- a/src/Microdown-RenderingFeatures/MicTitlePrinter.class.st
+++ /dev/null
@@ -1,176 +0,0 @@
-Class {
-	#name : 'MicTitlePrinter',
-	#superclass : 'Object',
-	#instVars : [
-		'levels'
-	],
-	#classVars : [
-		'StrategyMapping'
-	],
-	#category : 'Microdown-RenderingFeatures',
-	#package : 'Microdown-RenderingFeatures'
-}
-
-{ #category : 'accessing' }
-MicTitlePrinter class >> defaultStrategyMapping [
-
-	^ Dictionary
-		  with: 'number' -> MicLevelNumberPrinter
-		  with: 'roman' -> MicLevelRomanPrinter
-		  with: 'letter' -> MicLevelLetterPrinter
-		  with: 'upperLetter' -> MicLevelUpperLetterPrinter
-]
-
-{ #category : 'accessing' }
-MicTitlePrinter class >> printerSpecFor: aStyle [ 
-
-	^ (self strategyClassMapping at: aStyle) new
-	
-	
-]
-
-{ #category : 'accessing' }
-MicTitlePrinter class >> strategyClassMapping [
-	^ StrategyMapping ifNil: [ StrategyMapping := self defaultStrategyMapping ]
-]
-
-{ #category : 'initialization' }
-MicTitlePrinter >> initialize [
-
-	super initialize.
-	levels := Array new: self maxLevels.
-	1 to: self maxLevels do: [ :l | 
-		levels at: l put: (MicLevelNumberPrinter new
-				 headerSize: l;
-				 level: l;
-				 printer: self;
-				 yourself) ]
-]
-
-{ #category : 'accessing' }
-MicTitlePrinter >> level1 [
-
-	^ levels at: (self levelIndex: 1)
-]
-
-{ #category : 'accessing' }
-MicTitlePrinter >> level1: aLevelSpec [
-
-	self level: aLevelSpec n: 1
-]
-
-{ #category : 'accessing' }
-MicTitlePrinter >> level2 [
-
-	^ levels at: (self levelIndex: 2)
-]
-
-{ #category : 'accessing' }
-MicTitlePrinter >> level2: aLevelSpec [
-
-	self level: aLevelSpec n: 2
-]
-
-{ #category : 'accessing' }
-MicTitlePrinter >> level3 [
-
-	^ levels at: (self levelIndex: 3)
-]
-
-{ #category : 'accessing' }
-MicTitlePrinter >> level3: aLevelSpec [
-
-	self level: aLevelSpec n: 3
-]
-
-{ #category : 'accessing' }
-MicTitlePrinter >> level4 [
-
-	^levels at: (self levelIndex: 4)
-]
-
-{ #category : 'accessing' }
-MicTitlePrinter >> level4: aLevelSpec [
-
-	self level: aLevelSpec n: 4
-]
-
-{ #category : 'accessing' }
-MicTitlePrinter >> level5 [
-
-	^ levels at: (self levelIndex: 5)
-]
-
-{ #category : 'accessing' }
-MicTitlePrinter >> level5: aLevelSpec [
-
-	self level: aLevelSpec n: 5
-]
-
-{ #category : 'accessing' }
-MicTitlePrinter >> level6 [
-
-	^ levels at: (self levelIndex: 6)
-]
-
-{ #category : 'accessing' }
-MicTitlePrinter >> level6: aLevelSpec [
-
-	self level: aLevelSpec n: 6
-]
-
-{ #category : 'accessing' }
-MicTitlePrinter >> level7 [
-
-	^ levels at: (self levelIndex: 7)
-]
-
-{ #category : 'accessing' }
-MicTitlePrinter >> level7: aLevelSpec [
-
-	self level: aLevelSpec n: 7
-]
-
-{ #category : 'accessing' }
-MicTitlePrinter >> level: aLevelSpec n: n [
-
-	levels at: (self levelIndex: n) put: aLevelSpec.
-	aLevelSpec level: n.
-	aLevelSpec printer: self.
-]
-
-{ #category : 'accessing' }
-MicTitlePrinter >> levelConfigurationFor: aHeader [
-	"to get the associated level spec"
-	
-	^ self perform: ('level' , aHeader level asString) asSymbol
-]
-
-{ #category : 'accessing' }
-MicTitlePrinter >> levelIndex: wishedLevel [
-	
-	^ wishedLevel
-]
-
-{ #category : 'accessing' }
-MicTitlePrinter >> leveln: anInteger [
-
-	^ self perform: ('level', anInteger asString) asSymbol 
-]
-
-{ #category : 'initialization' }
-MicTitlePrinter >> maxLevels [
-	^ 7
-]
-
-{ #category : 'builder' }
-MicTitlePrinter >> printerSpecFor: aStyle [
-
-	^ self class printerSpecFor: aStyle
-]
-
-{ #category : 'accessing' }
-MicTitlePrinter >> strategyClassFor: aStyle [
-	
-	^ self class strategyClassMapping at: aStyle ifAbsent: [ 'roman' ]
-]
diff --git a/src/Microdown-RenderingFeatures/MicTitlePrinterSpecification.class.st b/src/Microdown-RenderingFeatures/MicTitlePrinterSpecification.class.st
deleted file mode 100644
index b3323ac6..00000000
--- a/src/Microdown-RenderingFeatures/MicTitlePrinterSpecification.class.st
+++ /dev/null
@@ -1,205 +0,0 @@
-Class {
-	#name : 'MicTitlePrinterSpecification',
-	#superclass : 'Object',
-	#instVars : [
-		'numbering',
-		'size',
-		'level',
-		'autoAnchor',
-		'configuration',
-		'capitalization',
-		'printer',
-		'renderAs'
-	],
-	#category : 'Microdown-RenderingFeatures',
-	#package : 'Microdown-RenderingFeatures'
-}
-
-{ #category : 'accessing - defaults' }
-MicTitlePrinterSpecification class >> defaultLevel [
-	^ 1
-]
-
-{ #category : 'instance creation' }
-MicTitlePrinterSpecification class >> new [
-	^ self with: Dictionary new
-]
-
-{ #category : 'instance creation' }
-MicTitlePrinterSpecification class >> with: aDictionary [
-	"what a ugly API"
-	| inst |
-	inst := super new
-		numbering: (aDictionary at: 'numbering' ifAbsent: [ true ]);
-		autoAnchor: (aDictionary at: 'autoAnchor' ifAbsent: [ false ]);
-		capitalization: (aDictionary at: 'capitalization' ifAbsent: [ 'raw' ]);
-		yourself.
-	inst numbering
-		ifTrue: [ inst size: (aDictionary at: 'size' ifAbsent: [ 0 ]) ]
-		ifFalse: [ inst size: 0 ].
-	^ inst
-]
-
-{ #category : 'accessing' }
-MicTitlePrinterSpecification >> autoAnchor [
-	^ autoAnchor 
-]
-
-{ #category : 'accessing' }
-MicTitlePrinterSpecification >> autoAnchor: anObject [ 
-
-	autoAnchor := anObject 
-]
-
-{ #category : 'accessing' }
-MicTitlePrinterSpecification >> capitalization [
-	^ capitalization
-]
-
-{ #category : 'accessing' }
-MicTitlePrinterSpecification >> capitalization: anObject [
-	capitalization := anObject 
-]
-
-{ #category : 'rendering' }
-MicTitlePrinterSpecification >> elementSeparator [
-	"why hardcoding it?"
-	^ $.
-]
-
-{ #category : 'initialization' }
-MicTitlePrinterSpecification >> fillFromAnother: another [
-	"copy all the field from another instance this is used to convert a configuration specification to an instance of one of the subclasses."
-	"the equivalent of a changeClassToThatOf:"
-	
-	self autoAnchor: another autoAnchor. 
-	self capitalization: another capitalization. 
-	self level: another level. 
-	self numbering: another numbering. 
-	self renderAs: another renderAs. 
-	self size: another size
-]
-
-{ #category : 'accessing' }
-MicTitlePrinterSpecification >> headerSize [
-	^ size
-]
-
-{ #category : 'accessing' }
-MicTitlePrinterSpecification >> headerSize: anInteger [
-	"Pay attention changing the size only makes sense when numbering is true."
-
-	size := numbering
-		ifTrue: [ anInteger ]
-		ifFalse: [ 0 ]
-]
-
-{ #category : 'initialization' }
-MicTitlePrinterSpecification >> initialize [
-
-	super initialize.
-	numbering := true. 
-	autoAnchor := false.
-	capitalization := 'raw'.
-	level := 1. 
-	renderAs := 'number'
-]
-
-{ #category : 'accessing' }
-MicTitlePrinterSpecification >> level [
-	^ level ifNil: [ self class defaultLevel ]
-]
-
-{ #category : 'accessing' }
-MicTitlePrinterSpecification >> level: anObject [
-	level := anObject
-]
-
-{ #category : 'accessing' }
-MicTitlePrinterSpecification >> numbering [
-	^ numbering
-]
-
-{ #category : 'accessing' }
-MicTitlePrinterSpecification >> numbering: anObject [
-	numbering := anObject
-]
-
-{ #category : 'accessing' }
-MicTitlePrinterSpecification >> predecessor [
-	^ level = 1
-			ifTrue: [ nil ]
-			ifFalse: [ self printer perform: ('level' , (self level - 1) asString) asSymbol ]
-]
-
-{ #category : 'rendering' }
-MicTitlePrinterSpecification >> printCounter: aCollection [
-	^ String streamContents: [ :s | self printCounter: aCollection withMaxSize: self size on: s ]
-
-]
-
-{ #category : 'rendering' }
-MicTitlePrinterSpecification >> printCounter: aCollection withMaxSize: aSize on: stream [
-	aSize > 0
-		ifTrue: [ (self predecessor isNotNil and: [ aSize - 1 > 0 ])
-				ifTrue: [ self predecessor printCounter: aCollection allButLast withMaxSize: aSize - 1 on: stream.
-					aCollection allButLast last = -1
-						ifFalse: [ stream nextPut: self elementSeparator ] ].
-			self printElement: aCollection last on: stream ]
-]
-
-{ #category : 'rendering-element' }
-MicTitlePrinterSpecification >> printElement: aNumber on: stream [
-	aNumber = -1
-		ifFalse: [ self renderElement: aNumber on: stream ]
-]
-
-{ #category : 'printing' }
-MicTitlePrinterSpecification >> printOn: aStream [
-
-	super printOn: aStream.
-	aStream nextPutAll: 'level:'; 
-		nextPutAll: self level asString.
-	aStream nextPutAll: ' autoAnchor:'; 
-		nextPutAll: self autoAnchor asString.
-]
-
-{ #category : 'accessing' }
-MicTitlePrinterSpecification >> printer [
-
-	^ printer
-]
-
-{ #category : 'accessing' }
-MicTitlePrinterSpecification >> printer: aPrinter [
-
-	printer := aPrinter
-]
-
-{ #category : 'accessing' }
-MicTitlePrinterSpecification >> renderAs [
-	"only use during serialisation to serve as an marker to create instance of adequate subclasses"
-	^ renderAs 
-]
-
-{ #category : 'accessing' }
-MicTitlePrinterSpecification >> renderAs: aString [
-	"only use during serialisation"
-	renderAs := aString
-]
-
-{ #category : 'rendering-element' }
-MicTitlePrinterSpecification >> renderElement: aNumber on: stream [
-	^ self subclassResponsibility
-]
-
-{ #category : 'accessing' }
-MicTitlePrinterSpecification >> size [
-	^ self headerSize
-]
-
-{ #category : 'accessing' }
-MicTitlePrinterSpecification >> size: anInteger [
-	"Pay attention changing the size only makes sense when numbering is true."
-	self headerSize: anInteger
-]
diff --git a/src/Microdown-Slide-Utils/MicPillarSlideConverter.class.st b/src/Microdown-Slide-Utils/MicPillarSlideConverter.class.st
deleted file mode 100644
index ee7e9796..00000000
--- a/src/Microdown-Slide-Utils/MicPillarSlideConverter.class.st
+++ /dev/null
@@ -1,23 +0,0 @@
-Class {
-	#name : 'MicPillarSlideConverter',
-	#superclass : 'Object',
-	#category : 'Microdown-Slide-Utils',
-	#package : 'Microdown-Slide-Utils'
-}
-
-{ #category : 'operations' }
-MicPillarSlideConverter >> convert: aString [ 
-	
-	| pillar mic |
-	pillar := self parse: aString.
-	mic := MicSlideConverter new visit: pillar.
-	"but we already did a PRMicrodownWriter and we should better extend it."
-	"then should use MicTextualMicrodownExporter"
-	^ mic
-]
-
-{ #category : 'parsing' }
-MicPillarSlideConverter >> parse: aString [
-
-	^ PRPillarParser parse: aString
-]
diff --git a/src/Microdown-Slide-Utils/MicPillarSlideConverterTest.class.st b/src/Microdown-Slide-Utils/MicPillarSlideConverterTest.class.st
deleted file mode 100644
index 2f380c82..00000000
--- a/src/Microdown-Slide-Utils/MicPillarSlideConverterTest.class.st
+++ /dev/null
@@ -1,37 +0,0 @@
-Class {
-	#name : 'MicPillarSlideConverterTest',
-	#superclass : 'TestCase',
-	#category : 'Microdown-Slide-Utils',
-	#package : 'Microdown-Slide-Utils'
-}
-
-{ #category : 'parsing' }
-MicPillarSlideConverterTest >> parse: aString [
-
-	^ PRPillarParser parse: aString
-]
-
-{ #category : 'parsing' }
-MicPillarSlideConverterTest >> testConvertParagraphSlide [
-
-	| converter res |
-	converter := MicPillarSlideConverter new.
-	res := converter convert: '${slide:title=Goal}$
-
-This is a paragraph.
-'.
-	self assert: res children first class equals: MicSlideBlock 
-]
-
-{ #category : 'parsing' }
-MicPillarSlideConverterTest >> testConvertSlide [
-
-	| converter res |
-	converter := MicPillarSlideConverter new.
-	res := converter convert: '${slide:title=Goal}$
-
-- How can we navigate an instance tree?
-- With optional states that can be skipped?
-'.
-	self assert: res children first class equals: MicSlideBlock 
-]
diff --git a/src/Microdown-Slide-Utils/MicSlideConverter.class.st b/src/Microdown-Slide-Utils/MicSlideConverter.class.st
deleted file mode 100644
index 3cc76331..00000000
--- a/src/Microdown-Slide-Utils/MicSlideConverter.class.st
+++ /dev/null
@@ -1,24 +0,0 @@
-Class {
-	#name : 'MicSlideConverter',
-	#superclass : 'PRVisitor',
-	#instVars : [
-		'mic'
-	],
-	#category : 'Microdown-Slide-Utils',
-	#package : 'Microdown-Slide-Utils'
-}
-
-{ #category : 'visiting' }
-MicSlideConverter >> start: aPRDocument [
-	mic := MicRootBlock new.
-	super start: aPRDocument.
-	^ mic
-
-	
-]
-
-{ #category : 'visiting' }
-MicSlideConverter >> visitSlide: aSlide [
-
-	
-]
diff --git a/src/Microdown-Templated/MicAbstractOutputDocumentMaker.class.st b/src/Microdown-Templated/MicAbstractOutputDocumentMaker.class.st
deleted file mode 100644
index 4c425384..00000000
--- a/src/Microdown-Templated/MicAbstractOutputDocumentMaker.class.st
+++ /dev/null
@@ -1,48 +0,0 @@
-"
-I represent the way to produce an output document (LaTex,....)
-I often compose a visitor and some unix scripts + some folders for storing resources.
-"
-Class {
-	#name : 'MicAbstractOutputDocumentMaker',
-	#superclass : 'Object',
-	#instVars : [
-		'baseDirectory'
-	],
-	#category : 'Microdown-Templated',
-	#package : 'Microdown-Templated'
-}
-
-{ #category : 'accessing' }
-MicAbstractOutputDocumentMaker >> baseDirectory [
-
-	^ baseDirectory
-]
-
-{ #category : 'accessing' }
-MicAbstractOutputDocumentMaker >> baseDirectory: anObject [
-
-	baseDirectory := anObject
-]
-
-{ #category : 'accessing' }
-MicAbstractOutputDocumentMaker >> basicWriter [ 
-	^ self subclassResponsibility
-]
-
-{ #category : 'accessing' }
-MicAbstractOutputDocumentMaker >> templateDirectory [
-
-	^ self baseDirectory / '_support' / 'templates' / self writer folderName
-]
-
-{ #category : 'accessing' }
-MicAbstractOutputDocumentMaker >> writer [
-
-	| writer |
-	writer := self basicWriter.
-	writer := MicTemplatedWriter new
-			outputDocument: self;
-			defaultWriter: writer;
-			yourself .
-	^ writer
-]
diff --git a/src/Microdown-Templated/MicLaTeXMaker.class.st b/src/Microdown-Templated/MicLaTeXMaker.class.st
deleted file mode 100644
index ea0f790b..00000000
--- a/src/Microdown-Templated/MicLaTeXMaker.class.st
+++ /dev/null
@@ -1,18 +0,0 @@
-Class {
-	#name : 'MicLaTeXMaker',
-	#superclass : 'MicAbstractOutputDocumentMaker',
-	#category : 'Microdown-Templated',
-	#package : 'Microdown-Templated'
-}
-
-{ #category : 'accessing' }
-MicLaTeXMaker >> basicWriter [ 
-	
-	^ MicLaTeXWriter new
-]
-
-{ #category : 'accessing' }
-MicLaTeXMaker >> extension [
-	
-	^ 'tex'
-]
diff --git a/src/Microdown-Templated/MicTemplatedWriter.class.st b/src/Microdown-Templated/MicTemplatedWriter.class.st
deleted file mode 100644
index 7ae2fcad..00000000
--- a/src/Microdown-Templated/MicTemplatedWriter.class.st
+++ /dev/null
@@ -1,676 +0,0 @@
-"
-I am a pillar document writer that wraps a normal wrapper.
-When writing one element, I first check if there is a file in the current template that overrides the default writing. If so, I use that file to template the contents.
-Otherwise I simply delegate the writing to the wrapped one.
-
-I am carefully designed so if an element X is delegated to the wrapped writer, it should delegate the writing of X's children back to myself.
-"
-Class {
-	#name : 'MicTemplatedWriter',
-	#superclass : 'MicrodownVisitor',
-	#instVars : [
-		'outputDocument',
-		'defaultWriter',
-		'environmentStack'
-	],
-	#category : 'Microdown-Templated',
-	#package : 'Microdown-Templated'
-}
-
-{ #category : 'templates' }
-MicTemplatedWriter class >> anchorTemplateFileName [
-	
-	^ 'anchor.mustache'
-]
-
-{ #category : 'templates' }
-MicTemplatedWriter class >> boldTemplateFileName [
-	
-	^ 'bold.mustache'
-]
-
-{ #category : 'templates' }
-MicTemplatedWriter class >> codeBlockTemplateFileName [
-	
-	^ 'codeBlock.mustache'
-]
-
-{ #category : 'templates' }
-MicTemplatedWriter class >> commentedLineTemplateFileName [
-	
-	^ 'commentedLine.mustache'
-]
-
-{ #category : 'templates' }
-MicTemplatedWriter class >> dataItemTemplateFileName [
-	
-	^ 'dataItem.mustache'
-]
-
-{ #category : 'templates' }
-MicTemplatedWriter class >> defaultAnnotatedParagraphTemplateFileName [
-	
-	^ 'defaultAnnotatedParagraph.mustache'
-]
-
-{ #category : 'templates' }
-MicTemplatedWriter class >> definitionListTemplateFileName [
-	
-	^ 'definitionList.mustache'
-]
-
-{ #category : 'templates' }
-MicTemplatedWriter class >> emptyParagraphTemplateFileName [
-
-	^ 'emptyParagraph.mustache'
-]
-
-{ #category : 'templates' }
-MicTemplatedWriter class >> externalLinkTemplateFileName [
-	
-	^ 'externalLink.mustache'
-]
-
-{ #category : 'templates' }
-MicTemplatedWriter class >> figureTemplateFileName [
-
-	^ 'figure.mustache'
-]
-
-{ #category : 'templates' }
-MicTemplatedWriter class >> headerTemplateFileName [
-	
-	^ 'header.mustache'
-]
-
-{ #category : 'templates' }
-MicTemplatedWriter class >> horizontalRuleTemplateFileName [
-	
-	^ 'horizontalRule.mustache'
-]
-
-{ #category : 'templates' }
-MicTemplatedWriter class >> internalLinkTemplateFileName [
-	
-	^ 'internalLink.mustache'
-]
-
-{ #category : 'templates' }
-MicTemplatedWriter class >> italicTemplateFileName [
-	
-	^ 'italic.mustache'
-]
-
-{ #category : 'templates' }
-MicTemplatedWriter class >> lineBreakTemplateFileName [
-	
-	^ 'lineBreak.mustache'
-]
-
-{ #category : 'templates' }
-MicTemplatedWriter class >> listItemTemplateFileName [
-
-	^ 'listItem.mustache'
-]
-
-{ #category : 'templates' }
-MicTemplatedWriter class >> mailLinkTemplateFileName [
-	
-	^ 'mailLink.mustache'
-]
-
-{ #category : 'templates' }
-MicTemplatedWriter class >> monospaceTemplateFileName [
-
-	^ 'monospace.mustache'
-]
-
-{ #category : 'templates' }
-MicTemplatedWriter class >> orderedListTemplateFileName [
-	
-	^ 'orderedList.mustache'
-]
-
-{ #category : 'templates' }
-MicTemplatedWriter class >> paragraphTemplateFileName [
-	
-	^ 'paragraph.mustache'
-]
-
-{ #category : 'templates' }
-MicTemplatedWriter class >> preformattedTemplateFileName [
-	
-	^ 'preformatted.mustache'
-]
-
-{ #category : 'templates' }
-MicTemplatedWriter class >> sectionTemplateFileName [
-	
-	^ 'section.mustache'
-]
-
-{ #category : 'templates' }
-MicTemplatedWriter class >> unorderedListTemplateFileName [
-
-	^ 'unorderedList.mustache'
-]
-
-{ #category : 'accessing' }
-MicTemplatedWriter class >> writerName [
-
-	^ #templatedWriter
-]
-
-{ #category : 'accessing - templates' }
-MicTemplatedWriter >> anchorTemplateFileName [
-
-	^ self class anchorTemplateFileName
-]
-
-{ #category : 'accessing - templates' }
-MicTemplatedWriter >> boldTemplateFileName [
-
-	^ self class boldTemplateFileName
-]
-
-{ #category : 'accessing - templates' }
-MicTemplatedWriter >> codeBlockTemplateFileName [
-
-	^ self class codeBlockTemplateFileName
-]
-
-{ #category : 'accessing - templates' }
-MicTemplatedWriter >> commentedLineTemplateFileName [
-
-	^ self class commentedLineTemplateFileName
-]
-
-{ #category : 'accessing' }
-MicTemplatedWriter >> contents [
-	
-	^ defaultWriter contents
-]
-
-{ #category : 'environment' }
-MicTemplatedWriter >> currentEnvironmentPath [
-	
-	^ RelativePath withAll: (environmentStack collect: [:each | each name]) reversed
-]
-
-{ #category : 'accessing - templates' }
-MicTemplatedWriter >> dataItemTemplateFileName [
-
-	^ self class dataItemTemplateFileName
-]
-
-{ #category : 'accessing - templates' }
-MicTemplatedWriter >> defaultAnnotatedParagraphTemplateFileName [
-
-	^ self class defaultAnnotatedParagraphTemplateFileName
-]
-
-{ #category : 'accessing' }
-MicTemplatedWriter >> defaultWriter [
-	^ defaultWriter
-]
-
-{ #category : 'accessing' }
-MicTemplatedWriter >> defaultWriter: anObject [
-	defaultWriter := anObject
-]
-
-{ #category : 'accessing - templates' }
-MicTemplatedWriter >> definitionListTemplateFileName [
-
-	^ self class definitionListTemplateFileName
-]
-
-{ #category : 'accessing - templates' }
-MicTemplatedWriter >> emptyParagraphTemplateFileName [
-
-	^ self class emptyParagraphTemplateFileName
-]
-
-{ #category : 'accessing' }
-MicTemplatedWriter >> environmentStack: aCollection [ 
-	environmentStack := aCollection
-]
-
-{ #category : 'accessing - templates' }
-MicTemplatedWriter >> externalLinkTemplateFileName [
-
-	^ self class externalLinkTemplateFileName
-]
-
-{ #category : 'accessing - templates' }
-MicTemplatedWriter >> figureTemplateFileName [
-
-	^ self class figureTemplateFileName
-]
-
-{ #category : 'accessing' }
-MicTemplatedWriter >> folderName [
-
-	^ defaultWriter folderName
-]
-
-{ #category : 'accessing - templates' }
-MicTemplatedWriter >> headerTemplateFileName [
-
-	^ self class headerTemplateFileName
-]
-
-{ #category : 'accessing - templates' }
-MicTemplatedWriter >> horizontalRuleTemplateFileName [
-
-	^ self class horizontalRuleTemplateFileName
-]
-
-{ #category : 'initialization' }
-MicTemplatedWriter >> initialize [
-
-	super initialize.
-	environmentStack := OrderedCollection new.
-]
-
-{ #category : 'accessing - templates' }
-MicTemplatedWriter >> internalLinkTemplateFileName [
-
-	^ self class internalLinkTemplateFileName
-]
-
-{ #category : 'accessing - templates' }
-MicTemplatedWriter >> italicTemplateFileName [
-		
-	^ self class italicTemplateFileName
-]
-
-{ #category : 'accessing - templates' }
-MicTemplatedWriter >> lineBreakTemplateFileName [
-
-	^ self class lineBreakTemplateFileName
-]
-
-{ #category : 'accessing - templates' }
-MicTemplatedWriter >> listItemTemplateFileName [
-
-	^ self class listItemTemplateFileName
-]
-
-{ #category : 'accessing - templates' }
-MicTemplatedWriter >> mailLinkTemplateFileName [
-
-	^ self class mailLinkTemplateFileName
-]
-
-{ #category : 'accessing - templates' }
-MicTemplatedWriter >> monospaceTemplateFileName [
-
-	^ self class monospaceTemplateFileName
-]
-
-{ #category : 'accessing - templates' }
-MicTemplatedWriter >> orderedListTemplateFileName [
-
-	^ self class orderedListTemplateFileName
-]
-
-{ #category : 'accessing' }
-MicTemplatedWriter >> outputDocument [
-	^ outputDocument
-]
-
-{ #category : 'accessing' }
-MicTemplatedWriter >> outputDocument: anObject [
-	outputDocument := anObject
-]
-
-{ #category : 'accessing - templates' }
-MicTemplatedWriter >> paragraphTemplateFileName [
-
-	^ self class paragraphTemplateFileName
-]
-
-{ #category : 'environment' }
-MicTemplatedWriter >> popEnvironment [
-	
-	environmentStack removeFirst
-]
-
-{ #category : 'accessing - templates' }
-MicTemplatedWriter >> preformattedTemplateFileName [
-
-	^ self class preformattedTemplateFileName
-]
-
-{ #category : 'environment' }
-MicTemplatedWriter >> pushEnvironment: aPREnvironment [ 
-	
-	environmentStack addFirst: aPREnvironment
-]
-
-{ #category : 'accessing - templates' }
-MicTemplatedWriter >> sectionTemplateFileName [
-
-	^ self class sectionTemplateFileName
-]
-
-{ #category : 'accessing' }
-MicTemplatedWriter >> templateForConfiguration: aConfiguration [
-
-	^ defaultWriter templateForConfiguration: aConfiguration
-]
-
-{ #category : 'accessing - templates' }
-MicTemplatedWriter >> unorderedListTemplateFileName [
-
-	^ self class unorderedListTemplateFileName
-]
-
-{ #category : 'visiting' }
-MicTemplatedWriter >> visitAnchor: aPRAnchor [
-
-	self
-		writeRawText: ''
-		withTemplateFileName: self anchorTemplateFileName
-		extraArguments: { 'name' -> aPRAnchor name }
-		ifAbsent: [ defaultWriter visitAnchor: aPRAnchor ]
-]
-
-{ #category : 'visiting' }
-MicTemplatedWriter >> visitAnnotatedParagraph: anAnnotatedParagraph [
-
-	| arguments |
-	arguments := { 'annotation' -> anAnnotatedParagraph annotation }.
-	self
-		write: anAnnotatedParagraph
-		withTemplateFileName: anAnnotatedParagraph annotation , '.mustache'
-		extraArguments: arguments 
-		ifAbsent: [
-			self
-				write: anAnnotatedParagraph
-				withTemplateFileName: self defaultAnnotatedParagraphTemplateFileName
-				extraArguments: arguments 
-				ifAbsent: [ defaultWriter visitAnnotatedParagraph: anAnnotatedParagraph ] ]
-]
-
-{ #category : 'visiting' }
-MicTemplatedWriter >> visitBoldFormat: aPRBoldFormat [
-
-	self
-		write: aPRBoldFormat
-		withTemplateFileName: self boldTemplateFileName
-		ifAbsent: [ defaultWriter visitBoldFormat: aPRBoldFormat ]
-]
-
-{ #category : 'visiting' }
-MicTemplatedWriter >> visitCodeblock: aPRCodeblock [ 
-
-	self
-		writeRawText: aPRCodeblock text
-		withTemplateFileName: self codeBlockTemplateFileName
-		extraArguments: { 'language' -> (defaultWriter languageForScript: aPRCodeblock) }
-		ifAbsent: [ defaultWriter visitCodeblock: aPRCodeblock ]
-]
-
-{ #category : 'visiting' }
-MicTemplatedWriter >> visitCommentedLine: aPRText [ 
-
-	self
-		writeRawText: aPRText text
-		withTemplateFileName: self commentedLineTemplateFileName
-		ifAbsent: [ defaultWriter visitCommentedLine: aPRText  ]
-]
-
-{ #category : 'visiting' }
-MicTemplatedWriter >> visitDataItem: aPRListItem [
-
-	self
-		write: aPRListItem
-		withTemplateFileName: self dataItemTemplateFileName
-		ifAbsent: [ defaultWriter visitDataItem: aPRListItem ]
-]
-
-{ #category : 'visiting' }
-MicTemplatedWriter >> visitDefinitionList: aPRList [
-
-	self
-		write: aPRList
-		withTemplateFileName: self definitionListTemplateFileName
-		ifAbsent: [ defaultWriter visitDefinitionList: aPRList ]
-]
-
-{ #category : 'visiting' }
-MicTemplatedWriter >> visitEmptyParagraph: anEmptyParagraph [
-	
-	self
-		writeRawText: anEmptyParagraph text
-		withTemplateFileName: self emptyParagraphTemplateFileName
-		ifAbsent: [ defaultWriter visitEmptyParagraph: anEmptyParagraph ]
-]
-
-{ #category : 'visiting' }
-MicTemplatedWriter >> visitEnvironment: anEnvironment [
-
-	self pushEnvironment: anEnvironment.
-	self
-		write: anEnvironment
-		withTemplateFileName: 'main.mustache'
-		extraArguments: anEnvironment properties associations
-		ifAbsent: [ self visitDocumentGroup: anEnvironment ].
-	self popEnvironment.
-]
-
-{ #category : 'visiting' }
-MicTemplatedWriter >> visitExternalLink: aPRExternalLink [
-
-	self
-		write: aPRExternalLink
-		withTemplateFileName: self externalLinkTemplateFileName
-		extraArguments: { 'reference' -> aPRExternalLink reference }
-		ifAbsent: [ defaultWriter visitExternalLink: aPRExternalLink ]
-]
-
-{ #category : 'visiting' }
-MicTemplatedWriter >> visitFigure: aFigure [
-
-	self
-		write: aFigure
-		withTemplateFileName: self figureTemplateFileName
-		extraArguments: {
-			'ref' -> aFigure fileStringWithoutHostFile.
-			'caption' -> (aFigure hasChildren ifTrue: [ aFigure text ] ifFalse: [ '' ]) }
-		ifAbsent: [ defaultWriter visitFigure: aFigure ]
-]
-
-{ #category : 'visiting' }
-MicTemplatedWriter >> visitHeader: aHeader [
-
-	self
-		write: aHeader
-		withTemplateFileName: self headerTemplateFileName
-		extraArguments: { 'level' -> (aHeader level min: 7 max: 1) }
-		ifAbsent: [ defaultWriter visitHeader: aHeader ]
-]
-
-{ #category : 'visiting' }
-MicTemplatedWriter >> visitHorizontalRule: aPRHorizontalRule [
-
-	self
-		writeRawText: ''
-		withTemplateFileName: self horizontalRuleTemplateFileName
-		ifAbsent: [ defaultWriter visitHorizontalRule: aPRHorizontalRule ]
-]
-
-{ #category : 'visiting' }
-MicTemplatedWriter >> visitInternalLink: aPRInternalLink [
-
-	self
-		write: aPRInternalLink
-		withTemplateFileName: self internalLinkTemplateFileName
-		extraArguments: { 'reference' -> aPRInternalLink reference }
-		ifAbsent: [ defaultWriter visitInternalLink: aPRInternalLink ]
-]
-
-{ #category : 'visiting' }
-MicTemplatedWriter >> visitItalicFormat: aPRItalicFormat [ 
-	
-	self
-		write: aPRItalicFormat
-		withTemplateFileName: self italicTemplateFileName
-		ifAbsent: [ defaultWriter visitItalicFormat: aPRItalicFormat ]
-]
-
-{ #category : 'visiting' }
-MicTemplatedWriter >> visitLineBreak: aPRLineBreak [
-
-	self
-		writeRawText: ''
-		withTemplateFileName: self lineBreakTemplateFileName
-		ifAbsent: [ defaultWriter visitLineBreak: aPRLineBreak ]
-]
-
-{ #category : 'visiting' }
-MicTemplatedWriter >> visitListItem: aPRListItem [
-
-	self
-		write: aPRListItem
-		withTemplateFileName: self listItemTemplateFileName
-		ifAbsent: [ defaultWriter visitListItem: aPRListItem ]
-]
-
-{ #category : 'visiting' }
-MicTemplatedWriter >> visitMailLink: aPRMailLink [
-
-	self
-		write: aPRMailLink
-		withTemplateFileName: self mailLinkTemplateFileName
-		extraArguments: { 'reference' -> aPRMailLink reference }
-		ifAbsent: [ defaultWriter visitExternalLink: aPRMailLink ]
-]
-
-{ #category : 'visiting' }
-MicTemplatedWriter >> visitMonospaceFormat: aPRMonospaceFormat [ 
-	
-	self
-		write: aPRMonospaceFormat
-		withTemplateFileName: self monospaceTemplateFileName
-		ifAbsent: [ defaultWriter visitMonospaceFormat: aPRMonospaceFormat ]
-]
-
-{ #category : 'visiting' }
-MicTemplatedWriter >> visitOrderedList: aPROrderedList [
-
-	self
-		write: aPROrderedList
-		withTemplateFileName: self orderedListTemplateFileName
-		ifAbsent: [ defaultWriter visitOrderedList: aPROrderedList ]
-]
-
-{ #category : 'visiting' }
-MicTemplatedWriter >> visitParagraph: aParagraph [
-
-	self
-		write: aParagraph
-		withTemplateFileName: self paragraphTemplateFileName
-		ifAbsent: [ defaultWriter visitParagraph: aParagraph ]
-]
-
-{ #category : 'visiting' }
-MicTemplatedWriter >> visitPreformatted: aPRPreformatted [
-
-	self
-		write: aPRPreformatted
-		withTemplateFileName: self preformattedTemplateFileName
-		ifAbsent: [ defaultWriter visitPreformatted: aPRPreformatted ]
-]
-
-{ #category : 'delegating' }
-MicTemplatedWriter >> visitRaw: aPRRaw [ 
-	
-	defaultWriter visitRaw: aPRRaw
-]
-
-{ #category : 'visiting' }
-MicTemplatedWriter >> visitSection: aPRSection [
-
-	self
-		write: aPRSection
-		withTemplateFileName: self sectionTemplateFileName
-		ifAbsent: [ defaultWriter visitSection: aPRSection ]
-]
-
-{ #category : 'delegating' }
-MicTemplatedWriter >> visitText: aPRText [ 
-	
-	defaultWriter visitText: aPRText
-]
-
-{ #category : 'visiting' }
-MicTemplatedWriter >> visitUnorderedList: aPRUnorderedList [ 
-
-	self
-		write: aPRUnorderedList
-		withTemplateFileName: self unorderedListTemplateFileName
-		ifAbsent: [ defaultWriter visitUnorderedList: aPRUnorderedList ]
-]
-
-{ #category : 'writing' }
-MicTemplatedWriter >> write: aMicElement [ 
-	
-	aMicElement accept: self.
-	^ defaultWriter contents
-]
-
-{ #category : 'writing' }
-MicTemplatedWriter >> write: aMicElement 
-	withTemplateFileName: templateFileName 
-	extraArguments: arguments 
-	ifAbsent: aBlock [
-
-	self
-		writeRawText: [ | subWriter |
-			subWriter := outputDocument writer.
-			subWriter environmentStack: environmentStack. 
-			subWriter visitChildrenOf: aMicElement.
-			subWriter contents ]
-		withTemplateFileName: templateFileName
-		extraArguments: arguments
-		ifAbsent: aBlock
-]
-
-{ #category : 'writing' }
-MicTemplatedWriter >> write: aDocumentItem withTemplateFileName: templateFileName ifAbsent: aBlock [
-
-	self
-		write: aDocumentItem
-		withTemplateFileName: templateFileName
-		extraArguments: #()
-		ifAbsent: aBlock
-]
-
-{ #category : 'writing' }
-MicTemplatedWriter >> writeRawText: aText withTemplateFileName: templateFileName extraArguments: arguments ifAbsent: aBlock [
-
-	| templateFile result environmentPath foundPath |
-	environmentPath := self currentEnvironmentPath.
-	
-	foundPath := environmentPath
-		lookup: [ :path | ((outputDocument templateDirectory resolve: path) / templateFileName) exists ]
-		ifNone: [ ^ aBlock value ].
-	
-	templateFile := outputDocument templateDirectory resolve: foundPath / templateFileName.
-		
-	result := templateFile asMustacheTemplate value: ({ 'contents' -> aText value }, arguments) asDictionary.
-	self visitRaw: (PRRaw content: result type: defaultWriter writerName)
-]
-
-{ #category : 'writing' }
-MicTemplatedWriter >> writeRawText: aText withTemplateFileName: templateFileName ifAbsent: aBlock [
-
-	^ self
-		writeRawText: aText
-		withTemplateFileName: templateFileName
-		extraArguments: #()
-		ifAbsent: aBlock
-]
diff --git a/src/Microdown-Templated/MicTemplatedWriterTest.class.st b/src/Microdown-Templated/MicTemplatedWriterTest.class.st
deleted file mode 100644
index 911336ae..00000000
--- a/src/Microdown-Templated/MicTemplatedWriterTest.class.st
+++ /dev/null
@@ -1,339 +0,0 @@
-Class {
-	#name : 'MicTemplatedWriterTest',
-	#superclass : 'TestCase',
-	#instVars : [
-		'textDocument'
-	],
-	#category : 'Microdown-Templated',
-	#package : 'Microdown-Templated'
-}
-
-{ #category : 'helpers' }
-MicTemplatedWriterTest >> assertTemplate: template writesValue: value forNode: node [
-
-	self assertTemplatePath: Path * template writesValue: value forNode: node 
-]
-
-{ #category : 'helpers' }
-MicTemplatedWriterTest >> assertTemplatePath: templatePath writesValue: contents forNode: node [
-
-	self createTemplateFileAt: templatePath withContents: contents.
-	self assertWritingNode: node writes: contents.
-]
-
-{ #category : 'helpers' }
-MicTemplatedWriterTest >> assertWritingNode: node writes: contents [
-
-	| document result |
-	document := MicRootBlock new
-		addChild: node;
-		yourself.
-
-	result := textDocument writer write: document.
-
-	self assert: result equals: contents
-]
-
-{ #category : 'helpers' }
-MicTemplatedWriterTest >> createTemplateFileAt: aPath withContents: contents [
-
-	| templateFileReference |
-	templateFileReference := textDocument templateDirectory resolve: aPath.
-	templateFileReference parent ensureCreateDirectory.
-	templateFileReference writeStreamDo: [ :stream | stream nextPutAll: contents ].
-]
-
-{ #category : 'running' }
-MicTemplatedWriterTest >> setUp [
-
-	super setUp.
-	textDocument := MicTextDocumentMaker new
-				baseDirectory: FileSystem memory;
-				yourself.
-]
-
-{ #category : 'tests-templatefiles' }
-MicTemplatedWriterTest >> testWriteAnchorUsesAnchorTemplate [
-
-	self
-		assertTemplate: 'todo.mustache'
-		writesValue: 'annotated paragraph'
-		forNode: (PRAnnotatedParagraph withAll: #() annotation: 'todo')
-]
-
-{ #category : 'tests-templatefiles' }
-MicTemplatedWriterTest >> testWriteAnchorUsesDefaultIfNotSpecificIsDefinedTemplate [
-
-	self
-		assertTemplate: MicTemplatedWriter defaultAnnotatedParagraphTemplateFileName
-		writesValue: 'annotated paragraph'
-		forNode: (PRAnnotatedParagraph withAll: #() annotation: 'todo')
-]
-
-{ #category : 'tests-templatefiles' }
-MicTemplatedWriterTest >> testWriteBoldUsesBoldTemplate [
-
-	self
-		assertTemplate: MicTemplatedWriter boldTemplateFileName
-		writesValue: 'boldTemplate'
-		forNode: (MicBoldFormatBlock new children: { MicTextBlock new substring: 'Bar'}) 
-]
-
-{ #category : 'tests-templatefiles' }
-MicTemplatedWriterTest >> testWriteCodeBlockUsesCodeBlockTemplate [
-
-	self
-		assertTemplate: MicTemplatedWriter codeBlockTemplateFileName
-		writesValue: 'codeBlockTemplate'
-		forNode: (PRCodeblock content: '^ self')
-]
-
-{ #category : 'tests-templatefiles' }
-MicTemplatedWriterTest >> testWriteCommentedLineUsesCommentedLineTemplate [
-
-	self
-		assertTemplate: MicTemplatedWriter commentedLineTemplateFileName
-		writesValue: 'commented line'
-		forNode: (PRCommentedLine content: 'some comment')
-]
-
-{ #category : 'tests-templatefiles' }
-MicTemplatedWriterTest >> testWriteDataItemUsesDataItemTemplate [
-
-	self
-		assertTemplate: MicTemplatedWriter dataItemTemplateFileName
-		writesValue: 'dataitem'
-		forNode: PRDataItem new
-]
-
-{ #category : 'tests-templatefiles' }
-MicTemplatedWriterTest >> testWriteDefinitionListUsesDefinitionListTemplate [
-
-	self
-		assertTemplate: MicTemplatedWriter definitionListTemplateFileName
-		writesValue: 'definitionList'
-		forNode: PRDefinitionList new
-]
-
-{ #category : 'tests-templatefiles' }
-MicTemplatedWriterTest >> testWriteEmptyParagraphsUsesEmptyParagraphTemplate [
-
-	self
-		assertTemplate: MicTemplatedWriter emptyParagraphTemplateFileName
-		writesValue: 'emptyParagraph'
-		forNode: PREmptyParagraph new
-]
-
-{ #category : 'tests-templatefiles' }
-MicTemplatedWriterTest >> testWriteEnvironmentItselfUsesMainTemplate [
-
-	self
-		assertTemplatePath: RelativePath * 'cards' / 'main.mustache'
-		writesValue: 'Template for cards itself'
-		forNode: ((PREnvironment named: 'cards')
-						add: (PRParagraph new
-							add: (PRText content: 'Foo');
-							yourself);
-			yourself)
-]
-
-{ #category : 'tests-templatefiles' }
-MicTemplatedWriterTest >> testWriteEnvironmentUsesArguments [
-
-	self
-		createTemplateFileAt: RelativePath * 'card' / 'main.mustache'
-		withContents: 'before {{{someArgument}}} after'.
-
-	self
-		assertWritingNode: ((PREnvironment named: 'card')
-			propertyAt: 'someArgument' put: 'test';
-			yourself)
-		writes: 'before test after'
-]
-
-{ #category : 'tests-templatefiles' }
-MicTemplatedWriterTest >> testWriteExternalLinkUsesExternalLinkTemplate [
-
-	self
-		assertTemplate: MicTemplatedWriter externalLinkTemplateFileName
-		writesValue: 'external link'
-		forNode: (PRExternalLink new reference: 'http://pharo.org')
-]
-
-{ #category : 'tests-templatefiles' }
-MicTemplatedWriterTest >> testWriteFigureUsesFigureTemplate [
-
-	self
-		assertTemplate: MicTemplatedWriter figureTemplateFileName
-		writesValue: 'figure'
-		forNode: (PRFigure reference: 'bla.png')
-]
-
-{ #category : 'tests-templatefiles' }
-MicTemplatedWriterTest >> testWriteHeaderUsesHeaderTemplate [
-
-	self
-		assertTemplate: MicTemplatedWriter headerTemplateFileName
-		writesValue: 'aHeader'
-		forNode: (PRHeader new
-			level: 2;
-			add: (PRText content: 'foo'))
-]
-
-{ #category : 'tests-templatefiles' }
-MicTemplatedWriterTest >> testWriteHorizontalRuleUsesHorizontalRuleTemplate [
-
-	self
-		assertTemplate: MicTemplatedWriter horizontalRuleTemplateFileName
-		writesValue: '-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-='
-		forNode: PRHorizontalRule new
-]
-
-{ #category : 'tests-templatefiles' }
-MicTemplatedWriterTest >> testWriteInternalLinkUsesInternalLinkTemplate [
-
-	self
-		assertTemplate: MicTemplatedWriter internalLinkTemplateFileName
-		writesValue: 'internal link'
-		forNode: (PRInternalLink new reference: 'bla.pillar')
-]
-
-{ #category : 'tests-templatefiles' }
-MicTemplatedWriterTest >> testWriteItalicUsesItalicTemplate [
-
-	self
-		assertTemplate: MicTemplatedWriter italicTemplateFileName
-		writesValue: 'italicTemplate'
-		forNode: (PRItalicFormat with: (PRText content: 'Bar'))
-]
-
-{ #category : 'tests-templatefiles' }
-MicTemplatedWriterTest >> testWriteLineBreakUsesLineBreakTemplate [
-
-	self
-		assertTemplate: MicTemplatedWriter lineBreakTemplateFileName
-		writesValue: 'line break'
-		forNode: PRLineBreak new
-]
-
-{ #category : 'tests-templatefiles' }
-MicTemplatedWriterTest >> testWriteListItemUsesListItemTemplate [
-
-	self
-		assertTemplate: MicTemplatedWriter listItemTemplateFileName
-		writesValue: 'list item'
-		forNode: PRListItem new
-]
-
-{ #category : 'tests-templatefiles' }
-MicTemplatedWriterTest >> testWriteMailLinkUsesMailLinkTemplate [
-
-	self
-		assertTemplate: MicTemplatedWriter mailLinkTemplateFileName
-		writesValue: 'a link'
-		forNode: (PRMailLink reference: 'foo@bar.com')
-]
-
-{ #category : 'tests-templatefiles' }
-MicTemplatedWriterTest >> testWriteMonospaceUsesMonospaceTemplate [
-
-	self
-		assertTemplate: MicTemplatedWriter monospaceTemplateFileName
-		writesValue: 'monospace'
-		forNode: (PRMonospaceFormat with: (PRText content: 'Bar'))
-]
-
-{ #category : 'tests-templatefiles' }
-MicTemplatedWriterTest >> testWriteNestedEnvironmentItselfUsesMainTemplate [
-
-	self
-		assertTemplatePath: RelativePath * 'cards' / 'card' / 'main.mustache'
-		writesValue: 'Template for the card itself'
-		forNode: ((PREnvironment named: 'cards')
-						add: ((PREnvironment named: 'card')
-									add: (PRParagraph new add: (PRText content: 'Foo');
-							yourself));
-					yourself)
-]
-
-{ #category : 'tests-templatefiles' }
-MicTemplatedWriterTest >> testWriteNestedEnvironmentWithChilds [
-
-	self
-		createTemplateFileAt: RelativePath * 'cards' / 'main.mustache'
-		withContents: '{{{contents}}}'.
-	self
-		createTemplateFileAt: RelativePath * 'cards' / 'card' / 'main.mustache'
-		withContents: '{{{contents}}}'.
-
-	self
-		assertTemplatePath: RelativePath * 'cards' / 'card' / 'paragraph.mustache'
-		writesValue: 'Paragraph definition in cards/card'
-		forNode: ((PREnvironment named: 'cards')
-						add: ((PREnvironment named: 'card')
-									add: (PRParagraph new add: (PRText content: 'Foo');
-							yourself));
-					yourself)
-]
-
-{ #category : 'tests-templatefiles' }
-MicTemplatedWriterTest >> testWriteOrderedListUsesOrderedListTemplate [
-
-	self
-		assertTemplate: MicTemplatedWriter orderedListTemplateFileName
-		writesValue: 'ordered list'
-		forNode: PROrderedList new
-]
-
-{ #category : 'tests-templatefiles' }
-MicTemplatedWriterTest >> testWriteParagraphUsesParagraphTemplate [
-
-	self
-		assertTemplate: MicTemplatedWriter paragraphTemplateFileName
-		writesValue: 'unorderedList'
-		forNode: PRParagraph new
-]
-
-{ #category : 'tests-templatefiles' }
-MicTemplatedWriterTest >> testWritePreformattedUsesPreformattedTemplate [
-
-	self
-		assertTemplate: MicTemplatedWriter preformattedTemplateFileName
-		writesValue: 'preformatted'
-		forNode: (PRPreformatted with: (PRText content: 'Bar'))
-]
-
-{ #category : 'tests-templatefiles' }
-MicTemplatedWriterTest >> testWriteSectionUsesSectionTemplate [
-
-	self
-		assertTemplate: MicTemplatedWriter sectionTemplateFileName
-		writesValue: 'section'
-		forNode: PRSection new
-]
-
-{ #category : 'tests-templatefiles' }
-MicTemplatedWriterTest >> testWriteTextInsideEnvironmentLooksUpOutsideEnvironment [
-
-	self
-		assertTemplate: 'paragraph.mustache'
-		writesValue: 'Paragraph outside card'
-		forNode: ((PREnvironment named: 'card')
-			add: (PRParagraph new
-				add: (PRText content: 'Foo');
-				yourself);
-			yourself)
-]
-
-{ #category : 'tests-templatefiles' }
-MicTemplatedWriterTest >> testWriteTextInsideEnvironmentUsesTemplateInsideEnvironment [
-
-	self
-		assertTemplatePath: (Path * 'card' / 'paragraph.mustache')
-		writesValue: 'Paragraph in card'
-		forNode: ((PREnvironment named: 'card')
-			add: (PRParagraph new
-				add: (PRText content: 'Foo');
-				yourself);
-			yourself)
-]
diff --git a/src/Microdown-Templated/MicTextDocumentMaker.class.st b/src/Microdown-Templated/MicTextDocumentMaker.class.st
deleted file mode 100644
index 6e4113bf..00000000
--- a/src/Microdown-Templated/MicTextDocumentMaker.class.st
+++ /dev/null
@@ -1,18 +0,0 @@
-Class {
-	#name : 'MicTextDocumentMaker',
-	#superclass : 'MicAbstractOutputDocumentMaker',
-	#category : 'Microdown-Templated',
-	#package : 'Microdown-Templated'
-}
-
-{ #category : 'accessing' }
-MicTextDocumentMaker >> basicWriter [
-
-	^ MicTextualMicrodownExporter new
-]
-
-{ #category : 'accessing' }
-MicTextDocumentMaker >> extension [
-
-	^ 'md'
-]