HTML export for Mac OS. Alpha version.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2015-07-10 16:05:59 +00:00
parent b66dfca988
commit 3c1a134163

View File

@ -66,7 +66,8 @@ GrafoscopioBrowser class >> configurePandoc [
{ #category : #'as yet unclassified' } { #category : #'as yet unclassified' }
GrafoscopioBrowser class >> configureSettings [ GrafoscopioBrowser class >> configureSettings [
"Stablish several 'global' settings according to to image location and the operative system" "Stablish several 'global' settings according to to image location and the operative system. For the moment we're gonna use hardcoded paths,
but in the future this will be a smarter method finding the proper external tool and setting up it."
draftsLocation := FileSystem disk workingDirectory / 'Grafoscopio' / 'Drafts'. draftsLocation := FileSystem disk workingDirectory / 'Grafoscopio' / 'Drafts'.
draftsLocation ensureCreateDirectory. draftsLocation ensureCreateDirectory.
@ -79,6 +80,11 @@ GrafoscopioBrowser class >> configureSettings [
ifTrue: [ ifTrue: [
fossil := (FileSystem disk workingDirectory / 'Platform' / 'Windows' / 'Programs' / 'Fossil' / 'fossil.exe') fullName. fossil := (FileSystem disk workingDirectory / 'Platform' / 'Windows' / 'Programs' / 'Fossil' / 'fossil.exe') fullName.
pandoc := (FileSystem disk workingDirectory / 'Platform' / 'Windows' / 'Programs' / 'Pandoc' / 'pandoc.exe') fullName]. pandoc := (FileSystem disk workingDirectory / 'Platform' / 'Windows' / 'Programs' / 'Pandoc' / 'pandoc.exe') fullName].
Smalltalk platform name = 'Mac OS'
ifTrue: [
fossil := ((FileLocator desktop) asFileReference / 'fossil') fullName.
pandoc := (FileSystem disk / 'usr' / 'local' / 'bin' / 'pandoc') fullName.
]
] ]
{ #category : #'as yet unclassified' } { #category : #'as yet unclassified' }
@ -318,7 +324,7 @@ Gofer it
configurationOf: 'Roassal2'; configurationOf: 'Roassal2';
loadDevelopment. loadDevelopment.
"Open/save files on STON format" "Support for the STON format used in file persistance for grafoscopio notebooks"
Gofer new Gofer new
smalltalkhubUser: 'SvenVanCaekenberghe' project: 'STON'; smalltalkhubUser: 'SvenVanCaekenberghe' project: 'STON';
configurationOf: 'Ston'; configurationOf: 'Ston';
@ -354,6 +360,17 @@ Gofer new
package: 'Dataviz'; package: 'Dataviz';
load. load.
"Support for Operative System integration"
Gofer new
squeaksource: 'OSProcess';
package: 'OSProcess';
load.
Gofer new
squeaksource: 'CommandShell';
package: 'CommandShell-Piping';
load.
self inform: 'La actualización de los prerrequisitos ha terminado' self inform: 'La actualización de los prerrequisitos ha terminado'
] ]
@ -781,7 +798,7 @@ GrafoscopioBrowser >> exportAsHtml [
self inform: pandoc]. 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: [GrafoscopioBrowser configurePandoc ]. ifFalse: [GrafoscopioBrowser configureSettings].
self customKeys. self customKeys.