X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/c11640facf0c976140547ef1b58971ec8a661dd3..9a4d89685edcb4399aa500d38de84b0101ad09b2:/charset.plp diff --git a/charset.plp b/charset.plp index 66e0cc9..e84ae82 100644 --- a/charset.plp +++ b/charset.plp @@ -1,17 +1,20 @@ <(common.inc.plp)><: - our $VERSION = 'v1.0'; -:> - +Html({ + title => 'charset cheat sheet', + version => 'v1.0', + description => [ + "Reference sheet with all glyphs in common character encoding tables,", + "and an overview of Unicode ranges and UTF-8 bytes.", + ], + keywords => [qw' + charset codepage unicode ascii utf8 latin glyph character encoding + reference common overview table + '], + stylesheet => [qw'light'], +}); - - -charset cheat sheet -<:= stylesheet(qw'light') :> - - - +:>

Character encoding

<: @@ -96,7 +99,7 @@ for my $cp437 (grep {$request[$_]->{set} eq 'cp437'} 0 .. $#request) { my @nibble = (0..9, 'A'..'F'); for my $row (@request) { - printf '

', !$row->{cell} && ' charmap'; + printf '

', !$row->{cell} && ' charmap'; printf '', $row->{set}; print '' x 17; for my $section (qw{thead}) { @@ -141,7 +144,7 @@ for my $row (@request) { } print "\n"; } - print "

\n"; + print "\n"; } :> @@ -188,14 +191,3 @@ for my $row (@request) { - - -