Adding platform specific commands for exportation before testing on Windows.
This commit is contained in:
parent
b679e231ec
commit
f3458babb6
@ -72,6 +72,7 @@ Markdown >> exportMetadataAsJson [
|
|||||||
in '.local/share/Grafoscopio/Scripts' should be developed in the near future."
|
in '.local/share/Grafoscopio/Scripts' should be developed in the near future."
|
||||||
| output luaScript |
|
| output luaScript |
|
||||||
luaScript := FileLocator home / '.local/share/Brea/scripts/meta-to-json.lua'.
|
luaScript := FileLocator home / '.local/share/Brea/scripts/meta-to-json.lua'.
|
||||||
|
Smalltalk platformName = 'unix' ifTrue: [
|
||||||
OSSUnixSubprocess new
|
OSSUnixSubprocess new
|
||||||
workingDirectory: self file parent fullName;
|
workingDirectory: self file parent fullName;
|
||||||
command: 'pandoc';
|
command: 'pandoc';
|
||||||
@ -82,7 +83,7 @@ Markdown >> exportMetadataAsJson [
|
|||||||
output := process isSuccess
|
output := process isSuccess
|
||||||
ifTrue: [ outString ]
|
ifTrue: [ outString ]
|
||||||
ifFalse: [ errString ]
|
ifFalse: [ errString ]
|
||||||
].
|
]].
|
||||||
^ output correctAccentedCharacters
|
^ output correctAccentedCharacters
|
||||||
]
|
]
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user