Bind ? to help_scren

mdom · Jan 21, 2019 · 0147060 · 0147060
1 parent 989d57a
commit 0147060
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 10 deletions.
diff --git a/README.md b/README.md
@@ -14,7 +14,7 @@ the first chapter with real content if possible.
 
 # KEY BINDINGS
 
-- h
+- h, ?
 
     Display help screen.
 

diff --git a/lib/App/termpub.pm b/lib/App/termpub.pm
@@ -15,9 +15,10 @@ sub run {
 
     $self->set_chapter( $self->epub->start_chapter );
 
-    $self->key_bindings->{n} = 'next_chapter';
-    $self->key_bindings->{p} = 'prev_chapter';
-    $self->key_bindings->{h} = 'help_screen';
+    $self->key_bindings->{n}   = 'next_chapter';
+    $self->key_bindings->{p}   = 'prev_chapter';
+    $self->key_bindings->{h}   = 'help_screen';
+    $self->key_bindings->{'?'} = 'help_screen';
 
     $self->SUPER::run;
 }
@@ -47,11 +48,8 @@ sub help_screen {
 
     for my $key (@keys) {
         $pad->addstring( ( $keycodes{$key} || $key ) );
-        $pad->addstring(
-            $row,
-            $length,
-            ' = ' . $self->key_bindings->{$key} . "\n"
-        );
+        $pad->addstring( $row, $length,
+            ' = ' . $self->key_bindings->{$key} . "\n" );
         $row++;
     }
 

diff --git a/script/termpub b/script/termpub
@@ -51,7 +51,7 @@ the first chapter with real content if possible.
 
 =over 4
 
-=item h
+=item h, ?
 
 Display help screen.