Offray/Grafoscopio
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Sync before Data Week 11.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2018-02-21 19:12:14 +00:00
parent 38f04c2996
commit 11817641a7
2 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
repository/Grafoscopio/GrafoscopioNode.class.st
View File

@ -752,6 +752,7 @@ GrafoscopioNode >> metadataAsYamlIn: markdownStream [
"I convert the first '%metadata' node into a YAML preamble contents to be used by Pandoc
exportation."
self metadata
ifNil: [ markdownStream nextPutAll: String crlf. ]
ifNotNil: [
self metadata
keysAndValuesDo: [ :k :v |

14
repository/Grafoscopio/GrafoscopioNotebook.class.st
View File

@ -189,10 +189,18 @@ GrafoscopioNotebook >> exportAsHTML [
htmlFile := self markdownFile parent fullName,'/', self markdownFile basenameWithoutExtension, '.html'.
htmlFile asFileReference exists ifTrue: [ htmlFile asFileReference delete ].
Smalltalk platformName = 'unix'
ifTrue: [OSProcess command: 'pandoc --standalone ', self markdownFile fullName, ' -o ', htmlFile].
ifTrue: [
OSSUnixSubprocess new
command: 'pandoc';
arguments: {'--standalone'. self markdownFile fullName. '--output' . htmlFile};
redirectStdout;
runAndWaitOnExitDo: [ :process :outString :errString |
process isSuccess
ifTrue: [ self inform: ('File exported as: ', String cr, htmlFile) ]
ifFalse: [ self inform: 'Exportation unsuccesful. Please review that you have
installed Pandoc and have used the exportation options properly.' ]]].
Smalltalk platformName = 'Win32'
ifTrue: [WindowsProcess command: 'pandoc --standalone ', self markdownFile fullName, ' -o ', htmlFile].
self inform: ('File exported as: ', String cr, htmlFile).
ifTrue: [WinProcess createProcess: 'pandoc --standalone ', self markdownFile fullName, ' -o ', htmlFile].
]
{ #category : #persistence }