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

Patched 'Save as...' to support pandoc as an external program.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2014-11-15 19:01:14 +00:00
parent d0b9885fdf
commit f89d088de6
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
repository/Grafoscopio/GrafoscopioBrowser.class.st
View File

@ -276,7 +276,9 @@ GrafoscopioBrowser >> exportAsHtml [
Smalltalk platform name = 'unix' Smalltalk platform name = 'unix'
ifTrue: [ ifTrue: [
OSProcess command: 'exec ', pandoc, ' ', markdownFileLocation , ' --standalone -o ' , htmlFileLocation. OSProcess command: 'exec ', pandoc, ' ', markdownFileLocation , ' --standalone -o ' , htmlFileLocation.
self inform: 'Archivo exportado como html'. ]. OSProcess command: 'exec echo "exportando como html"'.
self inform: 'Archivo exportado como html en: ', htmlFileLocation.
self inform: pandoc].
Smalltalk platform name = 'Win32' Smalltalk platform name = 'Win32'
ifTrue: [ OSProcess command: pandoc, ' ', markdownFileLocation , ' --standalone -o ' , htmlFileLocation ]] ifTrue: [ OSProcess command: pandoc, ' ', markdownFileLocation , ' --standalone -o ' , htmlFileLocation ]]
ifFalse: [self configurePandoc ]. ifFalse: [self configurePandoc ].
@ -424,7 +426,7 @@ GrafoscopioBrowser >> repositoryCredentials [
GrafoscopioBrowser >> saveToFile [ GrafoscopioBrowser >> saveToFile [
"Saves the current tree to a file" "Saves the current tree to a file"
| file writeStream | | file writeStream markdownFile |
file := UITheme builder file := UITheme builder
fileSave: 'Guardar archivo como...' fileSave: 'Guardar archivo como...'
@ -435,7 +437,9 @@ GrafoscopioBrowser >> saveToFile [
writeStream := file writeStream. writeStream := file writeStream.
workingFile := writeStream name asFileReference. workingFile := writeStream name asFileReference.
[ self exportAsSton: mainTree on: writeStream ] markdownFile := (workingFile parent) / (workingFile basenameWithoutExtension, '.markdown').
[ self exportAsSton: mainTree on: writeStream.
self exportAsMarkdown: mainTree on: markdownFile ]
ensure: [ writeStream ifNotNil: #close ] ensure: [ writeStream ifNotNil: #close ]
] ]