X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/fd1ee6a2c0964cd16dd529b991d7bed9d0c776cb..0ec1918e9ea19466404dd204c30dea88af25bea7:/cc.plp

diff --git a/cc.plp b/cc.plp
index 584884d..08a2341 100644
--- a/cc.plp
+++ b/cc.plp
@@ -33,7 +33,7 @@ sub quote {
 }
 
 {
-	printf '<table class="glyphs ccmap">';
+	printf '<table class="mcmap">';
 	print '<col>';
 	for my $section (qw{thead}) {
 		print "<$section><tr><th>↱";
@@ -49,11 +49,32 @@ sub quote {
 				print $code =~ /^x|^q[m-z]|^aa|^zz/ ? '<td class="X Co">' : '<td>';
 				next;
 			};
-			$code = $country->[2] if defined $country->[2];
-			my $img = sprintf '<img src="/flag/%s.png" alt="%s">', $code, $code
-				if -e "flag/$code.png";
+			my ($name, $class, $short, $ref) = @$country;
+			$ref ||= $code;
+			local $_ = $ref;
+			if (exists $get{show}) {
+				my $img = "flag/$ref.png";
+				$_ = sprintf '<img src="/%s" alt="%s">', $img, $ref if -e $img;
+			}
+			else {
+				$_ = $short || $name;
+				s/,.*//;
+				s/(?<=.)\(.*\)\s*//;
+				s/ republic\b//gi;
+				s/ islands?\b//gi;
+				s/\bthe //g;
+				s/ and / & /g;
+				s/\bsaint /st /gi;
+				s/South /S-/g;
+				s/North /N-/g;
+				s/New /n./g;
+				s/(\S)(\S+)-/$1-/g;  # strip most chars preceding dash
+				s/(\S{4}[b-df-hj-np-tv-xz])(\S{2,})/$1./g;  # abbreviate (at consonant)
+				$_ = quote($_);
+			}
+			$name =~ s/([^,]*), (.*)/$2 $1/;
 			printf "\n".'<td class="%s" title="%s">%s',
-				$img ? 'X '.$country->[1] : '', quote($country->[0]), $img;
+				$_ ? 'X '.$class : '', quote("$code: $name"), $_;
 		}
 		print "\n";
 	}