Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Branch: ng
Fetching contributors…

Cannot retrieve contributors at this time

executable file 23 lines (16 sloc) 0.548 kB
#!/usr/local/bin/perl6
my $inkscape_executable
= '/Applications/Inkscape.app/Contents/Resources/bin/inkscape';
die 'Could not find inkscape'
unless $inkscape_executable ~~ :f;
run 'rm -rf pdf/*';
my $i = 0;
while 'src/' ~ (my $page = 'page' ~ ++$i) ~ '.svg' ~~ :f {
run
"$inkscape_executable "
~ "--without-gui --file=src/$page.svg "
~ "--export-pdf=pdf/$page.pdf 2> /dev/null";
}
run
'gs -q -sPAPERSIZE=letter -dNOPAUSE -dBATCH -sDEVICE=pdfwrite'
~ " -sOutputFile=win.pdf pdf/*.pdf 2> /dev/null";
Jump to Line
Something went wrong with that request. Please try again.