keys: replace omni-present escape keys

[sheet.git] / mutt.plp

diff --git a/mutt.plp b/mutt.plp
index ec4d0a2320aa86b0e29724fd62a9076cdb4e5b4a..3ce3d027c9fc01e3ab53e8f1ef8ae9e8f4a1cfc6 100644 (file)
--- a/mutt.plp
+++ b/mutt.plp
@@ -2,7 +2,7 @@
 
 Html({
        title => 'mutt cheat sheet',
-       version => 'v1.0',
+       version => 'v1.1',
        description => [
                "Cheat sheet for the Mutt e-mail client,",
                "showing the default binding for each key.",
@@ -22,16 +22,11 @@ Html({
 
 <ul id="rows">
 
-<li class="row">
-       <ul class="keys omni">
-       <li class="me chr27" onclick="setmode()"><b>Esc</b> +
-               <!-- not as static anymore, but never bothered; just see ^[ -->
-       </ul>
-</li>
-
 <:
-use Shiar_Sheet::Keyboard;
-my $keys = Shiar_Sheet::Keyboard->new({do 'mutt.inc.pl'});
+use Shiar_Sheet::Keyboard 2;
+my $info = do 'mutt.eng.inc.pl' or die $@;
+$info->{def} = do 'mutt.inc.pl';
+my $keys = Shiar_Sheet::Keyboard->new($info);
 $keys->map($get{map}) or undef $get{map};
 $keys->print_rows($get{rows});
 :>