Repackaging from GrafoscopioUtils

src/MiniDocs/LeTextualSnippet.extension.st

@@ -1,5 +1,21 @@
 Extension { #name : #LeTextualSnippet }
 
+{ #category : #'*MiniDocs' }
+LeTextualSnippet >> asMarkdown [
+	"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 markdownCustomOpener;
+		nextPutAll: self contentAsString; lf;
+		nextPutAll: self markdownCustomCloser;
+		nextPutAll: '</div>'; lf; lf.
+	^ output contents
+]
+
 { #category : #'*MiniDocs' }
 LeTextualSnippet >> markdeepCustomCloser [
 	^ ''