+$Texi2HTML::Config::menu_link = \&lilypond_menu_link;
+
+
+# For split pages, use index(.lang).html as start page!
+if ($Texi2HTML::Config::SPLIT == 'section') {
+ my $lng = $Texi2HTML::THISDOC{'current_lang'};
+ if ($lng and ($lng ne "en")) {
+ $Texi2HTML::Config::TOP_FILE = 'index.'.$lng.'.html';
+ } else {
+ $Texi2HTML::Config::TOP_FILE = 'index.html';
+ }
+}
+
+
+
+# Try to make use of @translationof to generate files according to the original
+# English section title...
+sub lilypond_unknown($$$$$)
+{
+ my $macro = shift;
+ my $line = shift;
+ my $pass = shift;
+ my $stack = shift;
+ my $state = shift;
+
+ if ($pass == 1 and $macro eq "translationof") {
+ if (ref($state->{'element'})=='HASH') {
+ $state->{'element'}->{'translationof'} = $line;
+ }
+ print "UNKNOWN: macro:$macro, line:$line, pass:$pass, stack:$stack, state:$state\n";
+ print Dumper($stack);
+ print Dumper($state);
+ }
+ if ($pass == 2 and $macro eq "translationof") {
+# if (ref($state->{'element'})=='HASH') {
+# # $state->{'element'}->{'translationonf'} = $line;
+# }
+ print "UNKNOWN: macro:$macro, line:$line, pass:$pass, stack:$stack, state:$state\n";
+ print Dumper($stack);
+ print Dumper($state);
+ return ($line, 0, undef, undef);
+ } else {
+ return t2h_default_unknown($macro, $line, $pass, $stack, $state);
+ }
+}
+$Texi2HTML::Config::unknown = \&lilypond_unknown;