From 486773af6310b2287786a67a4dabac7cb504bd54 Mon Sep 17 00:00:00 2001
From: Offray <offray.luna@mutabit.com>
Date: Sun, 24 Dec 2023 08:08:00 -0500
Subject: [PATCH] Improving metadata on images.

---
 src/MiniDocs/LePictureSnippet.extension.st | 33 ++++++++++++++++++++++
 1 file changed, 33 insertions(+)

diff --git a/src/MiniDocs/LePictureSnippet.extension.st b/src/MiniDocs/LePictureSnippet.extension.st
index 4890b4c..7e81d2b 100644
--- a/src/MiniDocs/LePictureSnippet.extension.st
+++ b/src/MiniDocs/LePictureSnippet.extension.st
@@ -25,6 +25,17 @@ LePictureSnippet >> asMarkdeep [
 	^ output contents
 ]
 
+{ #category : #'*MiniDocs' }
+LePictureSnippet >> contentFrom: markdeepDiv [
+	| caption width |
+	caption := markdeepDiv contentString.
+	width := (markdeepDiv  // 'img' @ 'width') stringValue.
+	self 
+		optionAt: 'caption' put: caption;
+		optionAt: 'width' put: width.
+	self urlString: (markdeepDiv  // 'img' @ 'src') stringValue.
+]
+
 { #category : #'*MiniDocs' }
 LePictureSnippet >> fromMarkdeep: markdeepDiv [
 	^ markdeepDiv asSnippetDictionary asLepiterSnippet
@@ -45,6 +56,11 @@ LePictureSnippet >> fromString: aString [
 	^ self
 ]
 
+{ #category : #'*MiniDocs' }
+LePictureSnippet >> metadata [
+	^ self metadataInit 
+]
+
 { #category : #'*MiniDocs' }
 LePictureSnippet >> metadataDiv [
 	| output |
@@ -58,6 +74,23 @@ LePictureSnippet >> metadataDiv [
 
 ]
 
+{ #category : #'*MiniDocs' }
+LePictureSnippet >> metadataInit [
+	| surrogate |
+	self parent 
+		ifNil: [ surrogate := nil] 
+		ifNotNil: [ surrogate := self parent uidString ].
+	^ OrderedDictionary new
+		at: 'id' put: self uidString;
+		at: 'parent' put: surrogate;
+		at: 'url' put: '<!--',self contentAsString, '-->';
+		at: 'created' put: self createTime asString;
+		at: 'modified' put: self latestEditTime asString;
+		at: 'creator' put: self createEmail asString withoutXMLTagDelimiters;
+		at: 'modifier' put: self editEmail asString withoutXMLTagDelimiters;
+		yourself
+]
+
 { #category : #'*MiniDocs' }
 LePictureSnippet >> metadataUpdate [
 	| surrogate |