Fix #920

In fact the label was concatenated with the body and it was a mistake (at the minimum the label should have been turned into a Text object). I removed the idea that faulty labels are kept around and placed in a body.
Now faulty labels are just turned into a note.
Simple.

src/Microdown-LaTeXExporter-Tests/MicAbstractLaTexWriterTest.class.st

@@ -124,7 +124,7 @@ MicAbstractLaTexWriterTest >> testAnnotatedParagraph [
 	self writeFor: factory annotatedSample.
 	self assert: writer contents equals: newLine ,
 					'\begin{note}', newLine ,
-					'label Foo \textit{bar}', newLine ,
+					'Foo \textit{bar}', newLine ,
 					'\end{note}'
 ]
 

src/Microdown-PrettyPrinter-Tests/MicTextualMicrodownExporterTest.class.st

@@ -72,7 +72,7 @@ MicTextualMicrodownExporterTest >> testAnnotated [
 	| mic |
 	mic := parser parse: factory annotatedSample.
 	self assert: (mic accept: visitor) contents equals: '>[!note]
-> label Foo _bar_
+> Foo _bar_
 
 '
 ]

src/Microdown-Tests/MicAnnotatedParagraphBlockTest.class.st

@@ -11,6 +11,40 @@ MicAnnotatedParagraphBlockTest >> subjectClass [
 	^ MicAnnotatedParagraphBlock 
 ]
 
+{ #category : 'tests' }
+MicAnnotatedParagraphBlockTest >> testAnnotatedParagraphBreakingTheParser [
+
+	| root annotatedParagraph |
+	root := parser parse: '
+
+>[! important]  I would like a piece of code here ] 
+> This is an important information'.
+	self assert: root children size equals: 1.
+	annotatedParagraph := root children first.
+	self
+		assert: (annotatedParagraph isKindOf: MicAnnotatedParagraphBlock);
+		assert: annotatedParagraph label equals: 'important';
+		assert: annotatedParagraph text
+		equals: 'This is an important information'
+]
+
+{ #category : 'tests' }
+MicAnnotatedParagraphBlockTest >> testAnnotatedParagraphBreakingTheParser2 [
+
+	| root annotatedParagraph |
+	root := parser parse: '
+
+>[! SD]  I would like a piece of code here
+> This is an important information'.
+	self assert: root children size equals: 1.
+	annotatedParagraph := root children first.
+	self
+		assert: (annotatedParagraph isKindOf: MicAnnotatedParagraphBlock);
+		assert: annotatedParagraph label equals: 'note';
+		assert: annotatedParagraph text
+		equals: 'This is an important information'
+]
+
 { #category : 'tests' }
 MicAnnotatedParagraphBlockTest >> testBasicAnnotetedParagraph [
 
@@ -30,7 +64,7 @@ MicAnnotatedParagraphBlockTest >> testBasicAnnotetedParagraph [
 MicAnnotatedParagraphBlockTest >> testBasicAnnotetedParagraphIgnoreExtraTextInFirstLine [
 
 	| root annotatedParagraph |
-	root := parser parse: '>[! important ] This is an important information
+	root := parser parse: '>[! important ] Let us be less silly
 > This is an other information'.
 	self assert: root children size equals: 1.
 	annotatedParagraph := root children first.
@@ -80,31 +114,16 @@ MicAnnotatedParagraphBlockTest >> testBasicAnnotetedParagraphWithANonSupportedLa
 		assert: (annotatedParagraph isKindOf: MicAnnotatedParagraphBlock);
 		assert: annotatedParagraph label equals: 'note';
 		assert: annotatedParagraph text
-		equals: 'test This is an important information'
-]
-
-{ #category : 'tests' }
-MicAnnotatedParagraphBlockTest >> testBasicAnnotetedParagraphWithANonSupportedLabelWithUpperCase [
-
-	| root annotatedParagraph |
-	root := parser parse: '>[! Test ]
-> This is an important information'.
-	self assert: root children size equals: 1.
-	annotatedParagraph := root children first.
-	self
-		assert: (annotatedParagraph isKindOf: MicAnnotatedParagraphBlock);
-		assert: annotatedParagraph label equals: 'note';
-		assert: annotatedParagraph text
-		equals: 'Test This is an important information'
+		equals: 'This is an important information'
 ]
 
 { #category : 'tests' }
-MicAnnotatedParagraphBlockTest >> testBasicAnnotetedParagraphWithBlodText [
+MicAnnotatedParagraphBlockTest >> testBasicAnnotetedParagraphWithBoldText [
 
 	| root annotatedParagraph |
 	root := parser parse:
 		        '>[! important ]
-> This is an **important** information'.
+> This is an **crucial** information'.
 	self assert: root children size equals: 1.
 	annotatedParagraph := root children first.
 	self
@@ -115,20 +134,20 @@ MicAnnotatedParagraphBlockTest >> testBasicAnnotetedParagraphWithBlodText [
 			(annotatedParagraph textElements second isKindOf:
 					 MicBoldFormatBlock);
 		assert: annotatedParagraph textElements second plainText
-		equals: 'important'
+		equals: 'crucial'
 ]
 
 { #category : 'tests' }
 MicAnnotatedParagraphBlockTest >> testBasicAnnotetedParagraphWithLabelHavingUpperCase [
 
 	| root annotatedParagraph |
 	root := parser parse: '>[! ImporTanT ]
-> This is an important information'.
+> This is a crucial information'.
 	self assert: root children size equals: 1.
 	annotatedParagraph := root children first.
 	self
 		assert: (annotatedParagraph isKindOf: MicAnnotatedParagraphBlock);
 		assert: annotatedParagraph label equals: 'important';
 		assert: annotatedParagraph text
-		equals: 'This is an important information'
+		equals: 'This is a crucial information'
 ]

src/Microdown/MicAnnotatedParagraphBlock.class.st

@@ -45,14 +45,14 @@ MicAnnotatedParagraphBlock >> closeMe [
 { #category : 'accessing' }
 MicAnnotatedParagraphBlock >> defaultLabel [ 
 
-	^ #note
+	^ 'note'
 ]
 
 { #category : 'initialization' }
 MicAnnotatedParagraphBlock >> initialize [
 
 	super initialize.
-	validLabels := { #note. #important. #todo }
+	validLabels := { 'note' . 'important' . 'todo' }
 ]
 
 { #category : 'accessing' }
@@ -81,7 +81,5 @@ MicAnnotatedParagraphBlock >> verifyLabel [
 	isValid := validLabels includes: label asLowercase.
 	isValid
 		ifTrue: [ label := label asLowercase ]
-		ifFalse: [
-			body := label , String space , body.
-			label := self defaultLabel ]
+		ifFalse: [ label := self defaultLabel ]
 ]