commit - 1f475237920324bcd7e1da81592f0516ad0c787c
commit + 9c72efd462ae36370f075be513bee47843fa8fce
blob - ac579c64605738ce0b1d0a81907331ac0f989904
blob + 1eb74ec5758e31c663403ad0214c2d7dd58bbb02
--- contrib/amused-monitor
+++ contrib/amused-monitor
@@ -252,7 +252,11 @@ sub hevent {
 
 sub hinput {
 	my ($ch, $key) = getchar;
-	if (defined $ch) {
+	if (defined $key) {
+		if ($key == KEY_BACKSPACE) {
+			system "amused", " seek", "0";
+		}
+	} elsif (defined $ch) {
 		if ($ch eq " ") {
 			system "amused", "toggle";
 		} elsif ($ch eq "<" or $ch eq "p") {
@@ -271,9 +275,9 @@ sub hinput {
 			save;
 		} elsif ($ch eq "q") {
 			$run = 0;
+		} elsif ($ch eq "\cH") {
+			system "amused", " seek", "0"
 		}
-	} elsif (defined $key) {
-		# todo?
 	}
 }
 
@@ -293,6 +297,7 @@ init_pair $pair_n, 250, -1;
 timeout 1000;
 scrollok 0;
 curs_set 0;
+keypad 1;
 
 my $poll = IO::Poll->new();
 $poll->mask(\*STDIN => POLLIN);
@@ -367,6 +372,10 @@ The following key-bindings are available:
 
 =over 8
 
+=item backspace or C-h
+
+Seek back to the beginning of the track.
+
 =item space
 
 Toggle play/pause.