#!/usr/bin/perl -s
use lib ('..');
use locale;
use lyra;

our ($ag,$a5,$nocolor);
my $opt= {outputfile => "_ex8.tex", index=>1,pageformat =>"agenda", column =>1,color=>1};
my $list=shift;
$opt{color}=0 if $nocolor;

($opt->{tit}, @fs) = (map {chomp; $_} `cat $list`);

@fs = lyra::songsort(@fs);

if($ag)   { lyra::mksongbook({%$opt, pageformat => "agenda",     column => 1},@fs);}
elsif($a5){ lyra::mksongbook({%$opt, pageformat => "b5",         column => 2},@fs);}
else      { lyra::mksongbook({%$opt, pageformat => "a4", abc=>2, column => 2},@fs);}

lyra::make("_ex8.agpdf") if $ag;
lyra::make("_ex8.a5pdf") if $a5;
lyra::make("_ex8.pdf")   if !$a5 && !$ag;

__END__