X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/add39cddddaf48676f1dd0f9158533be2fdd7459..e42bf56734a8ef1b890fb42df3dbb719456de225:/digraphs.plp?ds=inline
diff --git a/digraphs.plp b/digraphs.plp
index 4fff67d..44f93e6 100644
--- a/digraphs.plp
+++ b/digraphs.plp
@@ -1,12 +1,11 @@
<(common.inc.plp)><:
-use 5.010; # state
-my $mode = ($ENV{PATH_INFO} // '') eq '/xorg' || exists $get{xorg};
+my $mode = ($Request // '') eq 'xorg' || exists $get{xorg};
my $modename = $mode ? 'X.Org' : 'RFC-1345';
Html({
title => 'digraph cheat sheet',
- version => '1.1',
+ version => '1.2',
description => [
"Complete table of digraph characters from $modename.",
],
@@ -94,11 +93,11 @@ if ($mode) {
for my $colchars (@columns) {
print '
';
print qq'' for map {scalar @$_} @{$colchars};
-print "\n";
+say '';
for my $section (qw{thead tfoot}) {
print "<$section>â³";
print ' | ', EscapeHTML($_) for map {@$_} @{$colchars};
- print " | \n";
+ say ' | ';
}
for my $c1group (@chars) {
print ' |
';
@@ -127,10 +126,10 @@ for my $c1group (@chars) {
printf "\n".'%s',
join(' ', @class), EscapeHTML($desc), $glyph;
}
- print "\n | ", EscapeHTML($c1), "\n";
+ say "\n | ", EscapeHTML($c1);
}
}
-print " |
\n";
+say '';
print '
' if exists $get{split};
}
@@ -171,6 +170,7 @@ if ($mode) {
full support
| vim extension
+ | vim v8.0
| proposal
| not in vim
|