From dbcdb5b8c11c68f0ee281488009a00a822ca5680 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Wed, 15 Feb 2023 00:22:57 +0100
Subject: [PATCH] perl: link version references in description

---
 perl.plp | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/perl.plp b/perl.plp
index b5e5d57..c227a9c 100644
--- a/perl.plp
+++ b/perl.plp
@@ -19,14 +19,18 @@ scripting language.
 <:
 my $info = Data('perl');
 
+use feature 'signatures';
+sub vname ($v) {
+	return sprintf 'v%d%03d', unpack 'C*', $v;
+}
+sub linkversion ($v) {
+	return showlink(sprintf('%vd', $v), '#'.vname($v));
+}
+
 eval {
 	use List::Util 'first';
 	use Time::Piece;
 	use Time::Seconds;
-	use feature 'signatures';
-	sub linkversion ($v) {
-		return sprintf('%vd', $v);
-	}
 
 	my $now = Time::Piece->new;
 	my $coreeol = ($now - ONE_YEAR * 3)->strftime('%F');
@@ -54,7 +58,7 @@ for my $vernum (reverse sort keys %{$info}) {
 	my $verrow = $info->{$vernum};
 	defined $verrow->{unstable} and next unless exists $get{v};
 
-	say '<div class="section">';
+	say sprintf '<div class="section" id="%s">', vname($vernum);
 	say sprintf '<h2>%vd <small>%s</small></h2>', $vernum, $verrow->{release};
 	say '<dl>';
 	for (@{ $verrow->{new} }) {
-- 
2.30.0