Портирование сочетаний клавиш GNOME на URXVT

Question

Я недавно переключился с gnome terminal на urxvt (и установил расширения с вкладками). Я также опытный пользователь emacs который использует множество комбинаций клавиш, похожих на urxvt (материал, связанный с табуляцией), например Shift-Left и Shift-Right . Эти комбинации клавиш установлены для выбора текста в emacs .

Есть ли способ отобразить ALT-1 , ALT-2 , ALT-3 для вкладок 1, 2, 3 ..?

Есть ли расширение для этого? Это может быть достигнуто через ~/.Xdefaults ?

Answer 1

Вы можете сделать это вручную, изменив расширение perl для вкладок (с вкладками) и изменив клавиши, на которые оно реагирует. Я получил его, чтобы изменить вкладки с помощью alt + 1 ... alt + 9, изменив метод tab_key_press :

Вы можете получить исходный скрипт с вкладками из исходного дистрибутива urxvt в папке rxvt-unicode-9.15/src/perl/tabbed, найти функцию и заменить его описанным ниже методом.

Когда это будет сделано, вы можете сохранить измененный файл в /some /folder /tabz и запустить urxvt с помощью urxvt --perl-lib /some /folder -pe tabz

Я думаю, что это можно настроить с помощью ресурсов X (~/.Xdefaults), так что, возможно, я сделаю версию скрипта, которая будет читать оттуда в будущем, и отправлю ее по почте сопровождающему urxvt, но сейчас:

sub tab_key_press {
   my ($self, $tab, $event, $keysym, $str) = @_;
   warn "keysym: ", $keysym;

   #if ($event->{state} & urxvt::ShiftMask) {
   if ($event->{state} & urxvt::Mod1Mask) {
      if ($keysym == 0xff51 || $keysym == 0xff53) {
         my ($idx) = grep $self->{tabs}[$_] == $tab, 0 .. $#{ $self->{tabs} };

         --$idx if $keysym == 0xff51;
         ++$idx if $keysym == 0xff53;

         $self->make_current ($self->{tabs}[$idx % @{ $self->{tabs}}]);

         return 1;
      } elsif ($keysym == 0xff54) {
         $self->new_tab;

         return 1;
      } elsif ( $keysym == 0x31 || $keysym == 0x32 || $keysym == 0x33 ||
                $keysym == 0x34 || $keysym == 0x35 || $keysym == 0x36 ||
                $keysym == 0x37 || $keysym == 0x38 || $keysym == 0x39
      ) {
         my $idx = 0;
         $idx = 0 if $keysym == 0x31;
         $idx = 1 if $keysym == 0x32;
         $idx = 2 if $keysym == 0x33;
         $idx = 3 if $keysym == 0x34;
         $idx = 4 if $keysym == 0x35;
         $idx = 5 if $keysym == 0x36;
         $idx = 6 if $keysym == 0x37;
         $idx = 7 if $keysym == 0x38;
         $idx = 8 if $keysym == 0x39;
         warn scalar @{  $self->{tabs} };
         $self->make_current ($self->{tabs}[ $idx ]) if ($idx <  (scalar @{$self->{tabs}})) ;
         return 1;
      }
   }
   elsif ($event->{state} & urxvt::ControlMask) {
      if ($keysym == 0xff51 || $keysym == 0xff53) {
         my ($idx1) = grep $self->{tabs}[$_] == $tab, 0 .. $#{ $self->{tabs} };
         my  $idx2  = ($idx1 + ($keysym == 0xff51 ? -1 : +1)) % @{ $self->{tabs} };

         ($self->{tabs}[$idx1], $self->{tabs}[$idx2]) =
            ($self->{tabs}[$idx2], $self->{tabs}[$idx1]);

         $self->make_current ($self->{tabs}[$idx2]);

         return 1;
      }
   }

   ()
}