diff --git a/src/MiniDocs/LePage.extension.st b/src/MiniDocs/LePage.extension.st index 22c8129..df8f5f5 100644 --- a/src/MiniDocs/LePage.extension.st +++ b/src/MiniDocs/LePage.extension.st @@ -113,6 +113,19 @@ LePage >> metadata [ ^ self options at: 'metadata' ifAbsentPut: [ self metadataInit] ] +{ #category : #'*MiniDocs' } +LePage >> metadataInit [ + + ^ OrderedDictionary new + at: 'id' put: self uidString; + at: 'title' put: self contentAsString; + at: 'created' put: self createTime greaseString; + at: 'modified' put: self latestEditTime greaseString; + at: 'creator' put: self createEmail greaseString; + at: 'modifier' put: self editEmail greaseString; + yourself +] + { #category : #'*MiniDocs' } LePage >> options [ ^ options