From bbc32d717b8697767b0ba36c8a769d3c60832939 Mon Sep 17 00:00:00 2001
From: Hugo Villeneuve <hugo@hugovil.com>
Date: Wed, 29 Jun 2022 22:56:25 -0400
Subject: [PATCH] Ne pas forcer l'affichage des titres dans l'index en
 majuscule

---
 gtx2tex.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/gtx2tex.pl b/gtx2tex.pl
index 372d6ca..5ed8253 100644
--- 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";
-- 
2.20.1