Grafoscopio notebooks exported as Lepiter pages in temporal directory.

src/MiniDocs/GrafoscopioNode.class.st

@@ -39,8 +39,8 @@ GrafoscopioNode >> asLePage [
 	page := LePage new
 		initializeTitle: 'Grafoscopio Notebook (imported)'.
 	self nodesInPreorder allButFirst do: [:node | 
-		page addSnippet: node asSnippet .
-	].		
+		page addSnippet: node asSnippet ].
+	page editTime: self root latestEditionDate.
 	^ page.
 ]
 
@@ -49,7 +49,8 @@ GrafoscopioNode >> asSnippet [
 	| snippet child |
 	snippet := LeTextSnippet new 
 		string: self header;
-		createTime: self created;
+		createTime: (LeTime new  
+			time: self created);
 		uid: LeUID new.
 	(self tags includes: 'código') 
 		ifFalse: [ 
@@ -59,7 +60,8 @@ GrafoscopioNode >> asSnippet [
 			child := LePharoSnippet new;
 			code: self body ].
 	child 
-		createTime: self created;
+		createTime: (LeTime new 
+			time: self created);
 		uid: LeUID new.
 	snippet addFirstSnippet: child.
 	snippet optionAt: 'tags' put: self tags.

src/MiniDocs/LeNullDatabase.extension.st

@@ -0,0 +1,6 @@
+Extension { #name : #LeNullDatabase }
+
+{ #category : #'*MiniDocs' }
+LeNullDatabase >> attachmentsDirectory [
+	^ (FileLocator temp / 'lepiter' / 'attachments') ensureCreateDirectory.
+]