Skip to content

Commit

Permalink
Add --mc option to show the webpage.
Browse files Browse the repository at this point in the history
Specifically the Midland Celtic Workshops webpage, so this is very specific to me.  :)
  • Loading branch information
colomon committed Aug 22, 2014
1 parent 7face63 commit 00a935e
Showing 1 changed file with 6 additions and 4 deletions.
10 changes: 6 additions & 4 deletions bin/abc2ly
Expand Up @@ -435,7 +435,7 @@ multi sub MAIN() {
TuneStreamToLilypondStream($*IN, $*OUT);
}

multi sub MAIN($first-abc-file, *@other-abc-files, :x($index)?, :$o?) {
multi sub MAIN($first-abc-file, *@other-abc-files, :x($index)?, :$o?, :$mc?) {
my @abc-files = $first-abc-file, @other-abc-files;
for @abc-files -> $abc-file {
my $ly-file;
Expand All @@ -458,9 +458,11 @@ multi sub MAIN($first-abc-file, *@other-abc-files, :x($index)?, :$o?) {
TuneStreamToLilypondStream($in, $out);
}

# $out.say: '\markup {';
# $out.say: ' \fill-line { "For more information on these tunes, please see http://midlandceltic.org/ws2011/" }';
# $out.say: '}';
if $mc {
$out.say: '\markup {';
$out.say: ' \fill-line { "For more information on these tunes, please see http://midlandceltic.org/ws2011/" }';
$out.say: '}';
}

$out.close;
$in.close;
Expand Down

0 comments on commit 00a935e

Please sign in to comment.