From 34447e2ae4224c5dd346e19fc41d69aa0ebbc55c Mon Sep 17 00:00:00 2001 From: Offray Luna Date: Tue, 11 Nov 2014 16:38:18 +0000 Subject: [PATCH] Windows Preliminar support for Pandoc exportation. --- repository/Grafoscopio/GrafoscopioBrowser.class.st | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st index 4e49a4c..fd79597 100644 --- a/repository/Grafoscopio/GrafoscopioBrowser.class.st +++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st @@ -212,7 +212,11 @@ GrafoscopioBrowser >> configureSettings [ fossil := (FileSystem disk workingDirectory / 'Platform' / 'Linux' / 'Programs' / 'Fossil' / 'fossil') fullName. pandoc := (FileSystem disk workingDirectory / 'Platform' / 'Linux' / 'Programs' / 'Pandoc' / 'pandoc') fullName. ]. - localRepository := (FileSystem disk workingDirectory / 'Grafoscopio' / 'Projects' / 'SoftwareLibre-Educacion' / 'soliedu.fossil').. + Smalltalk platform name = 'Win32' + ifTrue: [ + fossil := (FileSystem disk workingDirectory / 'Platform' / 'Windows' / 'Programs' / 'Fossil' / 'fossil.exe') fullName. + pandoc := (FileSystem disk workingDirectory / 'Platform' / 'Windows' / 'Programs' / 'Pandoc' / 'pandoc.exe') fullName. ]. + localRepository := (FileSystem disk workingDirectory / 'Grafoscopio' / 'Projects' / 'SoftwareLibre-Educacion' / 'soliedu.fossil'). remoteRepository := 'http://mutabit.com/deltas/repos.fossil/soliedu'. ] @@ -253,7 +257,11 @@ GrafoscopioBrowser >> exportAsHtml [ | markdownFileLocation htmlFileLocation | markdownFileLocation := ((workingFile parent) / workingFile basenameWithoutExtension) fullName, '.markdown'. htmlFileLocation := ((workingFile parent) / workingFile basenameWithoutExtension) fullName, '.html'. - OSProcess command: 'exec ', pandoc, ' ', markdownFileLocation , ' --standalone -o ' , htmlFileLocation. + Smalltalk platform name = 'unix' + ifTrue: [ OSProcess command: 'exec ', pandoc, ' ', markdownFileLocation , ' --standalone -o ' , htmlFileLocation ]. + Smalltalk platform name = 'Win32' + ifTrue: [ OSProcess command: pandoc, ' ', markdownFileLocation , ' --standalone -o ' , htmlFileLocation ]. + self customKeys. self inform: 'Archivo exportado como html'. ]