X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/85e0235b718898b6411ed2eb5d387a2a9d62156b..23a77ad01b96149db5e07121c09481dd1c5d9b4a:/index.plp diff --git a/index.plp b/index.plp index beb51a1..30e5864 100644 --- a/index.plp +++ b/index.plp @@ -1,251 +1,58 @@ -<: -use utf8; -use strict; -use warnings; -no warnings 'qw'; # you know what you doing -no warnings 'uninitialized'; # save some useless checks for more legible code - -our $VERSION = '1.1'; - -our $ascii = 0; -if (exists $get{ascii}) { - $ascii = $get{ascii} ne '0'; # manual override -} elsif (defined $ENV{HTTP_ACCEPT_CHARSET}) { - $ascii = 1; - for (split q{,}, $ENV{HTTP_ACCEPT_CHARSET}) { - $ascii = 0, last if $_ eq '*' or m{utf-?8}i; - } -} - -my $charset = $ascii ? 'us-ascii' : 'utf-8'; -my $ctype = "text/html; charset=$charset"; -$header{content_type} = $ctype; +<(common.inc.plp)><: + our $VERSION = 'v1.0'; :> - + -vi cheat sheet - - - -<: - my %styles = map {$_ => $_} qw(dark circus mono terse); - our $style = exists $get{style} && $styles{$get{style}} || 'light'; - printf(qq{\n}, - $_ eq $style ? 'stylesheet' : 'alternate stylesheet', "$_.css", $_ - ) for keys %styles; - - our $showkeys = exists $get{keys} && $get{keys} ne '0'; - print "\n" unless $showkeys; - print "\n" - if $showkeys and $get{keys} eq 'ghost'; -:> - - - - - -

vi/vim cheat sheet

- -

normal mode (default)

- -