use utf8;
{
+title => 'readline',
+version => 1.2,
+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 editing curses )],
+rows => [4, 3, 2],
+
key => {
'+<' => "history start",
'+>' => "history end",
-<(common.inc.plp)><:
-
-Html({
- title => 'readline cheat sheet',
- version => '1.2',
- 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 )],
- keys => 1,
-});
-
-:>
-<h1>readline cheat sheet</h1>
-
-<h2>default emacs mode</h2>
-
<:
-use Shiar_Sheet::Keyboard 2;
-my $info = Data('readline.eng');
-my $keys = Shiar_Sheet::Keyboard->new($info);
-$keys->map($get{map}) or undef $get{map};
-$keys->print_rows($get{rows} || '^x=213', [4,3,2]);
-$keys->print_legends(\%get);
-
+$Request = 'readline';
+$get{rows} ||= '^x=213';
+Include 'keyboard.plp';