git.shiar.nl / sheet.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
minor updates to footers (file-specific git links)
[sheet.git] / charset.plp
diff --git a/charset.plp b/charset.plp
index faeedc2822af742923e945b668cbd313b5f10bbe..e82c5cc45823fcea40ace71247ddf07ba62f66e1 100644 (file)
--- a/charset.plp
+++ b/charset.plp
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 use open IO => ':utf8';
 
-our $VERSION = '1.0';
+our $VERSION = 'v1.0';
 
 $header{content_type} = 'text/html; charset=utf-8';
 
@@ -13,8 +13,8 @@ $header{content_type} = 'text/html; charset=utf-8';
 <html>
 
 <head>
+<meta http-equiv="content-type" content="<:= $header{content_type} :>">
 <title>charset cheat sheet</title>
-<meta http-equiv="content-type" content="utf-8">
 <link rel="stylesheet" type="text/css" media="all" href="/base.css">
 </head>
 
@@ -61,6 +61,11 @@ my @request = map {
                        utf8::upgrade($row{table});  # prevent latin1 output
                        $row{set} = sprintf 'Unicode block U+%02Xxx', $start >> 8;
                }
+               elsif ($input eq 'U') {
+                       $row{table} = ' ' x 512;
+                       $row{set} = 'Unicode planes';
+                       $row{cell} = do 'charset-ucplanes.inc.pl';
+               }
                elsif ($row{set} = resolve_alias($input)) {
                        if ($row{set} eq 'Internal') {
                                $row{table} = ' ' x ($endpoint < 255 ? 640 : 4096);
@@ -110,7 +115,7 @@ my @nibble = (0..9, 'A'..'F');
 for my $row (@request) {
        printf '<li><table class="glyphs%s">', !$row->{cell} && ' charmap';
        printf '<caption>%s</caption>', $row->{set};
-       print '<col>';
+       print '<col>' x 17;
        for my $section (qw{thead}) {
                print "<$section><tr><th>↱";
                print '<th>', $_ for @nibble;
@@ -135,6 +140,11 @@ for my $row (@request) {
                        if (defined (my $mnem = $di{ord $glyph})) {
                                $info = $diinfo->{$mnem};
                        }
+                       else {
+                               require Unicode::UCD;
+                               my $fullinfo = Unicode::UCD::charinfo(ord $glyph);
+                               $info = [@$fullinfo{qw/code name category script string/}] if $fullinfo;
+                       }
                        my ($codepoint, $name, $prop, $script, $string) = @$info;
 
                        $glyph = quote($string || $glyph);
@@ -198,15 +208,13 @@ print "</ul>\n";
 </div>
 
 <p class="footer">
-       <a href="http://sheet.shiar.nl/" rel="home">sheet.shiar.nl</a>/charset
-       <a href="git://git.shiar.nl/sheet" rel="vcs-git" title="Git repository"><:= "v$VERSION" :></a>
+       <a href="/" rel="home">sheet.shiar.nl</a>/charset.<a href="/source/charset.plp"
+        rel="code" title="Written in Perl">plp</a>
+       <a href="http://git.shiar.nl/sheet.git/history/HEAD:/charset.plp"
+        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> •
-       last update <:
-               use Time::Format qw(time_format);
-               print time_format('yyyy-mm-dd', (stat $ENV{SCRIPT_FILENAME})[9]);
-       :>
+       <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>
sheet.shiar.nl - software cheat sheets