Merge 2989ba0986
This commit is contained in:
commit
38b1196d3c
@ -107,6 +107,30 @@ LePage >> markdownFileName [
|
|||||||
^ self exportedFileName, '.md'
|
^ self exportedFileName, '.md'
|
||||||
]
|
]
|
||||||
|
|
||||||
|
{ #category : #'*MiniDocs' }
|
||||||
|
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
|
||||||
|
]
|
||||||
|
|
||||||
{ #category : #'*MiniDocs' }
|
{ #category : #'*MiniDocs' }
|
||||||
LePage >> preorderTraversal [
|
LePage >> preorderTraversal [
|
||||||
| output |
|
| output |
|
||||||
|
Loading…
Reference in New Issue
Block a user