Offray/GrafoscopioUtils
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Preliminar Lepiter imporation of Markdeep documents finished (stil pedding debugging of "opacity" nodes).

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2022-02-05 18:33:56 -05:00
parent 4daeb295a2
commit 167216acc8
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
repository/Grafoscopio-Utils/LePage.extension.st
View File

@ -34,10 +34,10 @@ LePage >> asMarkdeepInto: aFileLocator [
] ]
{ #category : #'*Grafoscopio-Utils-Core' } { #category : #'*Grafoscopio-Utils-Core' }
LePage >> detectSnippetWithUid: uidString [ LePage >> detectParentSnippetWithUid: uidString [
"Answer a boolean indicating whether the supplied uid is present" "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' } { #category : #'*Grafoscopio-Utils-Core' }
@ -101,13 +101,13 @@ LePage >> options [
{ #category : #'*Grafoscopio-Utils-Core' } { #category : #'*Grafoscopio-Utils-Core' }
LePage >> populateChildrenFrom: docTreeDivs [ LePage >> populateChildrenFrom: docTreeDivs [
docTreeDivs doWithIndex: [:div :i | | snippetTemp "parent surrogate" | docTreeDivs doWithIndex: [:div :i | | snippetTemp parent "surrogate" |
snippetTemp := LeSnippet fromMetaMarkdeep:div. snippetTemp := LeSnippet fromMetaMarkdeep:div.
"self children "self children
addSnippet: snippet beforeIndex: i." addSnippet: snippet beforeIndex: i."
self snippetBuilder snippet: snippetTemp; add. parent := self detectParentSnippetWithUid: (snippetTemp metadata at: 'parent').
"surrogate := self detectSnippetWithUid: (snippetTemp metadata at: 'parent'). parent snippetBuilder snippet: snippetTemp; add.
parent := self snippetBuilder snippet: surrogate." "parent := self snippetBuilder snippet: surrogate."
] ]
] ]