X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/b3075ba5909f86e931ac0485984446df8661d9ab..f63a57e71a3aed6fe5e80ca979186e3bd6c7eb6b:/readline.plp diff --git a/readline.plp b/readline.plp index c849921..13f8dc2 100644 --- a/readline.plp +++ b/readline.plp @@ -1,35 +1,26 @@ -<: -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'; :> @@ -82,8 +73,10 @@ $keys->print_rows($get{rows} || '^x=213', [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.