2022-01-28 21:55:44 +00:00
|
|
|
Extension { #name : #LePharoSnippet }
|
|
|
|
|
2022-02-02 23:35:39 +00:00
|
|
|
{ #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.
|
|
|
|
]
|