Improving Grafoscopio/Lepiter import and export.
This commit is contained in:
parent
b67df075b1
commit
0b66b7513c
@ -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.
|
||||||
]
|
]
|
||||||
|
|
||||||
|
@ -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 |
|
||||||
|
Loading…
Reference in New Issue
Block a user