Using GtSubProcess to work on memory and avoid external files creation.
This commit is contained in:
parent
b500a65c00
commit
af81f92399
@ -24,14 +24,17 @@ Class {
|
|||||||
|
|
||||||
{ #category : #operation }
|
{ #category : #operation }
|
||||||
BreaPage >> bodyContentsAsHTML [
|
BreaPage >> bodyContentsAsHTML [
|
||||||
| sourcePage |
|
| sourcePage commandParameters |
|
||||||
self contentsFile ifNil: [ ^ self ].
|
self contentsFile ifNil: [ ^ self ].
|
||||||
|
sourcePage := self file file.
|
||||||
Smalltalk os isWindows ifTrue: [
|
Smalltalk os isWindows ifTrue: [
|
||||||
^ Pandoc markdownToHtml: self file file
|
^ Pandoc markdownToHtml: sourcePage
|
||||||
].
|
].
|
||||||
sourcePage := FileLocator temp / 'wikiPage.md'.
|
commandParameters := ' -f markdown+startnum+task_lists -t html '.
|
||||||
MarkupFile exportAsFileOn: sourcePage containing: self contents.
|
^ GtSubprocessWithInMemoryOutput new
|
||||||
^ Pandoc markdownToHtml: sourcePage
|
shellCommand: 'pandoc', commandParameters, sourcePage fullName;
|
||||||
|
runAndWait;
|
||||||
|
stdout.
|
||||||
]
|
]
|
||||||
|
|
||||||
{ #category : #accessing }
|
{ #category : #accessing }
|
||||||
@ -63,7 +66,7 @@ BreaPage >> contents [
|
|||||||
result nextPutAll: (Markdown fromFile: markdownTempFile) contents.
|
result nextPutAll: (Markdown fromFile: markdownTempFile) contents.
|
||||||
]
|
]
|
||||||
].
|
].
|
||||||
^ result contents.
|
^ result contents withInternetLineEndings.
|
||||||
]
|
]
|
||||||
|
|
||||||
{ #category : #operation }
|
{ #category : #operation }
|
||||||
|
Loading…
Reference in New Issue
Block a user