cc: alternate stylesheets

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

index 08a2341b2dc67434b827155f4b499b585c56c482..21626688ce0673c32135297ad68ffa578acce53a 100644 (file)
--- a/cc.plp
+++ b/cc.plp
@@ -15,7 +15,13 @@ $header{content_type} = 'text/html; charset=utf-8';
  <head>
  <meta http-equiv="content-type" content="<:= $header{content_type} :>">
  <title>country code cheat sheet</title>
  <head>
  <meta http-equiv="content-type" content="<:= $header{content_type} :>">
  <title>country code cheat sheet</title>
-<link rel="stylesheet" type="text/css" media="all" href="/base.css">
+<link rel="stylesheet" type="text/css" media="all" href="/base.css"><:
+       my %styles = map {$_ => $_} qw(dark mono red);
+       our $style = exists $get{style} && $styles{$get{style}} || 'light';
+       printf(qq{\n<link rel="%s" type="text/css" media="all" href="%s" title="%s">},
+               $_ eq $style ? 'stylesheet' : 'alternate stylesheet', "/$_.css", $_
+       ) for keys %styles;
+:>
  </head>
  
  <body>
  </head>
  
  <body>
@@ -34,7 +40,7 @@ sub quote {
  
  {
         printf '<table class="mcmap">';
  
  {
         printf '<table class="mcmap">';
-       print '<col>';
+       print '<col><colgroup span="26">';
         for my $section (qw{thead}) {
                 print "<$section><tr><th>↱";
                 print '<th>', $_ for 'a' .. 'z';
         for my $section (qw{thead}) {
                 print "<$section><tr><th>↱";
                 print '<th>', $_ for 'a' .. 'z';
@@ -89,11 +95,11 @@ sub quote {
         <td class="X c-af">africa
         <td class="X c-eu">europe
         <td class="X c-as">asia
         <td class="X c-af">africa
         <td class="X c-eu">europe
         <td class="X c-as">asia
-       <td class="X c-oc">oceania
         <td class="X c-aa">antarctica
         <td class="X c-aa">antarctica
+       <td class="X c-oc">oceania
         <td class="X c-sa">south america
         <td class="X c-na">north america
         <td class="X c-sa">south america
         <td class="X c-na">north america
-       <td class="X Xi">reserved
+       <td class="">reserved
         <td class="X Co">user-assigned
         </table>
  </div>
         <td class="X Co">user-assigned
         </table>
  </div>