X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/34c8b87c25c51521261ef20f49c34b924501890f..0b4be0d5ff71ca539da8e741826d499a5d649004:/readline.plp diff --git a/readline.plp b/readline.plp index 0e6a3da..ded1709 100644 --- a/readline.plp +++ b/readline.plp @@ -1,37 +1,29 @@ -<: -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} +<(common.inc.plp)><: + our $VERSION = 'v1.0'; -our $VERSION = 'v1.0'; + use Shiar_Sheet::KeySigns qw(%sign); # dependant on $get{ascii} -$header{content_type} = "text/html; charset=$sign{charset}"; + $header{content_type} = "text/html; charset=$sign{charset}"; :> - + -readline cheat sheet - +readline cheat sheet + + +<:= stylesheet(qw'light dark circus mono red terse') :> <: - 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" + print "\n".'' + unless $showkeys; + print "\n".'' if $showkeys and $get{keys} eq 'ghost'; :> + @@ -52,7 +44,7 @@ $header{content_type} = "text/html; charset=$sign{charset}"; use Shiar_Sheet::Keyboard; my $keys = Shiar_Sheet::Keyboard->new({do 'readline.inc.pl'}); $keys->map($get{map}) or undef $get{map}; -$keys->print_rows($get{static} || '543'); +$keys->print_rows($get{rows} || '^x=213', [4,3,2]); :> @@ -82,8 +74,10 @@ $keys->print_rows($get{static} || '543');
key<:= $sign{arg} :>
Commands with a dot need a char argument afterwards. +
>v2.0 +
Unavailable before readline version 2.1 (1997).
bash -
Default assignment in Bash shells, but not common readline +
Default assignment in Bash shells, but not common readline.