<(common.inc.plp)><:
use 5.010; # state
+my $mode = ($ENV{PATH_INFO} // '') eq '/xorg' || exists $get{xorg};
+
Html({
title => 'digraph cheat sheet',
version => '1.1',
my @columns = !exists $get{split} ? \@chars2 :
([@chars2[0, 1, 3, 4, 6]], [@chars2[2, 5, 7]]);
-if (exists $get{xorg}) {
+if ($mode) {
my $xorg = do 'data/digraphs-xorg.inc.pl'
or die "Error loading Xorg data: ", $@ // $!;
$_ = [ord $_] for values %{$xorg};
print '<hr>' if exists $get{split};
}
-if (exists $get{xorg}) {
+if ($mode) {
:>
<div class="legend">
<table class="glyphs"><tr>