diff --git a/src/MiniDocs/LePictureSnippet.extension.st b/src/MiniDocs/LePictureSnippet.extension.st index 3b574b0..6bc754d 100644 --- a/src/MiniDocs/LePictureSnippet.extension.st +++ b/src/MiniDocs/LePictureSnippet.extension.st @@ -30,6 +30,21 @@ LePictureSnippet >> fromMarkdeep: markdeepDiv [ ^ markdeepDiv asSnippetDictionary asLepiterSnippet ] +{ #category : #'*MiniDocs' } +LePictureSnippet >> fromString: aString [ + "aString should be a valid Markdown/Markdeep image string" + | args captionTemp urlTemp | + + args := aString splitOn: ']('. + captionTemp := args first. + captionTemp := captionTemp copyFrom: 3 to: captionTemp size. + urlTemp := args second. + urlTemp := urlTemp copyFrom: 1 to: urlTemp size - 1. + self caption: captionTemp. + self urlString: urlTemp. + ^ self +] + { #category : #'*MiniDocs' } LePictureSnippet >> metadata [ ^ self optionAt: 'metadata' ifAbsentPut: [ self metadataInit ] diff --git a/src/MiniDocs/OrderedDictionary.extension.st b/src/MiniDocs/OrderedDictionary.extension.st index 158e00d..a3366bf 100644 --- a/src/MiniDocs/OrderedDictionary.extension.st +++ b/src/MiniDocs/OrderedDictionary.extension.st @@ -22,7 +22,7 @@ OrderedDictionary >> asLepiterSnippet [ (self at: 'className') = 'LePictureSnippet' ifTrue: [ response := LePictureSnippet new. - "response code: (self at: 'content')" + response fromString: (self at: 'content') ]. response uid: (LeUID new uidString: (self at: 'id'));