Adding a way to skip metadata

src/Microdown-HTMLExporter-Tests/MicHTMLExporterTest.class.st

@@ -25,6 +25,8 @@ MicHTMLExporterTest class >> testParameters [
 
 { #category : 'accessing' }
 MicHTMLExporterTest >> factory: aFactory [
+	self flag: #todo.
+	"This is horrible either factory: should be renamed factoryClass or we should remove the new."
 	factory := aFactory new
 ]
 
@@ -200,6 +202,19 @@ MicHTMLExporterTest >> testHeaderLevel2 [
 		andCheckWeGet: newLine , '<h2>Foo</h2>'
 ]
 
+{ #category : 'tests - metadata' }
+MicHTMLExporterTest >> testMetaDataIsIgnored [
+
+	self parse: factory metaDataSample andCheckWeGet: ''
+]
+
+{ #category : 'tests - metadata' }
+MicHTMLExporterTest >> testMetaDataIsNotIgnored [
+
+	writer doNotIgnoreMetaData.
+	self parse: factory metaDataSample andCheckWeGet: ''
+]
+
 { #category : 'tests - paragraph' }
 MicHTMLExporterTest >> testParagraph [
 

src/Microdown-HTMLExporter-Tests/MicHTMLVisitorTest.class.st

@@ -74,7 +74,7 @@ MicHTMLVisitorTest >> testCanvasClass [
 	self assert: writer canvasClass equals: MicHTMLCanvas
 ]
 
-{ #category : 'test' }
+{ #category : 'tests' }
 MicHTMLVisitorTest >> testConfiguration [
 
 	self assert: (writer configuration isKindOf: MicHTMLConfiguration). 

src/Microdown-HTMLExporter/MicHTMLVisitor.class.st

@@ -7,7 +7,8 @@ Class {
 	#superclass : 'MicrodownVisitor',
 	#instVars : [
 		'canvas',
-		'configuration'
+		'configuration',
+		'ignoresMetaData'
 	],
 	#category : 'Microdown-HTMLExporter-Visitor',
 	#package : 'Microdown-HTMLExporter',
@@ -158,13 +159,25 @@ MicHTMLVisitor >> crlfAsNewLine [
 	canvas crlfAsNewLine
 ]
 
+{ #category : 'as yet unclassified' }
+MicHTMLVisitor >> doNotIgnoreMetaData [
+	ignoresMetaData := false
+]
+
+{ #category : 'accessing' }
+MicHTMLVisitor >> ignoreMetaData [
+	ignoresMetaData := true
+]
+
 { #category : 'initialization' }
-MicHTMLVisitor >> initialize [ 
+MicHTMLVisitor >> initialize [
+
 	| stream |
 	super initialize.
-	stream := MicOutputStream new setStream: (WriteStream on: String empty).
+	stream := MicOutputStream new setStream:
+		          (WriteStream on: String empty).
 	canvas := self canvasClass on: stream.
-
+	ignoresMetaData := true.
 ]
 
 { #category : 'initialization' }
@@ -188,6 +201,14 @@ MicHTMLVisitor >> minQuoteThreshold [
 	^ 50
 ]
 
+{ #category : 'initialization' }
+MicHTMLVisitor >> stream: aStream [
+
+	| stream |
+	stream := MicOutputStream new setStream: aStream.
+	canvas := self canvasClass on: stream
+]
+
 { #category : 'initialization' }
 MicHTMLVisitor >> usedNewLine [
 	"Return the encoded new line. Useful for tests."
@@ -396,8 +417,9 @@ MicHTMLVisitor >> visitMath: anObject [
 { #category : 'visiting' }
 MicHTMLVisitor >> visitMetaData: aMetaData [
 
+	ignoresMetaData ifTrue: [ 
 	self metaDataFromAssociations: aMetaData body.
-	super visitMetaData: aMetaData.
+	super visitMetaData: aMetaData ]
 ]
 
 { #category : 'visiting - inline elements' }