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

Adding platform specific commands for exportation before testing on Windows.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2020-10-09 13:22:59 -05:00
parent b679e231ec
commit f3458babb6
1 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
repository/Grafoscopio-Utils/Markdown.class.st
View File

@ -72,17 +72,18 @@ 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'.
OSSUnixSubprocess new Smalltalk platformName = 'unix' ifTrue: [
workingDirectory: self file parent fullName; OSSUnixSubprocess new
command: 'pandoc'; workingDirectory: self file parent fullName;
arguments: { '--lua-filter=', luaScript fullName . self file basename }; command: 'pandoc';
redirectStdout; arguments: { '--lua-filter=', luaScript fullName . self file basename };
redirectStdin; redirectStdout;
runAndWaitOnExitDo: [ :process :outString :errString | redirectStdin;
output := process isSuccess runAndWaitOnExitDo: [ :process :outString :errString |
ifTrue: [ outString ] output := process isSuccess
ifFalse: [ errString ] ifTrue: [ outString ]
]. ifFalse: [ errString ]
]].
^ output correctAccentedCharacters ^ output correctAccentedCharacters
] ]