Created and edited times management started.

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.
+		page addSnippet: node asSnippet .
-		(node level = 1) 
+	].		
-			ifFalse: [ node asSnippet parent: node parent 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 }