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

Implementing initial support for Pandoc in Windows. Includes html export, pdf export and html to markdown import. Last two functions keep on having issues.

Browse Source
This commit is contained in:
Ricardo Zapata 2017-12-01 20:15:04 +00:00 committed by Offray Luna
parent bebed308e2
commit 2ee75d58ac
2 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -519,9 +519,14 @@ GrafoscopioNode >> htmlToMarkdown [
markdownFile := FileLocator temp asFileReference / 'body.markdown'. markdownFile := FileLocator temp asFileReference / 'body.markdown'.
markdownFile ensureDelete. markdownFile ensureDelete.
htmlFile writeStreamDo: [:out | out nextPutAll: self body ]. htmlFile writeStreamDo: [:out | out nextPutAll: self body ].
OSProcess Smalltalk platformName = 'unix'
ifTrue: [ OSProcess
waitForCommand: 'pandoc -f html -t markdown --atx-headers ', waitForCommand: 'pandoc -f html -t markdown --atx-headers ',
htmlFile fullName, ' -o ', markdownFile fullName. htmlFile fullName, ' -o ', markdownFile fullName ].
Smalltalk platformName = 'Win32'
ifTrue: [ WindowsProcess
waitForCommand: 'pandoc -f html -t markdown --atx-headers ',
htmlFile fullName, ' -o ', markdownFile fullName ].
self body: markdownFile contents. self body: markdownFile contents.
htmlFile ensureDelete. htmlFile ensureDelete.
markdownFile ensureDelete. markdownFile ensureDelete.

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

@ -187,7 +187,10 @@ GrafoscopioNotebook >> exportAsHTML [
self exportAsMarkdown. self exportAsMarkdown.
htmlFile := self markdownFile parent fullName,'/', self markdownFile basenameWithoutExtension, '.html'. htmlFile := self markdownFile parent fullName,'/', self markdownFile basenameWithoutExtension, '.html'.
htmlFile asFileReference exists ifTrue: [ htmlFile asFileReference delete ]. htmlFile asFileReference exists ifTrue: [ htmlFile asFileReference delete ].
OSProcess command: 'pandoc --standalone ', self markdownFile fullName, ' -o ', htmlFile. Smalltalk platformName = 'unix'
ifTrue: [OSProcess command: 'pandoc --standalone ', self markdownFile fullName, ' -o ', htmlFile].
Smalltalk platformName = 'Win32'
ifTrue: [WindowsProcess command: 'pandoc --standalone ', self markdownFile fullName, ' -o ', htmlFile].
self inform: ('File exported as: ', String cr, htmlFile). self inform: ('File exported as: ', String cr, htmlFile).
] ]
@ -225,7 +228,8 @@ GrafoscopioNotebook >> exportAsPDF [
pandocCommand := 'cd ', self markdownFile parent fullName,'; ', pandocCommand := 'cd ', self markdownFile parent fullName,'; ',
'pandoc ', self pandocOptionsComputed, ' ', 'pandoc ', self pandocOptionsComputed, ' ',
self markdownFile fullName, ' -o ', self pdfFile fullName. self markdownFile fullName, ' -o ', self pdfFile fullName.
ExternalOSProcess command: pandocCommand. Smalltalk platformName = 'unix' ifTrue: [ ExternalOSProcess command: pandocCommand ].
Smalltalk platformName = 'Win32' ifTrue: [ WindowsProcess command: pandocCommand ].
self inform: ('File exported as: ', String cr, self pdfFile fullName) self inform: ('File exported as: ', String cr, self pdfFile fullName)
] ]