X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/2fbd3bccf439400b463a21788ea5999e11186c09..e98b059d1f6bbd6ac8ca06de152959536e4b98b0:/charset.plp

diff --git a/charset.plp b/charset.plp
index faeedc2..501e26c 100644
--- 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,11 @@ 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">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> â¢
-	last update <:
-		use Time::Format qw(time_format);
-		print time_format('yyyy-mm-dd', (stat $ENV{SCRIPT_FILENAME})[9]);
-	:>
+	   href="http://www.fsf.org/licensing/licenses/agpl-3.0.html">AGPLv3</a>
 </p>
 
 </html>
