49 lines
1.2 KiB
Smalltalk
49 lines
1.2 KiB
Smalltalk
Extension { #name : #LePictureSnippet }
|
|
|
|
{ #category : #'*MiniDocs' }
|
|
LePictureSnippet >> asMarkdeep [
|
|
| output |
|
|
output := WriteStream on: ''.
|
|
output
|
|
nextPutAll: self metadataDiv;
|
|
nextPutAll: '';
|
|
nextPut: Character lf;
|
|
nextPutAll: '</div>';
|
|
nextPut: Character lf;
|
|
nextPut: Character lf.
|
|
^ output contents
|
|
]
|
|
|
|
{ #category : #'*MiniDocs' }
|
|
LePictureSnippet >> metadata [
|
|
^ self optionAt: 'metadata' ifAbsentPut: [ self metadataInit ]
|
|
]
|
|
|
|
{ #category : #'*MiniDocs' }
|
|
LePictureSnippet >> metadataDiv [
|
|
| output |
|
|
output := WriteStream on: ''.
|
|
output
|
|
nextPutAll: '<div st-class="' , self class greaseString , '"';
|
|
nextPut: Character lf;
|
|
nextPutAll: ' st-data="' , (STON toString: self metadata) , '">'.
|
|
^ output.
|
|
|
|
]
|
|
|
|
{ #category : #'*MiniDocs' }
|
|
LePictureSnippet >> metadataInit [
|
|
| surrogate |
|
|
self parent
|
|
ifNil: [ surrogate := nil]
|
|
ifNotNil: [ surrogate := self parent uidString ].
|
|
^ OrderedDictionary new
|
|
at: 'id' put: self uidString;
|
|
at: 'parent' put: surrogate;
|
|
at: 'created' put: self createTime asString;
|
|
at: 'modified' put: self latestEditTime asString;
|
|
at: 'creator' put: self createEmail asString;
|
|
at: 'modifier' put: self editEmail asString;
|
|
yourself
|
|
]
|