countries: hardcode codes reserved for WIPO

[sheet.git] / index.plp

diff --git a/index.plp b/index.plp
index 1aaf0f6ec346ff4d17f289c182ab33edd4be51b9..8de16db5569fb56a14f257f17408499dec34e42e 100644 (file)
--- a/index.plp
+++ b/index.plp
@@ -2,7 +2,7 @@
 
 Html({
        title => 'cheat sheets',
-       version => 'v1.4',
+       version => 'v1.5',
        description => [
                "Cheat sheets summarising various software programs and standards.",
        ],
@@ -27,6 +27,7 @@ but you're free to use, print, alter, and redistribute under the AGPL license.
 <h2>Keyboard maps</h2>
 <ul>
 <li><a href="/readline">readline</a>
+<li><a href="/screen">screen</a>
 <li><a href="/less">less</a>
 <li><a href="/vi">vi/vim</a>
 <li><a href="/vimperator">vimperator</a>
@@ -52,22 +53,10 @@ but you're free to use, print, alter, and redistribute under the AGPL license.
 <ul>
 <li><a href="/browser">browser support</a>
 <li><a href="/countries">country codes</a>
+<li><a href="/perl">perl versions</a>
 <li><a href="/termcol">terminal colours</a>
 <li><a href="/sc">starcraft units</a>
 <li><a href="/emoji">emoticons</a>
 </ul>
 </div>
 
-<:
-if (open my $log, '-|', 'git log -20 --since=2\ week\ ago --pretty=%ai%x00%s%x00%h') {
-       print "<h1>Recent updates</h1>\n\n";
-       print "<dl>\n";
-       while (readline $log) {
-               chomp;
-               my ($date, $subject, $commit) = split /\0/, $_;
-               $date =~ s{( .+)}{<small>$1</small>};
-               printf '<dt>%s</dt><dd>%s</dd>'."\n", $date, $subject;
-       }
-       print "</dl>\n\n";
-}
-