Ne pas forcer l'affichage des titres dans l'index en majuscule

diff --git a/gtx2tex.pl b/gtx2tex.pl
index 372d6ca..5ed8253 100644 (file)
--- a/gtx2tex.pl
+++ b/gtx2tex.pl
@@ -350,6 +350,7 @@ sub directive{
         if ( $output eq "pdf" ) { print TEX "\\pdfdest name {$_} fith \\pdfoutline goto name {$_} {$_}" }
 
         $song_title = $_;
+        $song_title_lc = $song_title;
         if ( $uppercase ) {
             $song_title = uc($song_title);
         }
@@ -359,12 +360,11 @@ sub directive{
 
         print TEX "\\begin{center} \\section*{$song_title}\\end{center}\n";
         $define="";
-        print TEX "\\index{$song_title}";
         $verbose && print TEX "\\typeout{$song_title}";
     }elsif ( /{subtitle:|{st:/ ) {
         s/(\{.*:)(.+)(\})/\2/;
 
-        print TEX "\\index{$_!$song_title}";
+        print TEX "\\index{$_!$song_title_lc}";
         print TEX "\\normalfont\n";
         print TEX "\\footnotesize\n";
         print TEX "\\begin{center}$_\\end{center}\n";
@@ -737,7 +737,8 @@ sub latex_header {
 sub latex_footer {
     print TEX "$define\n";
     if ( $document_class eq "book") {
-        print TEX "\\backmatter";
+        print TEX "\\backmatter\n";
+        print TEX "\\footnotesize\n";
         print TEX "\\printindex\n";
     }
     print TEX "\\end{document}\n";