Add an index and a file which generates it

make-index.pl

@@ -0,0 +1,31 @@
+#!/usr/bin/env perl
+use warnings;
+use strict;
+use utf8;
+use FindBin '$Bin';
+use v5.32;
+no warnings qw(experimental::signatures);
+use feature qw(signatures say);
+# Requires install. cpanm JSON::Create
+use JSON::Create 'write_json';
+my %index;
+my @files = <$Bin/kanji/*.svg>;
+for my $file (@files) {
+    my ($kanji, $ex) = file_to_kanji ($file);
+    if (! $kanji) {
+	next;
+    }
+    my $tfile = $file;
+    $tfile =~ s!.*/!!;
+    push @{$index{$kanji}}, $tfile;
+}
+write_json ("$Bin/kvg-index.json", \%index, indent => 1, sort => 1);
+exit;
+
+sub file_to_kanji ($file) {
+    if ($file !~ m!([0-9a-f]{5})(-.*)?\.svg!) {
+	warn "Could not get kanji from $file";
+	return (undef, undef);
+    }
+    return chr (hex ($1)), $2;
+}