MiniDocs/src/MiniDocs/LePharoSnippet.extension.st

Extension { #name : #LePharoSnippet }

{ #category : #'*MiniDocs' }
LePharoSnippet >> contentAsStringCustomized [
	| customCoder | 
	(self tags includes: 'output') ifFalse: [ ^ self contentAsString ].
	customCoder := GtPharoSnippetCoder forSource: self contentAsString.
	^ (customCoder doItAll) value greaseString
]

{ #category : #'*MiniDocs' }
LePharoSnippet >> markdeepCustomCloser [
	^ String streamContents: [ :stream |
		stream 
			nextPutAll: '~~~'; lf;
			nextPutAll: '</script>';  lf.
		]
]

{ #category : #'*MiniDocs' }
LePharoSnippet >> markdeepCustomOpener [
	^ String streamContents: [ :stream |
		stream 
			nextPutAll: '<script type="preformatted">';  lf;
			nextPutAll: '~~~ Smalltalk'; lf
		]
]

{ #category : #'*MiniDocs' }
LePharoSnippet >> markdownCustomCloser [
	(self tags includes: 'output') ifTrue: [^ String with: Character lf].
	^ String streamContents: [:stream |
		stream 
			nextPutAll: '~~~'; lf
		]
]

{ #category : #'*MiniDocs' }
LePharoSnippet >> markdownCustomOpener [
	(self tags includes: 'output') ifTrue: [ ^ String with: Character lf ].
	^ String
		streamContents: [ :stream | 
			stream
				nextPutAll: '~~~ Smalltalk';
				lf ]
]