Copy HTML generating Makefile

6211cd43 · Arnaud Legrand · 6580ba57 · 6211cd43 · 6211cd43
Commit 6211cd43 authored Sep 04, 2018 by Arnaud Legrand
Hide whitespace changes
Inline Side-by-side

Showing with 32 additions and 0 deletions

Makefile module4/ressources/Makefile +15 -0

html_png_inliner.pl module4/ressources/html_png_inliner.pl +17 -0

No files found.
--- a/module4/ressources/Makefile
+++ b/module4/ressources/Makefile
+all: resources.html
+
+NLINES=10000000
+
+%.html: %.org
+	emacs -batch $^  --funcall org-html-export-to-html
+	sed -i -e 's/<pre /<pre style="padding-left: 30px; background-color: #f6f8fa;" /g' \
+	       -e 's/<li>/<li style="margin-bottom:0;">/g' \
+	       -e 's/<ul>/<ul style="margin:0 0;">/g' $@
+	mv $@ $@.bak
+	html_png_inliner.pl < $@.bak | grep -A $(NLINES) -e '<body>' | grep -B $(NLINES) -e '<div id="postamble" class="status">' | grep -v -e '<body>' -e '<div id="postamble" class="status">' > $@
+	rm $@.bak
+
+clean:
+	rm -f *~
--- a/module4/ressources/html_png_inliner.pl
+++ b/module4/ressources/html_png_inliner.pl
+#!/usr/bin/perl -w
+use strict;
+
+my($line);
+while(defined($line=<STDIN>)) {
+     if($line =~ /^(.*)<img *src="([^"]*)"(.*)$/g) {
+        my($pre,$image,$post) = ($1,$2,$3);
+	$image =~ s|file://||;
+#        print "$image\n";
+        my $base64=`base64 -w 0 $image`;
+        my $format=$image;
+        $format =~ s/.*\.//g;
+        print $pre."<img src=\"data:image/$format;base64,".$base64.'"'.$post;
+     } else {
+        print $line;
+     }
+}