git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
digraphs: prefer xorg path over parameter
[sheet.git]
/
digraphs.plp
diff --git
a/digraphs.plp
b/digraphs.plp
index 12f76c81e621562835120daff6ec383786151ebe..e5003b684e14aff99e2d75c0d41855c11b50daf8 100644
(file)
--- a/
digraphs.plp
+++ b/
digraphs.plp
@@
-1,6
+1,8
@@
<(common.inc.plp)><:
use 5.010; # state
<(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',
Html({
title => 'digraph cheat sheet',
version => '1.1',
@@
-49,7
+51,7
@@
my @chars2 = (['_'], @chars); # trailing character (extended set)
my @columns = !exists $get{split} ? \@chars2 :
([@chars2[0, 1, 3, 4, 6]], [@chars2[2, 5, 7]]);
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};
my $xorg = do 'data/digraphs-xorg.inc.pl'
or die "Error loading Xorg data: ", $@ // $!;
$_ = [ord $_] for values %{$xorg};
@@
-124,7
+126,7
@@
print "</table>\n";
print '<hr>' if exists $get{split};
}
print '<hr>' if exists $get{split};
}
-if (
exists $get{xorg}
) {
+if (
$mode
) {
:>
<div class="legend">
<table class="glyphs"><tr>
:>
<div class="legend">
<table class="glyphs"><tr>