<: 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.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 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; :> vimperator cheat sheet <: my %styles = map {$_ => $_} qw(dark circus mono red 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'; :>

Vimperator cheat sheet

normal mode (default)

Displays something without any permanent consequences.
Move cursor, scroll window, focus buffer element.
Tab or window navigation/selection.
Page interaction.
Browse to a location in the current tab.
tab open
Browse somewhere in a new tab.
Other browser action.
Enter a different mode.
key cmd
Additional key commands (click for overview).
key<:= $sign{arg} :>
Commands with a dot need a char argument afterwards.
key<:= $sign{args} :>
Commands with two dots require variable arguments afterwards.