commun/recettes
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Tri correct sur les accents, espace correct lors d'un saut de page

Browse source
This commit is contained in:
Thomas Schwery 2011-02-07 20:36:17 +01:00
parent c5ce831132
commit 9e7ec6c59a
2 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
recettes.tex
View file

@ -13,7 +13,7 @@
\newsavebox\recipebox \newsavebox\recipebox
\newlength\recipebreaklength \newlength\recipebreaklength
\setlength\recipebreaklength{1.1\textheight} \setlength\recipebreaklength{1.2\textheight}
\NewEnviron{recipe}[3]{% \NewEnviron{recipe}[3]{%
\savebox{\recipebox}{\parbox{\linewidth}{% \savebox{\recipebox}{\parbox{\linewidth}{%
\begin{recipe2}{#1}{#2}{#3} \begin{recipe2}{#1}{#2}{#3}
@ -26,6 +26,7 @@
\begin{recipe2}{#1}{#2}{#3} \begin{recipe2}{#1}{#2}{#3}
\BODY \BODY
\end{recipe2}% \end{recipe2}%
\clearpage
\else \else
\par\noindent\usebox\recipebox \par\noindent\usebox\recipebox
\fi \fi

3
tri.pl
View file

@ -1,6 +1,7 @@
#!/usr/bin/perl #!/usr/bin/perl
use strict; use strict;
use locale;
our ($directory, $destination_file) = @ARGV; our ($directory, $destination_file) = @ARGV;
@ -21,7 +22,7 @@ foreach my $file (@files) {
open (DEST, ">".$destination_file); open (DEST, ">".$destination_file);
foreach my $recette (sort {uc($a) cmp uc($b)} keys %recettes) { foreach my $recette (sort {lc($a) cmp lc($b)} keys %recettes) {
open(FILE, $recettes{$recette}); open(FILE, $recettes{$recette});
print DEST <FILE>; print DEST <FILE>;
} }