From: Mischa POSLAWSKY <perl@shiar.org>
Date: Mon, 10 Jun 2024 23:22:54 +0000 (+0200)
Subject: perl: cover image of some cute camels
X-Git-Tag: v1.20~34
X-Git-Url: http://git.shiar.net/sheet.git/commitdiff_plain/10ebd7e89e3735dc1659c7ef01c2155694f8ba81?ds=inline

perl: cover image of some cute camels

Some kind of recognisable preview in Mastodon links.
---

diff --git a/Makefile b/Makefile
index 7db808b..19fe1d1 100644
--- a/Makefile
+++ b/Makefile
@@ -86,6 +86,11 @@ data/xcolors: $(download)
 data/termcol-xcolor.inc.pl: tools/mktermcol-xcolor data/xcolors/themes
 	$(call cmdsave,$^/*)
 
+data/camels.pexels-4321178.jpg:
+	tools/wget-ifmodified https://images.pexels.com/photos/4321178/pexels-photo-4321178.jpeg $@
+data/camels.jpg: data/camels.pexels-4321178.jpg
+	tools/mkimgthumb --jpg 800x400 'data/camels.smaller:-area:0x225.jpg' .
+
 data/wordlist.version.txt: force
 	@[ -e $@ ] || date -Is >$@
 	tools/lastword $@ || true
diff --git a/perl.plp b/perl.plp
index 0ee9639..590cefa 100644
--- a/perl.plp
+++ b/perl.plp
@@ -2,11 +2,12 @@
 
 Html({
 	title => 'perl version cheat sheet',
-	version => '1.7',
+	version => '1.8',
 	keywords => [qw'
 		perl version feature features comparison
 		sheet cheat overview summary
 	'],
+	image => 'data/camels.jpg',
 	stylesheet => [qw'light dark red'],
 	data => ['perl.inc.pl'],
 });
diff --git a/tools/mkimgthumb b/tools/mkimgthumb
index e9d6eb2..fae9869 100755
--- a/tools/mkimgthumb
+++ b/tools/mkimgthumb
@@ -40,10 +40,10 @@ for my $src (@ARGV) {
 	my ($name, @cmds) = split /:(?<!\\:)/, $src =~ s/\.(\w+)\z//r;
 	my $ext = $1 // '*';
 	print $name;
-	next if $name =~ m/\./;
 	unless (-e $src) {
 		($src) = grep {-e} glob qq<"$name"{,:*}.$ext> or next;
 	}
+	$name =~ s/\..*//;
 	s/\\(.)/$1/g for @cmds;
 	print ':';