Introduce support for MicRawParagraph

[Ducasse]

<a>

jlkjlklkj
</a>

so we should match

<label>

jlkjlklkj
</label>

[Ducasse]

We do not need to have regexp for each HTML element. We can do

initialize

    super initialize.
    dispatchTable := Dictionary new.
    dispatchTable at: AnchorMarkup put: MicAnchorBlock.
    dispatchTable at: HeaderMarkup put: MicHeaderBlock.
    dispatchTable at: CodeblockMarkup put: MicAbstractCodeBlock.
    dispatchTable at: AnnotatedParagraphMarkup put: MicAnnotatedParagraph.
    dispatchTable at: CommentedLineMarkup put: MicCommentBlock.
    dispatchTable at: HorizontalLineMarkup put: MicHorizontalLineBlock.
    dispatchTable at: MathOpeningBlockMarkup put: MicMathBlock.
    dispatchTable at: EnvironmentOpeningBlockMarkup put: MicEnvironmentBlock.
    dispatchTable at: MetaDataOpeningBlockMarkup put: MicMetaDataBlock.
    dispatchTable at: UnorderedListPlusMarkup put: MicUnorderedListBlock.
    dispatchTable at: UnorderedListMarkup put: MicUnorderedListBlock.
    dispatchTable at: UnorderedListStarMarkup put: MicUnorderedListBlock.
    dispatchTable at: PreformattedMarkup put: MicBlockQuoteBlock.
    dispatchTable at: TableCellMarkup put: MicTableBlock.

         "we should pass via the shared poll"

        dispatchTable at: 'abb' put: MicRawParagraphBlock.
        dispatchTable at: 'add' put: MicRawParagraphBlock.

Then

blockStarterClassFrom: line
    "return the class of a block which can start with line, or nil if none"

    line ifEmpty: [ ^ nil ].
    (self matchOrdered: line)
        ifTrue: [ ^ self orderedListBlockClass ]
        ifFalse: [
            "the max significant length of a markup is 3"
            (3 to: 1 by: -1) do: [:i | | prefix |
                prefix := (line truncateTo: i).

"we could remove the first trailing '<' if there is one, we should pay attention 
that <! is in the shared pool so we should probably modify the shared pool to have ! as a opener"

                "If we have a inline starter, it takes precedence"
                (Delimiters includes: prefix) 
                    ifTrue: [ ^ self delimiterBlockClassFor: prefix ].
                dispatchTable
                    at: prefix
                    ifPresent: [ :blockClass | ^ blockClass ] ] ].

    ^ self nonMatchedBlockClassFor: line

[Ducasse]

We should pay attention to idetnfiy when to close the block. This is typically inside the canConsumeLine: method which should return false when facing

The startAndStop does it like that

canConsumeLine: line
    "As soon as a line closes a code block, it does not accept anymore any line.
    Indeed imagine 

    <
    a line 
    >
    The first line was accepted by its parent (a root block and the code block got created.
    then a line was accepted...
    then the closing line was reached and the code block got closed.)   
    "

    isClosed
        ifTrue: [ ^ false ].
    isClosed := self doesLineStartWithStopMarkup: line.
    ^ true

doesLineStartWithStopMarkup: line

    "return if the line starts with a stop markup"
    ^ line beginsWith: self lineStopMarkup

[Ducasse]

Done