X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/02aff73f80ccbf7d050280af1114f0e663c6d4dd..28151a28db84c6d6018232f36c0003ecd562b3f0:/readline.plp diff --git a/readline.plp b/readline.plp index dd81cbe..e1e3f10 100644 --- a/readline.plp +++ b/readline.plp @@ -1,35 +1,24 @@ -<: -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)><: + use Shiar_Sheet::KeySigns qw(%sign); # dependant on $get{ascii} -our $VERSION = 'v1.0'; + our $VERSION = 'v1.0'; -$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 +41,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{rows}, [4,3,2]); +$keys->print_rows($get{rows} || '^x=213', [4,3,2]); :> @@ -82,8 +71,10 @@ $keys->print_rows($get{rows}, [4,3,2]);
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.