Merge pull request pillar-markup#860 from moufort/846-Annotated-HTML-…

…exporter Change html visitor and test for annotated paragraph
Ducasse · Aug 19, 2024 · 702fe0f · 702fe0f
2 parents d5e808e + 1b34d1a
commit 702fe0f
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 8 deletions.
diff --git a/src/Microdown-HTMLExporter-Tests/MicHTMLVisitorTest.class.st b/src/Microdown-HTMLExporter-Tests/MicHTMLVisitorTest.class.st
@@ -155,7 +155,7 @@ this is another string'.
 		assert: result trimBoth
 		equals: '<h1>This is a title</h1>' , newLine
 			,
-			'<section id="note"><label for="note">Body of annotated block</label></section>'
+			'<q id="note">Body of annotated block</q>'
 			, newLine , '<p>this is another string</p>'
 ]
 
@@ -170,7 +170,7 @@ MicHTMLVisitorTest >> testCreateAnnotationSimple [
 	self
 		assert: result trimBoth
 		equals:
-		'<section id="note"><label for="note">Body of annotated block</label></section>'
+		'<q id="note">Body of annotated block</q>'
 ]
 
 { #category : 'tests' }

diff --git a/src/Microdown-HTMLExporter/MicHTMLVisitor.class.st b/src/Microdown-HTMLExporter/MicHTMLVisitor.class.st
@@ -221,13 +221,9 @@ MicHTMLVisitor >> visitAnnotated: anAnnotatedParagraph [
 
 	canvas newLine.
 	canvas tag
-		name: 'section';
+		name: 'q';
 		parameterAt: 'id' put: anAnnotatedParagraph label;
-		with: [ 
-			canvas tag
-				name: 'label';
-				parameterAt: 'for' put: anAnnotatedParagraph label;
-				with: [ super visitAnnotated: anAnnotatedParagraph ] ].
+		with: [ super visitAnnotated: anAnnotatedParagraph ].
 ]
 
 { #category : 'visiting - inline elements' }