X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/f8c9c002006dbbaa51bd90d234e43561a9d09eff..8b8c77dbf30f70a1e8ade679a62f08e130f959a2:/index.plp diff --git a/index.plp b/index.plp index adc573d..4afd683 100644 --- a/index.plp +++ b/index.plp @@ -2,250 +2,60 @@ 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 -# 2006-03-29 ~20:00 started work -# 2006-03-30 11:58 html version -# 2006-05-20 03:44 perl version -# 2007-02-07 07:34 cleaned up -# 2007-02-25 04:00 v1.0: git repository +our $VERSION = 'v1.0'; -our $VERSION = "1.0"; - -our $ascii = 0; -if (exists $get{ascii}) { - $ascii = $get{ascii} ne "0"; # manual override -} elsif (defined $ENV{HTTP_ACCEPT_CHARSET}) { - $ascii = 1; - for (split ",", $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; +$header{content_type} = "text/html; charset=utf-8"; :> + vi cheat sheet - - -<: - my %styles = map {$_ => $_} qw(dark circus mono); - 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)

- -