From 167216acc86430558ba9e5c68c28d1cb9c1c8530 Mon Sep 17 00:00:00 2001 From: Offray Luna Date: Sat, 5 Feb 2022 18:33:56 -0500 Subject: [PATCH] Preliminar Lepiter imporation of Markdeep documents finished (stil pedding debugging of "opacity" nodes). --- repository/Grafoscopio-Utils/LePage.extension.st | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/repository/Grafoscopio-Utils/LePage.extension.st b/repository/Grafoscopio-Utils/LePage.extension.st index f1d15cc..66f7f32 100644 --- a/repository/Grafoscopio-Utils/LePage.extension.st +++ b/repository/Grafoscopio-Utils/LePage.extension.st @@ -34,10 +34,10 @@ LePage >> asMarkdeepInto: aFileLocator [ ] { #category : #'*Grafoscopio-Utils-Core' } -LePage >> detectSnippetWithUid: uidString [ +LePage >> detectParentSnippetWithUid: uidString [ "Answer a boolean indicating whether the supplied uid is present" - ^ self preorderTraversal detect: [ :snippet | snippet uidString = uidString ] ifNone: [ ^ nil ] + ^ self preorderTraversal detect: [ :snippet | snippet uidString = uidString ] ifNone: [ ^ self ] ] { #category : #'*Grafoscopio-Utils-Core' } @@ -101,13 +101,13 @@ LePage >> options [ { #category : #'*Grafoscopio-Utils-Core' } LePage >> populateChildrenFrom: docTreeDivs [ - docTreeDivs doWithIndex: [:div :i | | snippetTemp "parent surrogate" | + docTreeDivs doWithIndex: [:div :i | | snippetTemp parent "surrogate" | snippetTemp := LeSnippet fromMetaMarkdeep:div. "self children addSnippet: snippet beforeIndex: i." - self snippetBuilder snippet: snippetTemp; add. - "surrogate := self detectSnippetWithUid: (snippetTemp metadata at: 'parent'). - parent := self snippetBuilder snippet: surrogate." + parent := self detectParentSnippetWithUid: (snippetTemp metadata at: 'parent'). + parent snippetBuilder snippet: snippetTemp; add. + "parent := self snippetBuilder snippet: surrogate." ] ]