From: Mischa POSLAWSKY <perl@shiar.org>
Date: Wed, 22 Mar 2017 18:51:12 +0000 (+0100)
Subject: digraphs: prefer xorg path over parameter
X-Git-Tag: v1.9~14
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/afb59e8b70e543ead8f26ab4701403404e4b15ea

digraphs: prefer xorg path over parameter

Major subpage selector similar to other pages.
---

diff --git a/digraphs.plp b/digraphs.plp
index 12f76c8..e5003b6 100644
--- a/digraphs.plp
+++ b/digraphs.plp
@@ -1,6 +1,8 @@
 <(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',
@@ -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]]);
 
-if (exists $get{xorg}) {
+if ($mode) {
 	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};
 }
 
-if (exists $get{xorg}) {
+if ($mode) {
 :>
 <div class="legend">
 	<table class="glyphs"><tr>