Grafoscopio notebooks exported as Lepiter pages.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2023-01-26 20:55:47 -05:00
parent a5a01e7ca6
commit ed211f2fb8
2 changed files with 4 additions and 3 deletions

View File

@ -35,6 +35,7 @@ GrafoscopioNode >> ancestors [
{ #category : #accessing } { #category : #accessing }
GrafoscopioNode >> asLePage [ GrafoscopioNode >> asLePage [
| page | | page |
self root populateTimestamps.
page := LePage new page := LePage new
initializeTitle: 'Grafoscopio Notebook (imported)'. initializeTitle: 'Grafoscopio Notebook (imported)'.
self nodesInPreorder allButFirst do: [:node | self nodesInPreorder allButFirst do: [:node |

View File

@ -41,7 +41,7 @@ Markdeep >> authors [
{ #category : #'instance creation' } { #category : #'instance creation' }
Markdeep >> authorsString [ Markdeep >> authorsString [
self authors self authors
ifNil: [ ^ '' ] ifNotNil: [ ^ ' ', self authors ] ifNil: [ ^ '' ] ifNotNil: [ ^ ' ', self authors ]
] ]
{ #category : #accessing } { #category : #accessing }
@ -132,9 +132,9 @@ Markdeep >> contents [
output := '' writeStream. output := '' writeStream.
output output
nextPutAll: self headContents; lf; lf; nextPutAll: self headContents; lf; lf;
nextPutAll: ' **', self title, '**'; lf; nextPutAll: ' **', self title trimmed, '**'; lf;
nextPutAll: self authorsString ; lf; nextPutAll: self authorsString ; lf;
nextPutAll: ' ', self version; lf; nextPutAll: '', self version; lf;
nextPutAll: self navTop; lf; lf; nextPutAll: self navTop; lf; lf;
nextPutAll: self body; lf; lf; nextPutAll: self body; lf; lf;
nextPutAll: self tail; lf; lf; lf; lf; nextPutAll: self tail; lf; lf; lf; lf;