diff --git a/src/MiniDocs/PubPubGrammar.class.st b/src/MiniDocs/PubPubGrammar.class.st index 1916907..7700494 100644 --- a/src/MiniDocs/PubPubGrammar.class.st +++ b/src/MiniDocs/PubPubGrammar.class.st @@ -5,16 +5,45 @@ Class { 'document', 'link', 'linkLabel', - 'linkContent' + 'linkContent', + 'imageLinkLabel', + 'imageLinkContent', + 'alternativeImages', + 'imageLink' ], #category : #'MiniDocs-Model' } +{ #category : #accessing } +PubPubGrammar >> alternativeImages [ + ^ self linkContent +] + { #category : #accessing } PubPubGrammar >> document [ ^ link islandInSea star ] +{ #category : #links } +PubPubGrammar >> imageLink [ + ^ imageLinkLabel, imageLinkContent, alternativeImages +] + +{ #category : #links } +PubPubGrammar >> imageLinkContent [ + ^ '(' asPParser, #any asPParser starLazy flatten, ')' asPParser ==> #second +] + +{ #category : #links } +PubPubGrammar >> imageLinkLabel [ + ^ '![' asPParser, #any asPParser starLazy flatten, $] asPParser ==> #second +] + +{ #category : #accessing } +PubPubGrammar >> imageLinkSea [ + ^ imageLink sea ==> #second +] + { #category : #links } PubPubGrammar >> link [ ^ linkLabel, linkContent