From 3b890f7bdc861cdb3d715273f15715d733a90e30 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Wed, 4 Mar 2015 21:22:39 +0100
Subject: [PATCH] apl: click to expand all descriptions

---
 apl.plp | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

diff --git a/apl.plp b/apl.plp
index 804d80e..52ea685 100644
--- a/apl.plp
+++ b/apl.plp
@@ -9,6 +9,20 @@ Html({
 	'],
 	stylesheet => [qw'light circus dark red'],
 	data => [qw'apl.inc.pl'],
+	raw => <<'EOT',
+<style>
+	.target tbody td:nth-child(4) ~ td,
+	:target tbody td:nth-child(4) ~ td {
+		text-align: left;
+	}
+	.target tbody td[title]::after,
+	:target tbody td[title]::after {
+		content: ': ' attr(title);
+		font-size: 75%;
+		opacity: .7;
+	}
+</style>
+EOT
 });
 
 use Shiar_Sheet::FormatChar;
@@ -21,7 +35,7 @@ my @ops = do 'apl.inc.pl';
 <h1>APL Symbols</h1>
 
 <div class="section">
-<table class="mapped">
+<table class="mapped" onclick="this.classList.toggle('target')">
 	<col><colgroup span=3><colgroup span=2>
 <thead><tr>
 	<td rowspan=2>op
@@ -60,7 +74,7 @@ for my $op (@ops) {
 		map { !!$_->[1] && qq( title="$_->[1]"), $_->[0] }
 		[map { EscapeHTML($_) } split /\n/, $_, 2]
 	) for $monad, $dyad;
-	print "\n";
+	print "</td>\n";
 }
 
 :></table>
-- 
2.30.0