From 3025dbfd04f2259da0cd45f37b52673eaea1aec8 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 23 Nov 2019 16:28:03 +0100
Subject: [PATCH] dieren: rotate table on ?r parameter

---
 dieren.plp | 13 +++++++++++++
 1 file changed, 13 insertions(+)

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}) {
-- 
2.30.0