From 53910fa840279e7cfbbb837d63b0bd6879231680 Mon Sep 17 00:00:00 2001
From: Offray <offray.luna@mutabit.com>
Date: Sat, 13 Apr 2024 10:00:12 -0500
Subject: [PATCH] Recovering metadata from children for updating notebook
 metadata.

---
 src/MiniDocs/LePage.extension.st | 28 +++++++++++++++++++++++++++-
 1 file changed, 27 insertions(+), 1 deletion(-)

diff --git a/src/MiniDocs/LePage.extension.st b/src/MiniDocs/LePage.extension.st
index ef917f2..b0271ca 100644
--- a/src/MiniDocs/LePage.extension.st
+++ b/src/MiniDocs/LePage.extension.st
@@ -26,9 +26,9 @@ LePage >> asMarkdeep [
 	markdeep := Markdeep new
 			title: self title;
 			body: bodyStream contents;
+			metadata: self metadata;
 			file: self storage / self markdeepFileName;
 			navTop: self navTop.
-	"self exportMetadataToHead: markdeep."
 	self metadata
 		at: 'authors'
 		ifPresent: [ :author | markdeep metadata at: 'authors' put: author ].
@@ -205,6 +205,19 @@ LePage >> navTop [
 		ifTrue: [ ^ topNavFile contents ]
 ]
 
+{ #category : #'*MiniDocs' }
+LePage >> olderChild [
+	"I provide the last edited child node.
+	I'm useful to recalculate the age of a notebook."
+	| response|
+	response := self preorderTraversal first.
+	self preorderTraversal do: [:current |
+		current editTime >= response editTime 
+			ifTrue: [ response := current ]
+	].
+	^ response
+]
+
 { #category : #'*MiniDocs' }
 LePage >> options [
 	^ options
@@ -304,3 +317,16 @@ LePage >> uiRefreshWebPreviewButtonFor: anAction [
 			"TODO: If Chrome/Chromium are not installed, I should execute:"
 			"WebBrowser openOn: self page localHostAddress" ]
 ]
+
+{ #category : #'*MiniDocs' }
+LePage >> youngerChild [
+	"I provide the first create child node.
+	I'm useful to recalculate the age of a notebook."
+	| response|
+	response := self preorderTraversal first.
+	self preorderTraversal do: [:current |
+		current createTime <= response createTime 
+			ifTrue: [ response := current ]
+	].
+	^ response
+]