From 1b66316d034966632ff28a4ad3525028597cf235 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Thu, 20 Jun 2024 10:12:05 -0500
Subject: [PATCH] More modular code. Pending! Redundancies should be revised.

---
 src/MiniDocs/LePharoSnippet.extension.st | 11 +++++++++++
 src/MiniDocs/LeTextSnippet.extension.st  | 11 +++++++++++
 2 files changed, 22 insertions(+)

diff --git a/src/MiniDocs/LePharoSnippet.extension.st b/src/MiniDocs/LePharoSnippet.extension.st
index f11904d..667eed6 100644
--- a/src/MiniDocs/LePharoSnippet.extension.st
+++ b/src/MiniDocs/LePharoSnippet.extension.st
@@ -8,6 +8,17 @@ LePharoSnippet >> contentAsStringCustomized [
 	^ thisObject perform: self detectMessage trimmed asSymbol.
 ]
 
+{ #category : #'*MiniDocs' }
+LePharoSnippet >> fromDictionary: anOrderedDictionary [ 
+	self 
+		uid: (LeUID new uidString: (anOrderedDictionary at: 'id'));
+		parent: (anOrderedDictionary at: 'parent');
+		createTime: (LeTime new time: ((anOrderedDictionary at: 'created')asDateAndTime));
+		editTime: (LeTime new time: ((anOrderedDictionary at: 'modified') asDateAndTime));
+		editEmail: (anOrderedDictionary at: 'modifier');
+		createEmail: (anOrderedDictionary at: 'creator').
+]
+
 { #category : #'*MiniDocs' }
 LePharoSnippet >> fromMarkdeep: markdeepDiv [
 
diff --git a/src/MiniDocs/LeTextSnippet.extension.st b/src/MiniDocs/LeTextSnippet.extension.st
index 5a222a6..5a65a0e 100644
--- a/src/MiniDocs/LeTextSnippet.extension.st
+++ b/src/MiniDocs/LeTextSnippet.extension.st
@@ -18,6 +18,17 @@ LeTextSnippet >> asLePage [
 	^ page.
 ]
 
+{ #category : #'*MiniDocs' }
+LeTextSnippet >> fromDictionary: anOrderedDictionary [ 
+	self 
+		uid: (LeUID new uidString: (anOrderedDictionary at: 'id'));
+		parent: (anOrderedDictionary at: 'parent');
+		createTime: (LeTime new time: ((anOrderedDictionary at: 'created')asDateAndTime));
+		editTime: (LeTime new time: ((anOrderedDictionary at: 'modified') asDateAndTime));
+		editEmail: (anOrderedDictionary at: 'modifier');
+		createEmail: (anOrderedDictionary at: 'creator')
+]
+
 { #category : #'*MiniDocs' }
 LeTextSnippet >> fromMarkdeep: markdeepDiv [