Improving Grafoscopio/Lepiter import and export.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2023-01-29 13:14:33 -05:00
parent b67df075b1
commit 0b66b7513c
2 changed files with 4 additions and 3 deletions

View File

@ -40,7 +40,8 @@ GrafoscopioNode >> asLePage [
initializeTitle: 'Grafoscopio Notebook (imported)'. initializeTitle: 'Grafoscopio Notebook (imported)'.
self nodesInPreorder allButFirst do: [:node | self nodesInPreorder allButFirst do: [:node |
page addSnippet: node asSnippet ]. page addSnippet: node asSnippet ].
page editTime: self root latestEditionDate. page latestEditTime: self root latestEditionDate.
page createTime: self root earliestCreationDate.
^ page. ^ page.
] ]

View File

@ -18,8 +18,8 @@ LeDatabase >> addPageFromMarkdeep: markdeepDocTree withRemote: externalDocLocati
createTime: (LeTime new time: (remoteMetadata at: 'created') asDateAndTime); createTime: (LeTime new time: (remoteMetadata at: 'created') asDateAndTime);
editTime: (LeTime new time: (remoteMetadata at: 'modified') asDateAndTime); editTime: (LeTime new time: (remoteMetadata at: 'modified') asDateAndTime);
latestEditTime: (LeTime new time: (remoteMetadata at: 'modified') asDateAndTime); latestEditTime: (LeTime new time: (remoteMetadata at: 'modified') asDateAndTime);
createEmail: (LeEmail new email: (remoteMetadata at: 'creator')); createEmail: (remoteMetadata at: 'creator');
editEmail: (LeEmail new email: (remoteMetadata at: 'modifier')). editEmail: (remoteMetadata at: 'modifier').
snippets do: [ :snippet | page addSnippet: snippet ]. snippets do: [ :snippet | page addSnippet: snippet ].
page children page children
do: [ :snippet | do: [ :snippet |