diff --git a/src/Microdown-HTMLExporter-Tests/MicHTMLVisitorTest.class.st b/src/Microdown-HTMLExporter-Tests/MicHTMLVisitorTest.class.st index 8532f276..81fb1012 100644 --- 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: '
Body of annotated block' , newLine , '
this is another string
' ] @@ -170,7 +170,7 @@ MicHTMLVisitorTest >> testCreateAnnotationSimple [ self assert: result trimBoth equals: - '' + 'Body of annotated block' ] { #category : 'tests' } diff --git a/src/Microdown-HTMLExporter/MicHTMLVisitor.class.st b/src/Microdown-HTMLExporter/MicHTMLVisitor.class.st index 781abe63..096c8a58 100644 --- 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' }