mutt: compose mode

[sheet.git] / cc.plp
diff --git a/cc.plp b/cc.plp

index 48b9910d805f30d74be06bea80aed73e5af4200c..584884d74f43cbc9465d3b7dc249d08ad5b0a8bd 100644 (file)
--- a/cc.plp
+++ b/cc.plp
@@ -13,8 +13,8 @@ $header{content_type} = 'text/html; charset=utf-8';
  <html>
  
  <head>
+<meta http-equiv="content-type" content="<:= $header{content_type} :>">
  <title>country code cheat sheet</title>
-<meta http-equiv="content-type" content="utf-8">
  <link rel="stylesheet" type="text/css" media="all" href="/base.css">
  </head>
  
@@ -33,7 +33,7 @@ sub quote {
  }
  
  {
-       printf '<table class="glyphs">';
+       printf '<table class="glyphs ccmap">';
         print '<col>';
         for my $section (qw{thead}) {
                 print "<$section><tr><th>↱";
@@ -49,6 +49,7 @@ 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";
                         printf "\n".'<td class="%s" title="%s">%s',