A couple more but also skipped new ones that needs more thoughts

Author: Ducasse

src/Microdown-Templated/MicTemplatedWriter.class.st

@@ -333,21 +333,21 @@ MicTemplatedWriter >> visitAnchorReference: aReference [
 		ifAbsent: [ defaultWriter visitAnchorReference: aReference ]
 ]
 
-{ #category : 'old visiting' }
-MicTemplatedWriter >> visitAnnotatedParagraph: anAnnotatedParagraph [
+{ #category : 'visiting' }
+MicTemplatedWriter >> visitAnnotated: anAnnotatedParagraph [
 
 	| arguments |
-	arguments := { 'annotation' -> anAnnotatedParagraph annotation }.
+	arguments := { 'label' -> anAnnotatedParagraph label }.
 	self
 		write: anAnnotatedParagraph
-		withTemplateFileName: anAnnotatedParagraph annotation , '.mustache'
+		withTemplateFileName: anAnnotatedParagraph label , '.mustache'
 		extraArguments: arguments 
 		ifAbsent: [
 			self
 				write: anAnnotatedParagraph
 				withTemplateFileName: self defaultAnnotatedParagraphTemplateFileName
 				extraArguments: arguments 
-				ifAbsent: [ defaultWriter visitAnnotatedParagraph: anAnnotatedParagraph ] ]
+				ifAbsent: [ defaultWriter visitAnnotated: anAnnotatedParagraph ] ]
 ]
 
 { #category : 'visiting' }

src/Microdown-Templated/MicTemplatedWriterTest.class.st

@@ -44,8 +44,19 @@ MicTemplatedWriterTest >> addTemplateFiles [
 		writeStreamDo: [ :s | s << self paragraphContents ].	
 	fileSystem / MicTemplatedWriter environmentTemplateFileName
 		writeStreamDo: [ :s | s << self environmentContents ].		
+	
+	"Pay attention here this is the note label that determines the template name"
+	fileSystem / 'important.mustache'
+		writeStreamDo: [ :s | s << self annotatedParagraphContents ].		
 
+	fileSystem / MicTemplatedWriter defaultAnnotatedParagraphTemplateFileName 
+		writeStreamDo: [ :s | s << self annotatedParagraphContents ].		
+]
 
+{ #category : 'running' }
+MicTemplatedWriterTest >> annotatedParagraphContents [
+
+	^ '<b>{{{label}}}</b>{{{contents}}}'
 ]
 
 { #category : 'helpers' }
@@ -111,6 +122,12 @@ MicTemplatedWriterTest >> createTemplateFileAt: aPath withContents: contents [
 	templateFileReference writeStreamDo: [ :stream | stream nextPutAll: contents ].
 ]
 
+{ #category : 'running' }
+MicTemplatedWriterTest >> defaultAnnotatedParagraph [
+
+	^ '<b>{{{label}}}</b>{{{contents}}}'
+]
+
 { #category : 'running' }
 MicTemplatedWriterTest >> environmentContents [
 	"Ideally we should be able to have template for each of the different environment based on their names."
@@ -203,6 +220,25 @@ MicTemplatedWriterTest >> setUp [
 	self addTemplateFiles.
 ]
 
+{ #category : 'new tests' }
+MicTemplatedWriterTest >> testAnnotatedParagraphImportant [
+
+	self
+		assertTemplate: 'important.mustache'
+		writesValue: '<b>important</b>this is important'
+		forNode: (Microdown parse: '!!important this is important') children first
+]
+
+{ #category : 'new tests' }
+MicTemplatedWriterTest >> testAnnotatedParagraphUnsupportedIsThenDefault [
+	
+	self skip. "To be investigated."
+	self
+		assertTemplate: 'important.mustache'
+		writesValue: '<b>Tintin</b>this is important'
+		forNode: (Microdown parse: '!!Tintin this is important') children first
+]
+
 { #category : 'tests-setup' }
 MicTemplatedWriterTest >> testDirectory [
 
@@ -218,9 +254,9 @@ MicTemplatedWriterTest >> testDirectory [
 MicTemplatedWriterTest >> testWriteAnchorUsesDefaultIfNotSpecificIsDefinedTemplate [
 
 	self
-		assertTemplate: MicTemplatedWriter defaultAnnotatedParagraphTemplateFileName
-		writesValue: 'annotated paragraph'
-		forNode: (PRAnnotatedParagraph withAll: #() annotation: 'todo')
+		assertTemplate: 'important.mustache'
+		writesValue: '<b>important</b>this is important'
+		forNode: (Microdown parse: '!!important this is important') children first
 ]
 
 { #category : 'new tests' }