From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 23 Nov 2019 15:28:03 +0000 (+0100)
Subject: dieren: rotate table on ?r parameter
X-Git-Tag: v1.12~18
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/3025dbfd04f2259da0cd45f37b52673eaea1aec8

dieren: rotate table on ?r parameter
---

diff --git a/dieren.plp b/dieren.plp
index 2017eac..452a780 100644
--- a/dieren.plp
+++ b/dieren.plp
@@ -62,6 +62,19 @@ my @table = qw(
 	#>draak:   draak      zeedraak     waterdraak?  aarddraak?   ?
 );
 
+if (exists $get{r}) {
+	use List::MoreUtils qw( part );
+	my @trans = (part { state $col; /^#?>/ ? ($col = 0) : ++$col } @table);
+	@table = ();
+	for (@trans) {
+		unshift @$_, '?:' if $_->[0] !~ /:$/;
+		$_->[0] =~ s/^#?\K>?/>>/;
+		for (@$_) {
+			push @table, s/^#?\K>/$1/r;
+		}
+	}
+}
+
 say '<table>';
 while (my $name = shift @table) {
 	if ($name =~ s/^#// and not exists $get{v}) {