From 2f9bef131f3c93fdf7cc2e7343077fe61c3bbc45 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Sun, 22 Jan 2023 23:33:24 -0500
Subject: [PATCH] Created and edited times management started.

---
 src/MiniDocs/GrafoscopioNode.class.st | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/src/MiniDocs/GrafoscopioNode.class.st b/src/MiniDocs/GrafoscopioNode.class.st
index 1dd44bf..68f5379 100644
--- a/src/MiniDocs/GrafoscopioNode.class.st
+++ b/src/MiniDocs/GrafoscopioNode.class.st
@@ -23,10 +23,8 @@ GrafoscopioNode >> asLePage [
 	page := LePage new
 		title: 'Grafoscopio Notebook (imported)'.
 	self nodesInPreorder allButFirst do: [:node | 
-		page addSnippet: node asSnippet.
-		(node level = 1) 
-			ifFalse: [ node asSnippet parent: node parent asSnippet ]
-	].
+		page addSnippet: node asSnippet .
+	].		
 	^ page.
 ]
 
@@ -35,7 +33,8 @@ GrafoscopioNode >> asSnippet [
 	| snippet child |
 	snippet := LeTextSnippet new 
 		string: self header;
-		createTime: self created.
+		createTime: self created;
+		uid: LeUID new.
 	(self tags includes: 'código') 
 		ifFalse: [ 
 			child := LeTextSnippet new;
@@ -43,7 +42,9 @@ GrafoscopioNode >> asSnippet [
 		ifTrue: [ 
 			child := LePharoSnippet new;
 			code: self body ].
-	child createTime: self created.
+	child 
+		createTime: self created;
+		uid: LeUID new.
 	snippet addFirstSnippet: child.
 	snippet optionAt: 'tags' put: self tags.
 	^ snippet
@@ -71,6 +72,7 @@ GrafoscopioNode >> children: anObject [
 
 { #category : #accessing }
 GrafoscopioNode >> created [
+	created ifNotNil: [^created asDateAndTime].
 	^ created
 ]
 
@@ -81,7 +83,7 @@ GrafoscopioNode >> created: anObject [
 
 { #category : #accessing }
 GrafoscopioNode >> edited [
-	^ edited
+	^ edited asDateAndTime
 ]
 
 { #category : #accessing }