termcol: xkcd survey results for colour names
[sheet.git] / termcol.plp
index 5a0306afc66c92727ea34ca7655a59dd0db03222..39c89013d27a10b5e8e2688138b9ca6114c63382 100644 (file)
@@ -1,22 +1,21 @@
 <(common.inc.plp)><:
-       our $VERSION = 'v1.0';
 
-       use List::Util 'min';
-
-:><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
- "http://www.w3.org/TR/html4/loose.dtd">
-<html lang="en">
+Html({
+       title => 'terminal colour cheat sheet',
+       version => 'v1.0',
+       description => [
+               "Index of all terminal/console colour codes,",
+               "with an example result of various environments.",
+       ],
+       keywords => [qw'
+               color code terminal console escape table xterm rxvt
+       '],
+       stylesheet => [qw'light dark'],
+});
 
-<head>
-<meta http-equiv="content-type" content="utf-8">
-<title>terminal colour cheat sheet</title>
-<meta name="description" content="Index of all terminal/console colour codes, with an example result of various environments.">
-<meta name="keywords" content="color, code, terminal, console, escape, table, xterm, rxvt">
-<:= stylesheet(qw'light dark') :>
-<link rel="icon" type="image/png" href="/clip.png">
-</head>
+use List::Util 'min';
 
-<body id="colour">
+:>
 <h1>Terminal colours</h1>
 
 <div class="section">
@@ -72,9 +71,18 @@ my %col = (
                qw/2E3436 CC0000 4E9A06 C4A000 3465A4 75507B 06989A D3D7CF
                   555753 EF2929 8AE234 FCE94F 729FCF AD7FA8 34E2E2 EEEEEC/,
        ],
+       -xkcd => [
+               qw/black  maroon green  olive  navy   purple teal   silver
+                  grey   red    lime   yellow blue  fuchsia cyan   white/,
+       ],
+       xkcd => [
+               0,0,
+               qw/000000 650021 15b01a 6e750e 01153e 7e1e9c 029386 c5c9c7
+                  929591 e50000 aaff32 ffff14 0343df ed0dd9 00ffff ffffff/,
+       ],
 );
 
-for my $term (qw/html cga xterm tango/) {
+for my $term (qw/html cga xterm tango xkcd/) {
        print '<table>', "\n";
        print "<caption>$term</caption>\n";
        for my $num (0 .. 15) {
@@ -139,14 +147,3 @@ print "\n";
 <: } :>
 <hr>
 
-<p class="footer">
-       <a href="/" rel="home">sheet.shiar.nl</a>/termcol.<a href="/source/termcol.plp"
-        rel="code" title="Written in Perl">plp</a>
-       <a href="http://git.shiar.nl/sheet.git/history/HEAD:/termcol.plp"
-        rel="vcs-git" title="Git repository"><:= $VERSION :></a>
-       created by <a href="http://shiar.nl/" rel="author">Shiar</a> •
-       <a href="http://www.fsf.org/licensing/licenses/agpl-3.0.html" rel="copyright"
-        title="Licensed under the GNU Affero General Public License, version 3">AGPLv3</a>
-</p>
-
-</html>