From ed211f2fb81551714f713fffe4e93ab75c707125 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Thu, 26 Jan 2023 20:55:47 -0500
Subject: [PATCH] Grafoscopio notebooks exported as Lepiter pages.

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

diff --git a/src/MiniDocs/GrafoscopioNode.class.st b/src/MiniDocs/GrafoscopioNode.class.st
index e248ab0..574e269 100644
--- a/src/MiniDocs/GrafoscopioNode.class.st
+++ b/src/MiniDocs/GrafoscopioNode.class.st
@@ -35,6 +35,7 @@ GrafoscopioNode >> ancestors [
 { #category : #accessing }
 GrafoscopioNode >> asLePage [
 	| page |
+	self root populateTimestamps.
 	page := LePage new
 		initializeTitle: 'Grafoscopio Notebook (imported)'.
 	self nodesInPreorder allButFirst do: [:node | 
diff --git a/src/MiniDocs/Markdeep.class.st b/src/MiniDocs/Markdeep.class.st
index b50ac1b..26a7abc 100644
--- a/src/MiniDocs/Markdeep.class.st
+++ b/src/MiniDocs/Markdeep.class.st
@@ -41,7 +41,7 @@ Markdeep >> authors [
 { #category : #'instance creation' }
 Markdeep >> authorsString [
 	self authors 
-		ifNil: [ ^ '' ] ifNotNil: [ ^ '                             ', self authors ]
+		ifNil: [ ^ '' ] ifNotNil: [ ^ '                        ', self authors ]
 ]
 
 { #category : #accessing }
@@ -132,9 +132,9 @@ Markdeep >> contents [
 	output := '' writeStream.
 	output 
 		nextPutAll: self headContents; lf; lf;
-		nextPutAll: '                           **', self title, '**'; lf;
+		nextPutAll: '                      **', self title trimmed, '**'; lf;
 		nextPutAll:  self authorsString ; lf;
-		nextPutAll: '                           ', self version; lf;
+		nextPutAll: '', self version; lf;
 		nextPutAll: self navTop; lf; lf;
 		nextPutAll:	self body; lf; lf;
 		nextPutAll: self tail; lf; lf; lf; lf;