14 lines
411 B
Smalltalk
14 lines
411 B
Smalltalk
Extension { #name : #LePharoSnippet }
|
|
|
|
{ #category : #'*Grafoscopio-Utils-Core' }
|
|
LePharoSnippet >> contentFrom: markdeepDiv [
|
|
| sanitized divContents |
|
|
divContents := markdeepDiv contentString.
|
|
sanitized := String streamContents: [:stream |
|
|
(divContents lines copyFrom: 4 to: divContents lines size - 2) do: [:line |
|
|
stream nextPutAll: line; lf
|
|
]
|
|
].
|
|
self code: sanitized contents allButLast.
|
|
]
|