<:
use 5.014;
use warnings;
use open IO => ':utf8';

our $VERSION = 'v1.0';

$header{content_type} = 'text/plain; charset=us-ascii';
say '" vim digraph proposals <http://sheet.shiar.nl/digraphs>';
PLP_END { print "\n" };

open my $include, '<', 'shiar.inc.txt' or do {
	print qq{\n" $_} for '>>> SERVER ERROR <<<', "($!; try again later)";
	warn $!;  # log it as well
	exit;
};

my $init = 1;
for (readline $include) {
	m{^([!"%'-Z_a-z]{2}) (.)} or next;
	print "\n:digr" if $init;
	printf ' %s %d', $1, ord $2;
}
continue {
	# repeat header for next entry if line was empty
	$init = !m{\S} unless m{^#};
}