fixed indents

templates/song_template.tt

@@ -4,51 +4,55 @@
     END;
 -%]
 \song{[% purpose_print ? purpose_print : purpose %]}{[% song_title -%]}{
-    [% before_song -%]
-    \begin{samepage}
-    [% IF scores -%]
-    [% IF scores.gregorian AND (gregorian OR NOT scores.congregation) -%]
-        [% IF NOT gregorian -%]
-        \textbf{\LARGE{Activate gregorian}}
-        [% ELSE -%]
-        \gregorioscore{gregorio_scores/[% scores.gregorian %]}
-        [% END -%]
-    [% ELSE -%]
-\lilypondfile{[% IF parts;
-    IF parts == 'band';
-        IF scores.leadsheet;
-            GET "${library_dir}/${scores.leadsheet}";
+[% before_song -%]
+\begin{samepage}
+[% IF scores;
+    IF scores.gregorian AND (gregorian OR NOT scores.congregation);
+        IF NOT gregorian;
+            GET "\\textbf{\\LARGE{Activate gregorian}}\n";
         ELSE;
-            GET "${library_dir}/${scores.SATB}";
+            GET "\\gregorioscore{gregorio_scores/${scores.gregorian}}\n";
         END;
-    ELSIF parts == 'SATB';
-        IF scores.SATB;
-            GET "${library_dir}/${scores.SATB}";
-        ELSE;
-            GET "${library_dir}/${scores.leadsheet}";
+    ELSE;
+    GET '\lilypondfile{';
+    IF parts;
+        IF parts == 'band';
+            IF scores.leadsheet;
+                GET "${library_dir}/${scores.leadsheet}";
+            ELSE;
+                GET "${library_dir}/${scores.SATB}";
+            END;
+        ELSIF parts == 'SATB';
+            IF scores.SATB;
+                GET "${library_dir}/${scores.SATB}";
+            ELSE;
+                GET "${library_dir}/${scores.leadsheet}";
+            END;
         END;
+    ELSE;
+        GET "${library_dir}/${scores.congregation}";
     END;
-ELSE;
-    GET "${library_dir}/${scores.congregation}";
-END; %]}
-    [% END -%]
-    [% ELSIF lyrics -%]
-        [% lyrics %]
-    [% END -%]
-    [% IF credits -%]
-        \leavevmode\\*
-        [% FOREACH key = credits.keys -%]
-            \[% key %]{[% credits.$key %]}
-        [% END -%]
-    [% END -%]
-    \end{samepage}
-    [% content -%]
-    [% IF (meditation && meditations) || (parts && meditation) -%]
-        \leavevmode\par\smallskip
-        [% meditation %]
-    [% END -%]
-    [% IF after_song -%]
-        \leavevmode\par\smallskip
-        [% after_song %]
-    [% END -%]
+    GET "}\n";
+END;
+ELSIF lyrics;
+    GET lyrics;
+END; %]
+[% IF credits -%]
+\leavevmode\\*
+[% FOREACH key = credits.keys;
+# Workaround because PERL keeps resolving \\$ to $
+    s = "\\ ${key}{${credits.$key}}\n";
+    GET s.replace('(\W) ', '$1');
+END; -%]
+[% END -%]
+\end{samepage}
+[% content -%]
+[% IF (meditation && meditations) || (parts && meditation) -%]
+    \leavevmode\par\smallskip
+    [% meditation %]
+[% END -%]
+[% IF after_song -%]
+    \leavevmode\par\smallskip
+    [% after_song %]
+[% END -%]
 }