diff --git a/repository/Grafoscopio-Utils/LePage.extension.st b/repository/Grafoscopio-Utils/LePage.extension.st index 35d3d9a..35fb6ca 100644 --- a/repository/Grafoscopio-Utils/LePage.extension.st +++ b/repository/Grafoscopio-Utils/LePage.extension.st @@ -1,26 +1,5 @@ Extension { #name : #LePage } -{ #category : #'*Grafoscopio-Utils-Core' } -LePage >> asMarkdeep [ - | bodyStream markdeep | - bodyStream := '' writeStream. - self preorderTraversal do: [:snippet | - bodyStream nextPutAll: snippet asMarkdeep - ]. - markdeep := Markdeep new - title: self title; - body: bodyStream contents; - navTop: self navTop. - self metadata keysAndValuesDo: [:k :v | - markdeep head - add: ''; - yourself. - ]. - self metadata at: 'authors' ifPresent: [:author | markdeep metadata at: 'authors' put: author ]. - self metadata at: 'version' ifPresent: [:version | markdeep metadata at: 'version' put: version ]. - ^ markdeep. -] - { #category : #'*Grafoscopio-Utils-Core' } LePage >> asMarkdeepInto: aFileLocator [