X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/7c11eee45cc5878ca4464cc1fddeb566be6c8e7f..2a99bcdadec88d7483903e2c8420ad3e78fcb805:/readline.plp diff --git a/readline.plp b/readline.plp index a49c6d3..1a0e638 100644 --- a/readline.plp +++ b/readline.plp @@ -1,95 +1,46 @@ -<: -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); # dependant on $get{ascii} - -our $VERSION = 'v1.0'; - -$header{content_type} = "text/html; charset=$sign{charset}"; - -:> - - - -readline 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 => 'readline cheat sheet', + version => '1.1', + description => [ + "Reference sheet of default key bindings for GNU readline,", + "used for line-editing in most Unix software, notably Emacs and Bash.", + ], + keywords => [qw' + readline gnu bash emacs sheet cheat reference overview keyboard editing curses + '], + 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'; :> - - - -

readline cheat sheet

default emacs mode

-
- Esc + -
-

info -: Info command: shows/does something without altering anything. -
motion -: Move the cursor. -
history -: Replace contents involving kill ring, undo, or command history. -
change -: Alter current text (filtering or completion). -
delete -: Remove text. -
misc -: Miscellaneous commands. -
mode -: Additional key functionality (click to view). -

+<: $keys->print_legend('legend-types', ['g1', 'g2', 'g4', 'g6' .. 'g9']) :>

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

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

keyboard map is <:= $get{map} ? 'set to ' : '' :><:= $keys->{map} :> -
ascii mode is - <:= defined $sign{-ascii} && 'forced ' :><:= - $sign{-ascii} ? 'on' : 'off' :>
keys are <:= $showkeys ? 'always shown' : 'hidden if unassigned' :><:= !exists $get{keys} && ' by default' :> @@ -99,12 +50,3 @@ $keys->print_rows($get{static} || '543');

- - -