Skip to content

M
mooc-rr-ressources
Commit 9d07c07f authored by Arnaud Legrand's avatar Arnaud Legrand
Browse files
Options

Cosmetics

parent ea0d0d3c
Show whitespace changes
Inline Side-by-side
Showing with 7 additions and 4 deletions
bin/pandoc_fixer.pl
View file @ 9d07c07f
...@@ -7,7 +7,7 @@ my($usage) = "Usage: pandox_fixer.pl input.md"; ...@@ -7,7 +7,7 @@ my($usage) = "Usage: pandox_fixer.pl input.md";
my($input)=shift(@ARGV); my($input)=shift(@ARGV);
########### Git date ################# ########### Git date #################
my($gitdate)=`git log $input | grep Date | head -n 1`; my($gitdate)=`git log --date=short $input | grep Date | head -n 1`;
chomp($gitdate); chomp($gitdate);
$gitdate =~ s/Date: *//g; $gitdate =~ s/Date: *//g;
$gitdate =~ s/\s*\+.*$//g; $gitdate =~ s/\s*\+.*$//g;
...@@ -43,12 +43,12 @@ open OUTPUT, "> ".$output or die; ...@@ -43,12 +43,12 @@ open OUTPUT, "> ".$output or die;
while(defined(my $line=<INPUT>)) { while(defined(my $line=<INPUT>)) {
if($line =~ /<p>AUTHOR:/) { next; } if($line =~ /<p class="author"/) { next; }
if($line =~ /<h1 class="title"/) { next; } if($line =~ /<h1 class="title"/) { next; }
if($line =~ /<h1 class="date"/) { next; } if($line =~ /<p class="date"/) { next; }
# $line =~ s|https://gitlab.inria.fr/learninglab/|https://learninglab.gitlabpages.inria.fr/|g; ## Not such a good idea! # $line =~ s|https://gitlab.inria.fr/learninglab/|https://learninglab.gitlabpages.inria.fr/|g; ## Not such a good idea!
if($line =~ /<body>/) { if($line =~ /<body>/) {
if($input=~ /_fr.html/) { if($output=~ /_fr.html/) {
$line =~ s|<body>|<body>Les <a href='$gitlab_origin/$input'>sources de ce document sont disponibles sur gitlab</a>.|g; $line =~ s|<body>|<body>Les <a href='$gitlab_origin/$input'>sources de ce document sont disponibles sur gitlab</a>.|g;
$line .= "<br><i>Version du $gitdate.</i><br><hr/>\n" $line .= "<br><i>Version du $gitdate.</i><br><hr/>\n"
} else { } else {
...@@ -72,3 +72,6 @@ while(defined(my $line=<INPUT>)) { ...@@ -72,3 +72,6 @@ while(defined(my $line=<INPUT>)) {
print OUTPUT $line; print OUTPUT $line;
} }
close OUTPUT;
close INPUT;
unlink($output_temp);
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment