Moving out functionality to MiniDocs.
This commit is contained in:
parent
ccf9d2cd0f
commit
53326c077e
@ -1,16 +1,5 @@
|
||||
Extension { #name : #LePictureSnippet }
|
||||
|
||||
{ #category : #'*Grafoscopio-Utils-Core' }
|
||||
LePictureSnippet >> asMarkdeep [
|
||||
| output extraData |
|
||||
output := '' writeStream.
|
||||
output
|
||||
nextPutAll: self metadataDiv;
|
||||
nextPutAll: self centeredFigure; lf;
|
||||
nextPutAll: '</div>'; lf; lf.
|
||||
^ output contents
|
||||
]
|
||||
|
||||
{ #category : #'*Grafoscopio-Utils-Core' }
|
||||
LePictureSnippet >> centeredFigure [
|
||||
|
||||
|
@ -1,21 +1,5 @@
|
||||
Extension { #name : #LeTextualSnippet }
|
||||
|
||||
{ #category : #'*Grafoscopio-Utils-Core' }
|
||||
LeTextualSnippet >> asMarkdeep [
|
||||
"Inspired by Alpine.js and Assembler CSS 'x-' properties, we are going to use
|
||||
'st-' properties as a way to extend divs metadata regarding its contents."
|
||||
| output |
|
||||
output := '' writeStream.
|
||||
output
|
||||
nextPutAll: '<div st-class="', self class asString, '"'; lf;
|
||||
nextPutAll: ' st-data="', (STON toString: self metadata), '">'; lf;
|
||||
nextPutAll: self markdeepCustomOpener;
|
||||
nextPutAll: self contentAsString; lf;
|
||||
nextPutAll: self markdeepCustomCloser;
|
||||
nextPutAll: '</div>'; lf; lf.
|
||||
^ output contents
|
||||
]
|
||||
|
||||
{ #category : #'*Grafoscopio-Utils-Core' }
|
||||
LeTextualSnippet >> childrenIds [
|
||||
^ self children collect: [ :each | each uidString ]
|
||||
|
Loading…
Reference in New Issue
Block a user