link to current page source in footers
[sheet.git] / cc.plp
diff --git a/cc.plp b/cc.plp
index 08a2341b2dc67434b827155f4b499b585c56c482..2b6752393008a1ccacc5ee46343e40e9aad6aa9e 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>
-<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>
@@ -34,7 +40,7 @@ sub quote {
 
 {
        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';
@@ -89,18 +95,18 @@ sub quote {
        <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-oc">oceania
        <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>
 
 <p class="footer">
-       <a href="/" rel="home">sheet.shiar.nl</a>/charset
-       <a href="git://git.shiar.nl/sheet" rel="vcs-git" title="Git repository"><:= $VERSION :></a>
+       <a href="/" rel="home">sheet.shiar.nl</a>/cc.<a href="/source/cc.plp" rel="code">plp</a>
+       <a href="http://git.shiar.nl/sheet.git" rel="vcs-git" title="Git repository"><:= $VERSION :></a>
        created by <a href="http://shiar.nl/" rel="author">Shiar</a> •
        <a title="Licensed under the GNU Affero General Public License, version 3" rel="copyright"
           href="http://www.fsf.org/licensing/licenses/agpl-3.0.html">AGPLv3</a>