From 903cf9f374b5aa1e9c0077df3bf3d2b47d5fafc8 Mon Sep 17 00:00:00 2001
From: Hugo Villeneuve <hugo@hugovil.com>
Date: Mon, 6 Dec 2021 22:22:55 -0500
Subject: [PATCH] Correction du style de codage

---
 gtx2tex.pl | 33 +++++++++++++++++++++++----------
 1 file changed, 23 insertions(+), 10 deletions(-)

diff --git a/gtx2tex.pl b/gtx2tex.pl
index 6d3b2bd..55f236f 100644
--- a/gtx2tex.pl
+++ b/gtx2tex.pl
@@ -73,7 +73,6 @@ $define = "";
 do "/usr/local/lib/guitartex/language/$language.pl" or die "cannot load language
     file $language.pl\n";
 
-
 # Leerzeichen im Dateinamen in Unterstriche ändern
 $outfilename =~ s/\s/\_/g;
 
@@ -90,19 +89,32 @@ while ( <CHORDPRO> ) {
     # Zeichen für Zeilenende abschneiden
     chomp;
     # wenn am Anfang der Zeile { steht, handelt es sich um eine Direktive
-    if ( /^{/ ){ directive(); next; }
+    if ( /^{/ ) {
+        directive();
+        next;
+    }
     # Leerzeile
-    if ( /^$/ ){ print TEX "$empty_line\n"; next; }
+    if ( /^$/ ) {
+        print TEX "$empty_line\n";
+        next;
+    }
     # wenn am Anfang der Zeile % oder # steht = Kommentar
-    if ( /^[%#]/ ){	next; }
+    if ( /^[%#]/ ) {
+        next;
+    }
     # wenn am Anfang der Zeile \ steht = Latex-Kommando
-    if ( /\\.*/ ){ print TEX "$_\n"; next; }
+    if ( /\\.*/ ) {
+        print TEX "$_\n";
+        next;
+    }
     # innerhalb einer Tabulatur
     if ( $env eq "tab" ) {
-        print TEX "\\footnotesize \\verb!$_! \\normalsize \\newline\n"; next;
+        print TEX "\\footnotesize \\verb!$_! \\normalsize \\newline\n";
+        next;
     }
     crdpro();
 }
+
 # LaTeX-Footer ausgeben
 latex_footer();
 
@@ -152,7 +164,7 @@ sub crdpro { # Bearbeitung der Zeile aus der Eingabedatei
     if ( $lyrics ){
         s/\[.*?\]//g; # Akkorde entfernen
         print TEX "$_\\\\\n" unless ( /^\s*$/ );
-    }else{
+    } else {
 
         s/\s/$space/g; 				# alle Leerzeichen durch feste Leerzeichen ersetzen
         s/(\^)(.*?)(\])/\\\(^\{\2\}\\\)\]/g;	# Ziffern hochstellen
@@ -162,7 +174,9 @@ sub crdpro { # Bearbeitung der Zeile aus der Eingabedatei
 	#	s/(\})(.*?)(\\)/}{\2}\\/g;		# Text zwischen Akkorden in geschweifte Klammern setzen
         s/$/}/; # rechte Klammer am Ende der Zeile ergänzen
         s/^\}//; # rechte Klammer am Anfang der Zeile entfernen
-        if ( $_ !~ /^\\/ ) { s/^/\\gtxchord\{\}\{/ }
+        if ( $_ !~ /^\\/ ) {
+            s/^/\\gtxchord\{\}\{/
+        }
 
         s/#/$sharp/g; 				# Vorzeichen "#" ersetzen
         s/\{Ab/{A$flat/g;                       # Vorzeichen "b" ersetzen
@@ -172,6 +186,7 @@ sub crdpro { # Bearbeitung der Zeile aus der Eingabedatei
         s/\{Eb/{E$flat/g;
         s/\{Fb/{F$flat/g;
         s/\{Gb/{G$flat/g;
+
         if ( $italian ) {
             s/gtxchord\{D/gtxchord{Re/g;
             s/gtxchord\{E/gtxchord{Mi/g;
@@ -190,7 +205,6 @@ sub crdpro { # Bearbeitung der Zeile aus der Eingabedatei
             s!/B!/Si!g;
             s!/H!/Si!g;
             s!/C!/Do!g;
-
         }
         print TEX "$_\\\\\n";
     }
@@ -447,7 +461,6 @@ sub latex_header {
     %
                                                     ";
 
-
     if ( $output eq "pdf" ){
         print TEX "\\usepackage[pdftex]{thumbpdf}\n";
     }
-- 
2.20.1