20 lines
417 B
Smalltalk
20 lines
417 B
Smalltalk
Extension { #name : #LePage }
|
|
|
|
{ #category : #'*Grafoscopio-Utils-Core' }
|
|
LePage >> asMarkdeep [
|
|
| bodyStream |
|
|
bodyStream := '' writeStream.
|
|
self preorderTraversal do: [:snippet |
|
|
bodyStream nextPutAll: snippet contentAsString; lf; lf.
|
|
].
|
|
^ Markdeep new
|
|
body: bodyStream contents
|
|
contents.
|
|
]
|
|
|
|
{ #category : #'*Grafoscopio-Utils-Core' }
|
|
LePage >> asMarkdeepInto: aFileLocator [
|
|
|
|
self preorderTraversal
|
|
]
|