diff --git a/src/MiniDocs/LePage.extension.st b/src/MiniDocs/LePage.extension.st
index 4c0e1d8..7426bae 100644
--- a/src/MiniDocs/LePage.extension.st
+++ b/src/MiniDocs/LePage.extension.st
@@ -21,32 +21,21 @@ LePage >> asHtmlFile [
LePage >> asMarkdeep [
| bodyStream markdeep |
bodyStream := '' writeStream.
- self preorderTraversal do: [:snippet |
- bodyStream nextPutAll: snippet asMarkdeep
- ].
+ self preorderTraversal
+ do: [ :snippet | bodyStream nextPutAll: snippet asMarkdeep ].
markdeep := Markdeep new
- title: self title;
- body: bodyStream contents;
- file: self storage / self markdeepFileName;
- navTop: self navTop.
- markdeep head
- add: ''.
- self metadata keysAndValuesDo: [:k :v |
- k = 'lang'
- ifTrue: [
- markdeep head
- add: '';
- yourself.
- ]
- ifFalse: [
- 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.
+ title: self title;
+ body: bodyStream contents;
+ file: self storage / self markdeepFileName;
+ navTop: self navTop.
+ "self exportMetadataToHead: markdeep."
+ 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 : #'*MiniDocs' }
@@ -102,6 +91,19 @@ LePage >> detectParentSnippetWithUid: uidString [
^ self preorderTraversal detect: [ :snippet | snippet uidString = uidString ]
]
+{ #category : #'*MiniDocs' }
+LePage >> exportMetadataToHead: markdeep [
+ self metadata
+ keysAndValuesDo: [ :k :v |
+ k = 'lang'
+ ifTrue: [ markdeep head
+ add: '';
+ yourself ]
+ ifFalse: [ markdeep head
+ add: '';
+ yourself ] ]
+]
+
{ #category : #'*MiniDocs' }
LePage >> exportedFileName [
| sanitized |