From 0b66b7513cec109cf1391cc89bbab90922583b7b Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Sun, 29 Jan 2023 13:14:33 -0500
Subject: [PATCH] Improving Grafoscopio/Lepiter import and export.

---
 src/MiniDocs/GrafoscopioNode.class.st | 3 ++-
 src/MiniDocs/LeDatabase.extension.st  | 4 ++--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/MiniDocs/GrafoscopioNode.class.st b/src/MiniDocs/GrafoscopioNode.class.st
index c224cfe..9202e6b 100644
--- a/src/MiniDocs/GrafoscopioNode.class.st
+++ b/src/MiniDocs/GrafoscopioNode.class.st
@@ -40,7 +40,8 @@ GrafoscopioNode >> asLePage [
 		initializeTitle: 'Grafoscopio Notebook (imported)'.
 	self nodesInPreorder allButFirst do: [:node | 
 		page addSnippet: node asSnippet ].
-	page editTime: self root latestEditionDate.
+	page latestEditTime: self root latestEditionDate.
+	page createTime: self root earliestCreationDate.
 	^ page.
 ]
 
diff --git a/src/MiniDocs/LeDatabase.extension.st b/src/MiniDocs/LeDatabase.extension.st
index 0c8c063..ea5ff04 100644
--- a/src/MiniDocs/LeDatabase.extension.st
+++ b/src/MiniDocs/LeDatabase.extension.st
@@ -18,8 +18,8 @@ LeDatabase >> addPageFromMarkdeep: markdeepDocTree withRemote: externalDocLocati
 			createTime: (LeTime new time: (remoteMetadata at: 'created') asDateAndTime);
 			editTime: (LeTime new time: (remoteMetadata at: 'modified') asDateAndTime);
 			latestEditTime: (LeTime new time: (remoteMetadata at: 'modified') asDateAndTime);
-			createEmail: (LeEmail new email: (remoteMetadata at: 'creator'));
-			editEmail: (LeEmail new email: (remoteMetadata at: 'modifier')).
+			createEmail: (remoteMetadata at: 'creator');
+			editEmail: (remoteMetadata at: 'modifier').
 	snippets do: [ :snippet | page addSnippet: snippet ].
 	page children
 		do: [ :snippet |