From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 2 Nov 2021 02:52:55 +0000 (+0100)
Subject: codec: page intro from format data
X-Git-Tag: v1.13~105
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/97f850c55daaf35929b87fdc7f335556d17e0edc

codec: page intro from format data
---

diff --git a/codec-audio.inc.pl b/codec-audio.inc.pl
index 4d14f9b..4239b2f 100644
--- a/codec-audio.inc.pl
+++ b/codec-audio.inc.pl
@@ -1,5 +1,6 @@
 use utf8;
 +{
+intro => 'Comparison of audio compression formats.',
 codec => {
 	mp3 => {
 		name => '<abbr title="MPEG-1 Audio Layer III">MP3</abbr>',
diff --git a/codec-image.inc.pl b/codec-image.inc.pl
index f9a544c..21ce9a1 100644
--- a/codec-image.inc.pl
+++ b/codec-image.inc.pl
@@ -1,5 +1,6 @@
 use utf8;
 +{
+intro => 'Comparison of image encoding formats, based on <a href="https://cloudinary.com/blog/one_pixel_is_worth_three_thousand_words">Cloudinary</a> research.',
 codec => {
 	jpeg => {
 		name => '<abbr title="Joint Photographic Experts Group">JPEG</abbr>',
diff --git a/codec.plp b/codec.plp
index 4251df9..1ce4611 100644
--- a/codec.plp
+++ b/codec.plp
@@ -25,6 +25,7 @@ $info and %{$info} > 1
 	or Abort("Requested codec type <q>$page</q> not available", '404 request not found', $@ // $!);
 
 say "<h1>\u$title</h1>";
+say "<p>$_</p>" for $info->{intro} // ();
 
 my %BOOLSCORE = (y => [5, '✔'], n => [1, '✘'], 0 => [0, 'n/a']);
 :>