Merge pull request #849 from moufort/829-introduce-notes--configuration

Issue 829 introduce notes  configuration

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

@@ -352,6 +352,13 @@ MicLaTeXWriterTest >> testMonospace [
 	self parseInlined: factory monospaceFormatSample andCheckWeGet: '\code{Foo}'
 ]
 
+{ #category : 'tests' }
+MicLaTeXWriterTest >> testNote [
+
+	self parseInlined: '{!note|contents=Duca99a!}' andCheckWeGet: '\comment{Duca99a}'
+
+]
+
 { #category : 'tests - lists' }
 MicLaTeXWriterTest >> testOrderedList [
 

src/Microdown-LaTeXExporter/MicLaTeXWriter.class.st

@@ -297,6 +297,14 @@ MicLaTeXWriter >> visitMonospace: aMonospace [
 		parameter: [ super visitMonospace: aMonospace ]
 ]
 
+{ #category : 'visiting' }
+MicLaTeXWriter >> visitNote: aMicNoteBlock [
+
+	canvas command
+		name: 'comment';
+		parameter: aMicNoteBlock contents.
+]
+
 { #category : 'blocks - list' }
 MicLaTeXWriter >> visitOrderedList: aList [
 	"tabulation for  \begin{itemize} it can do in the environment of the canvas"

src/Microdown-Tests/MicNoteBlockTest.class.st

@@ -0,0 +1,17 @@
+Class {
+	#name : 'MicNoteBlockTest',
+	#superclass : 'MicAnnotationSubclassTest',
+	#category : 'Microdown-Tests-Extensions',
+	#package : 'Microdown-Tests',
+	#tag : 'Extensions'
+}
+
+{ #category : 'tests' }
+MicNoteBlockTest >> testCreateTheRightNoteObject [
+
+	| doc |
+	doc := parser parse: '{!note|contents=Duca99a!}'.
+	self assert: doc children first children first class equals: MicNoteBlock.
+	self assert: doc children first children first name equals: 'note'.
+	self assert: (doc children first children first arguments at: #contents) equals: 'Duca99a'.
+]

src/Microdown/MicNoteBlock.class.st

@@ -0,0 +1,22 @@
+Class {
+	#name : 'MicNoteBlock',
+	#superclass : 'MicAnnotationBlock',
+	#category : 'Microdown-Extensions',
+	#package : 'Microdown',
+	#tag : 'Extensions'
+}
+
+{ #category : 'accessing' }
+MicNoteBlock class >> tag [
+	^ #note
+]
+
+{ #category : 'visiting' }
+MicNoteBlock >> accept: aVisitor [
+	aVisitor visitNote: self
+]
+
+{ #category : 'accessing' }
+MicNoteBlock >> contents [
+	^ arguments at: 'contents' ifAbsent: [ '' ]
+]

src/Microdown/MicrodownVisitor.class.st

@@ -166,6 +166,10 @@ MicrodownVisitor >> visitMonospace: aFormat [
 
 ]
 
+{ #category : 'visiting - inline elements' }
+MicrodownVisitor >> visitNote: aNote [
+]
+
 { #category : 'visiting - list' }
 MicrodownVisitor >> visitOrderedList: anOrderedList [