From bb75994dd0a8bf79a2e9a15c7b58f2e075d26646 Mon Sep 17 00:00:00 2001 From: Offray Luna Date: Wed, 1 Nov 2023 21:11:10 -0500 Subject: [PATCH] Adding remote locations to increase documents traceability. --- src/MiniDocs/GrafoscopioNode.class.st | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/MiniDocs/GrafoscopioNode.class.st b/src/MiniDocs/GrafoscopioNode.class.st index dc5e3e0..a1cfcb5 100644 --- a/src/MiniDocs/GrafoscopioNode.class.st +++ b/src/MiniDocs/GrafoscopioNode.class.st @@ -61,10 +61,11 @@ GrafoscopioNode >> asLePage [ self root populateTimestamps. page := LePage new initializeTitle: 'Grafoscopio Notebook (imported)'. - self nodesInPreorder allButFirst do: [:node | - page addSnippet: node asSnippet ]. + self nodesInPreorder allButFirst + do: [:node | page addSnippet: node asSnippet ]. page latestEditTime: self root latestEditionDate. page createTime: self root earliestCreationDate. + page optionAt: 'remoteLocations' put: self remoteLocations. ^ page. ]