X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/dae21a09b01baa118720670247a87c5cdc2591b8..d96b16650836046f79dc76641681445f97bd60ce:/mutt.plp diff --git a/mutt.plp b/mutt.plp index 22dcf3b..62c2fc1 100644 --- a/mutt.plp +++ b/mutt.plp @@ -1,91 +1,43 @@ -<: -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 - -use Shiar_Sheet::KeySigns qw(%sign); - -our $VERSION = 'v1.0'; - -$header{content_type} = "text/html; charset=$sign{charset}"; - -:> - - - -mutt 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; +<(common.inc.plp)><: + +Html({ + title => 'mutt cheat sheet', + version => 'v1.1', + description => [ + "Cheat sheet for the Mutt e-mail client,", + "showing the default binding for each key.", + ], + keywords => [qw' + mutt MUA email client sheet cheat reference overview commands keyboard + '], + charset => $sign{charset}, + stylesheet => [qw'light dark circus mono red terse'], + keys => 1, +}); - our $showkeys = exists $get{keys} && $get{keys} ne '0'; - print "\n".'' unless $showkeys; - print "\n".'' - if $showkeys and $get{keys} eq 'ghost'; :> - - - -

Mutt cheat sheet

index (default)

-
- Esc + - -
-

aside -: Temporarily display something without changing state. -
select -: Scroll list and/or select a different line. -
search -: Go to a specific message entry. -
edit -: Modify message flags or contents. -
command -: Any other action which does not alter an existing message. -
send -: Prepare and/or send a (new) message. -
leave -: Exit the opened folder. -
display -: Permanently alter/toggle current view. -

+<: $keys->print_legend('legend-types', [qw( ci pm po co mi mo mv me )]) :>

key<:= $sign{arg} :> -: Commands with a dot need an argument afterwards. -

+<: $keys->print_legend('legend-options', [qw( arg )]) :>

keyboard map is @@ -102,14 +54,3 @@ $keys->print_rows($get{rows});

- - -