17 lines
493 B
Smalltalk
17 lines
493 B
Smalltalk
Extension { #name : #LePage }
|
|
|
|
{ #category : #'*Grafoscopio-Utils-Core' }
|
|
LePage >> asMarkdeepInto: aFileLocator [
|
|
|
|
self preorderTraversal
|
|
]
|
|
|
|
{ #category : #'*Grafoscopio-Utils-Core' }
|
|
LePage >> populateChildrenFrom: docTreeDivs [
|
|
docTreeDivs doWithIndex: [:div :i | | snippetTemp parent "surrogate" |
|
|
snippetTemp := LeSnippet fromMetaMarkdeep:div.
|
|
parent := self detectParentSnippetWithUid: (snippetTemp metadata at: 'parent').
|
|
parent snippetBuilder snippet: snippetTemp; add.
|
|
]
|
|
]
|