],
keywords => [qw'
'],
- stylesheet => [qw'light circus dark red'],
data => [qw'apl.inc.pl'],
raw => <<'EOT',
<style>
keywords => [qw'
sheet cheat reference software overview summary help keyboard map unicode
'],
- stylesheet => [qw'light dark circus mono red'],
});
my @cols = (2, 6, 8, 9, 10, 12, 16, 18, 20);
html html5 css css3 svg javascript js dom mobile
ie internet explorer firefox chrome safari webkit opera
'],
- stylesheet => [qw'circus dark mono red light'],
data => ['data/browser/support.inc.pl'],
});
keywords => [qw'
unicode glyph char character reference common ipa symbol sign mark table digraph
'],
- stylesheet => [qw'light dark mono circus red'],
data => [qw( data/unicode-cover.inc.pl data/font data/unicode-char.inc.pl )],
raw => <<'EOT',
<style>
charset codepage unicode ascii utf8 latin glyph character encoding
reference common overview table
'],
- (stylesheet => [qw'light dark']) x !$mode,
data => [qw(
charset.inc.pl charset-encoding.inc.pl
charset-unicode.inc.pl charset-ucplanes.inc.pl charset-utf8.inc.pl
version => '1.1',
description => $info->{intro},
keywords => [@{ $info->{keywords} // [] }, qw' feature comparison support benchmark '],
- stylesheet => [qw'light circus dark red'],
data => ["codec-$page.inc.pl"],
raw => '<style>td,th {width:8%} tbody th {white-space:nowrap}</style>',
});
$header{content_type} = 'text/html; charset=utf-8';
sub stylesheet {
- my ($avail) = @_;
- my @avail = ref $avail eq 'ARRAY' ? @{$avail} : $avail or return;
+ my @avail = qw( light dark circus mono red );
my %styles = map {$_ => $_} @avail;
if (defined( my $setstyle = $get{style} )) {
}
# default fallbacks
- $meta->{stylesheet} ||= [qw( light dark circus mono red )];
$meta->{charset} ||= 'utf-8';
$meta->{lang} ||= 'en';
unshift @{ $meta->{raw} }, (
'<link rel="stylesheet" type="text/css" media="all" href="/light.css?1.20">',
);
- $meta->{stylesheet} = stylesheet($meta->{stylesheet});
+ $meta->{stylesheet} = stylesheet();
if (my $img = $meta->{image}) {
my $proto = sprintf('http%s://', !!$ENV{HTTPS} && 's');
description =>
"Table of ISO-3166-1 country codes with the names of reserved territories.",
keywords => [qw'country code cc tld cctld continent territory land table'],
- stylesheet => [qw'light dark circus mono red'],
data => ['data/countries.inc.pl'],
});
script glyph unicode writing comparison list character
history sample test language multilingual
)],
- stylesheet => [qw( light dark circus mono red )],
data => [qw'writing-digits.inc.pl'],
raw => <<'EOT',
<style>
digraph mnemonic compose composition pair
character char glyph table unicode vim
'],
- stylesheet => [qw'light dark'],
data => ["data/$include.json"],
});
unicode font glyph char character support overview cover coverage
script block symbol sign mark reference table
)],
- stylesheet => [qw( light dark mono circus red )],
data => [qw( data/unicode-cover.inc.pl )],
});
sheet cheat reference overview keyboard control commands shortkey
'],
image => $info->{image},
- stylesheet => [qw( light dark circus mono red )],
data => ["$include.inc.pl"],
raw => \@keystyle,
});
sheet cheat reference overview keyboard altgr option
'],
image => "$dirbase/thumb/ibm-m.jpg",
- stylesheet => [qw( light dark circus mono red )],
data => ["$dirbase/index.inc.plp", "$indexfile.inc.pl"],
raw => <<'.',
<style>
secret cursive fraktur blind braille morse deaf asl hand
barcode bar color semaphore flag
'],
- stylesheet => [qw( light dark red mono )],
data => ['writing-latn.inc.pl'],
});
sheet cheat overview summary
'],
image => 'data/camels.jpg',
- stylesheet => [qw'light dark red'],
data => ['perl.inc.pl'],
});
Html({
title => "unicode sampler",
version => '2.1',
- stylesheet => [qw'light dark mono red'],
data => [$textinc],
image => 'sample.png',
});
$scver{major} < 2 ? qw' bw broodwar brood war ' :
qw' starcraft2 lotv hots wol ',
],
- stylesheet => [qw( light dark mono )],
raw => '<link rel="stylesheet" type="text/css" media="all" href="/sc.css?1.3">',
data => ["$datafile.inc.pl"],
});
Html({
title => 'Shell compatibility cheat sheet',
version => '1.0',
- stylesheet => [qw'circus dark mono red light'],
data => ['shell.inc.pl'],
});
keywords => [qw'
sheet cheat source code perl plp html agpl
'],
- stylesheet => [qw'light dark mono red'],
data => [$source =~ m{\A($incname)\z}],
});
ansi vt100 8bit 4bit cga ega vga rgb hsv game emulator display
'],
data => ['termcol.inc.pl'],
- stylesheet => [qw'light dark'],
});
my @draw = map { [$_, s/\W+\z//] } grep { $_ } split m(/),
keywords => [qw'
unicode glyph char character reference common ipa symbol sign mark table digraph
'],
- stylesheet => [qw'light dark mono circus red'],
data => [qw( unicode-table.inc.pl data/unicode-char.inc.pl )],
});
writing script glyph unicode character letter comparison history
alphabet sample test language multilingual
)],
- stylesheet => [qw'light circus dark red mono'],
data => ["$include.inc.pl"],
});