Remodularization of functionality.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2022-06-16 11:25:02 -05:00
parent 9738bb43e3
commit b6514c136d

View File

@ -42,3 +42,11 @@ LePage >> markdeepFileName [
sanitized := self title asDashedLowercase copyWithoutAll: #($/). sanitized := self title asDashedLowercase copyWithoutAll: #($/).
^ sanitized, '--',(self uidString copyFrom: 1 to: 5), '.md.html'. ^ sanitized, '--',(self uidString copyFrom: 1 to: 5), '.md.html'.
] ]
{ #category : #'*Markdeep' }
LePage >> preorderTraversal [
| output |
output := OrderedCollection new.
self withDeepCollect: [:each | each allChildrenBreadthFirstDo: [:child | output add: child ] ].
^ output.
]