From e6f9791973f7c1ef542c3b1438b7fb0527f22109 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Fri, 6 Sep 2019 22:54:05 +0200
Subject: [PATCH] cli: frontend page listing commandline parameters

---
 cli.plp | 61 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 61 insertions(+)
 create mode 100644 cli.plp

diff --git a/cli.plp b/cli.plp
new file mode 100644
index 0000000..d8653e8
--- /dev/null
+++ b/cli.plp
@@ -0,0 +1,61 @@
+<(common.inc.plp)><:
+
+Html({
+	title => 'cli cheat sheet',
+	version => '1.0',
+	description => [],
+	keywords => [qw'
+	'],
+	data => ['data/cli.inc.pl'],
+});
+
+my $cmd = do 'data/cli.inc.pl'
+	or Abort("Error loading program data", 501, $@ // $!);
+:>
+<h1>CLI options</h1>
+
+<style>
+	tbody td {font-size:70%}
+</style>
+<:
+sub showoption {
+	my ($info, $char, $span) = @_;
+	my ($alias, $help) = @{ $info // [] };
+	printf '<td class="l%s"', $info ? 5 : 1;
+	print ' rowspan="2"' if $span;
+	print '>';
+	$info or return;
+	my ($title) = $alias =~ m{--([\w-]+=?)}
+		or return print $char;
+	$title =~ s/-\K/<wbr>/g;
+	$title =~ s/deref\Kerence/./;
+	print $title;
+}
+
+my @colchars = ('a'..'z', '?');
+print '<table class="ccmap"><col>';
+print qq'<colgroup span="$_">' for scalar @colchars;
+#say '</colgroup><col>';
+for my $section (qw{thead tfoot}) {
+	print "<$section><tr><th>↳";
+	print '<th>', EscapeHTML($_) for @colchars;
+	say '';
+}
+print '<tbody>';
+for my $name (sort keys %$cmd) {
+	my $row = $cmd->{$name};
+	print '<tr><th rowspan="2">', $name;
+	showoption($row->{$_}, $_, !$row->{uc $_}) for @colchars;
+	print "\n\t<tr>";
+	$row->{$_} and showoption($row->{$_}, $_) for map {uc} @colchars;
+}
+say '</table>';
+:>
+
+<div class="legend">
+	<table class="glyphs"><tr>
+	<td class="X l5">supported
+	<td class="X l1">unsupported
+	<td class="X l0 ex">alias
+	</table>
+</div>
-- 
2.30.0