From 60cfd01f0db8fc885367f5b4560ebb7de04b0607 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Fri, 20 Oct 2023 13:54:43 -0500
Subject: [PATCH] Preparing improvements on parenthood detection for the
 document tree.

---
 src/MiniDocs/LeDatabase.extension.st | 6 +++++-
 src/MiniDocs/LePage.extension.st     | 5 ++---
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/src/MiniDocs/LeDatabase.extension.st b/src/MiniDocs/LeDatabase.extension.st
index 2050b6d..3c29a07 100644
--- a/src/MiniDocs/LeDatabase.extension.st
+++ b/src/MiniDocs/LeDatabase.extension.st
@@ -35,7 +35,11 @@ LeDatabase >> addPageFromMarkdeep: markdeepDocTree withRemote: externalDocLocati
 			latestEditTime: (LeTime new time: (remoteMetadata at: 'modified') asDateAndTime);
 			createEmail: (remoteMetadata at: 'creator');
 			editEmail: (remoteMetadata at: 'modifier').
-	snippets do: [ :snippet | page addSnippet: snippet ].
+	snippets do: [ :snippet | | currentParent |
+		page addSnippet: snippet.
+		currentParent := page detectParentSnippetWithUid: (snippet metadata at: 'parent').
+		snippet parent: currentParent.
+	].
 	page children
 		do: [ :snippet | 
 			(self hasBlockUID: snippet uid)
diff --git a/src/MiniDocs/LePage.extension.st b/src/MiniDocs/LePage.extension.st
index eb8d74a..3650dfc 100644
--- a/src/MiniDocs/LePage.extension.st
+++ b/src/MiniDocs/LePage.extension.st
@@ -85,9 +85,8 @@ LePage >> defaultPandocTemplate [
 
 { #category : #'*MiniDocs' }
 LePage >> detectParentSnippetWithUid: uidString [
-	"Answer a boolean indicating whether the supplied uid is present"
-
-	^ self preorderTraversal detect: [ :snippet | snippet uidString = uidString ] ifNone: [ ^ self ] 
+	uidString = self uid asString36 ifTrue: [ ^ self ].
+	^ self preorderTraversal detect: [ :snippet | snippet uidString = uidString ]
 ]
 
 { #category : #'*MiniDocs' }