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' }
@ -312,47 +318,58 @@ GrafoscopioBrowser class >> updateGrafoscopio [
GrafoscopioBrowser class >> updatePrerrequisites [ GrafoscopioBrowser class >> updatePrerrequisites [
"Updates the system prerequisites with new versions of itself take from the source code repository" "Updates the system prerequisites with new versions of itself take from the source code repository"
"Visualization library (which also makes main menu loadable)" "Visualization library (which also makes main menu loadable)"
Gofer it Gofer it
smalltalkhubUser: 'ObjectProfile' project: 'Roassal2'; smalltalkhubUser: 'ObjectProfile' project: 'Roassal2';
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';
loadBleedingEdge. loadBleedingEdge.
"Moose and Roassal integration" "Moose and Roassal integration"
Gofer new Gofer new
smalltalkhubUser: 'Moose' project: 'Glamour'; smalltalkhubUser: 'Moose' project: 'Glamour';
package: 'Glamour-Tools'; package: 'Glamour-Tools';
package: 'Glamour-Roassal2-Presentations'; package: 'Glamour-Roassal2-Presentations';
load. load.
Gofer new Gofer new
smalltalkhubUser: 'Moose' project: 'GToolkit'; smalltalkhubUser: 'Moose' project: 'GToolkit';
package: 'GT-InspectorExtensions-CoreRoassal'; package: 'GT-InspectorExtensions-CoreRoassal';
load. load.
"Integration with external tools" "Integration with external tools"
Gofer new Gofer new
smalltalkhubUser: 'Offray' project: 'Grafoscopio'; smalltalkhubUser: 'Offray' project: 'Grafoscopio';
package: 'Grafoscopio-ExternalTools'; package: 'Grafoscopio-ExternalTools';
load. load.
"HTML scrapping" "HTML scrapping"
Gofer new Gofer new
smalltalkhubUser: 'PharoExtras' project: 'Soup'; smalltalkhubUser: 'PharoExtras' project: 'Soup';
configurationOf: 'Soup'; configurationOf: 'Soup';
loadStable. loadStable.
"Data visualization" "Data visualization"
Gofer new Gofer new
smalltalkhubUser: 'Offray' project: 'Dataviz'; smalltalkhubUser: 'Offray' project: 'Dataviz';
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.