[rxvt-unicode-bounces at lists.schmorp.de: Forward of moderated message]

[Marc Lehmann]

I received the following mail, but the sender didn't offer any way of
reaching him, so I manually forwarded this to the list. If you read this,
neil at callisto, then its high time to get a valid e-mail address...

----- Forwarded message from rxvt-unicode-bounces at lists.schmorp.de -----

Subject: key bindings for tabs
From: neil at callisto
Date: Sat, 8 Sep 2007 10:56:22 +1200
To: rxvt-unicode at lists.schmorp.de


Thanks very much for rxvt-unicode and its extension to support multiple
tabs.  I'm used to the tab key bindings for tabs from gnome-terminal so
if anyone else wants this too then this patch (against 7.9) will do it:

[
--- /usr/lib/urxvt/perl/tabbed.orig 2007-09-08 09:14:04.000000000 +1200
+++ /usr/lib/urxvt/perl/tabbed  2007-09-08 09:35:37.000000000 +1200
@@ -309,21 +309,24 @@
 sub tab_key_press {
    my ($self, $tab, $event, $keysym, $str) = @_;
 
-   if ($event->{state} & urxvt::ShiftMask) {
-      if ($keysym == 0xff51 || $keysym == 0xff53) {
+   if ($event->{state} & urxvt::ControlMask) {
+      if ($keysym == 0xff55 || $keysym == 0xff56) {
          my ($idx) = grep $self->{tabs}[$_] == $tab, 0 .. $#{ $self->{tabs} };
 
-         --$idx if $keysym == 0xff51;
-         ++$idx if $keysym == 0xff53;
+         --$idx if $keysym == 0xff55;
+         ++$idx if $keysym == 0xff56;
 
          $self->make_current ($self->{tabs}[$idx % @{ $self->{tabs}}]);
-         
-         return 1;
-      } elsif ($keysym == 0xff54) {
-         $self->new_tab;
 
          return 1;
       }
+      if ($event->{state} & urxvt::ShiftMask) {
+         if ($keysym == 0x54) {
+            $self->new_tab;
+
+            return 1;
+         }
+      }
    }
 
    ()
]




----- End forwarded message -----

-- 
                The choice of a
      -----==-     _GNU_
      ----==-- _       generation     Marc Lehmann
      ---==---(_)__  __ ____  __      pcg at goof.com
      --==---/ / _ \/ // /\ \/ /      http://schmorp.de/
      -=====/_/_//_/\_,_/ /_/\_\      XX11-RIPE