Some kind of recognisable preview in Mastodon links.
data/termcol-xcolor.inc.pl: tools/mktermcol-xcolor data/xcolors/themes
$(call cmdsave,$^/*)
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
data/wordlist.version.txt: force
@[ -e $@ ] || date -Is >$@
tools/lastword $@ || true
Html({
title => 'perl version cheat sheet',
Html({
title => 'perl version cheat sheet',
keywords => [qw'
perl version feature features comparison
sheet cheat overview summary
'],
keywords => [qw'
perl version feature features comparison
sheet cheat overview summary
'],
+ image => 'data/camels.jpg',
stylesheet => [qw'light dark red'],
data => ['perl.inc.pl'],
});
stylesheet => [qw'light dark red'],
data => ['perl.inc.pl'],
});
my ($name, @cmds) = split /:(?<!\\:)/, $src =~ s/\.(\w+)\z//r;
my $ext = $1 // '*';
print $name;
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;
}
unless (-e $src) {
($src) = grep {-e} glob qq<"$name"{,:*}.$ext> or next;
}
s/\\(.)/$1/g for @cmds;
print ':';
s/\\(.)/$1/g for @cmds;
print ':';