Ajout option pour caractères gras
authorHugo Villeneuve <hugo@hugovil.com>
Wed, 17 Nov 2021 04:10:16 +0000 (23:10 -0500)
committerHugo Villeneuve <hugo@hugovil.com>
Wed, 9 Mar 2022 22:14:43 +0000 (17:14 -0500)
gtx2tex.pl

index d4bfed5..d87bad0 100644 (file)
@@ -30,6 +30,7 @@ GetOptions( "output=s" => \$output,
            "verbose" => \$verbose,
            "italian" => \$italian,
            "uppercase" => \$uppercase,
+           "bold" => \$bold,
          );
 
 $usage = "This is gtx2tex 2.8
@@ -41,6 +42,7 @@ options:
                  output option a tex file is created
 --italian        changes chord output to italian notation
                  (La, Si, Do, Re, Mi, Fa, Sol)
+--bold           make all lyrics in bold
 --uppercase      make all lyrics uppercase";
 
 if ( ! $ARGV[0] ){
@@ -305,6 +307,11 @@ sub directive{
         }
         print TEX "%\n%----- New Song -----\n";
         print TEX "\\newpage\\addcontentsline{toc}{section}{$_}\n";
+
+        if ( $bold ) {
+            print TEX "\\bfseries\n";
+        }
+
         if ( $output eq "pdf" ) { print TEX "\\pdfdest name {$_} fith \\pdfoutline goto name {$_} {$_}" }
         print TEX "\\begin{center} \\section*{$_}\\end{center}\n";
         $define="";