From 97f850c55daaf35929b87fdc7f335556d17e0edc Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 2 Nov 2021 03:52:55 +0100
Subject: [PATCH] codec: page intro from format data

---
 codec-audio.inc.pl | 1 +
 codec-image.inc.pl | 1 +
 codec.plp          | 1 +
 3 files changed, 3 insertions(+)

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']);
 :>
-- 
2.30.0