From 5c4f6ab55baa6cf5efca613a786f4afa2127ec0b Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Tue, 31 Oct 2023 14:28:05 -0500
Subject: [PATCH] LePictureSnippets from Markdeep: importing from plain content
 strings (not yet tested with multiline captions).

---
 src/MiniDocs/LePictureSnippet.extension.st  | 15 +++++++++++++++
 src/MiniDocs/OrderedDictionary.extension.st |  2 +-
 2 files changed, 16 insertions(+), 1 deletion(-)

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'));