diff --git a/repository/Grafoscopio-Utils/LePictureSnippet.extension.st b/repository/Grafoscopio-Utils/LePictureSnippet.extension.st index c3f1823..6e5174a 100644 --- a/repository/Grafoscopio-Utils/LePictureSnippet.extension.st +++ b/repository/Grafoscopio-Utils/LePictureSnippet.extension.st @@ -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: ''; lf; lf. - ^ output contents -] - { #category : #'*Grafoscopio-Utils-Core' } LePictureSnippet >> centeredFigure [ diff --git a/repository/Grafoscopio-Utils/LeTextualSnippet.extension.st b/repository/Grafoscopio-Utils/LeTextualSnippet.extension.st index 04b31c5..d8272b2 100644 --- a/repository/Grafoscopio-Utils/LeTextualSnippet.extension.st +++ b/repository/Grafoscopio-Utils/LeTextualSnippet.extension.st @@ -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: '
'; lf; - nextPutAll: self markdeepCustomOpener; - nextPutAll: self contentAsString; lf; - nextPutAll: self markdeepCustomCloser; - nextPutAll: '
'; lf; lf. - ^ output contents -] - { #category : #'*Grafoscopio-Utils-Core' } LeTextualSnippet >> childrenIds [ ^ self children collect: [ :each | each uidString ]