X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/581e110835997aac4917c7112fdc7dad1ed99080..3025dbfd04f2259da0cd45f37b52673eaea1aec8:/dieren.plp

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