From 13a7879c8ccbd967869e2eeeae76065c6cb4c4f0 Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Fri, 20 Jun 2014 12:05:04 +0200 Subject: [PATCH] Term::ReadLine::Perl::Bind in Console nicht nutzen Fixt zwar unter RXVT, macht aber unter anderen Emulatoren die Bindings ziemlich kaputt. --- modules/override/Term/ReadLine/Perl/Bind.pm | 153 -------------------- scripts/console | 1 - 2 files changed, 154 deletions(-) delete mode 100644 modules/override/Term/ReadLine/Perl/Bind.pm diff --git a/modules/override/Term/ReadLine/Perl/Bind.pm b/modules/override/Term/ReadLine/Perl/Bind.pm deleted file mode 100644 index 2587f6dcf..000000000 --- a/modules/override/Term/ReadLine/Perl/Bind.pm +++ /dev/null @@ -1,153 +0,0 @@ -package Term::ReadLine::Perl::Bind; -### From http://www.perlmonks.org/?node_id=751611 -### Posted by repellant (http://www.perlmonks.org/?node_id=665462) - -### Set readline bindkeys for common terminals - -use warnings; -use strict; - -BEGIN { - require Exporter; - *import = \&Exporter::import; # just inherit import() only - - our $VERSION = 1.001; - our @EXPORT_OK = qw(rl_bind_action $action2key $key2codes); -} - -use Term::ReadLine; - -# http://cpansearch.perl.org/src/ILYAZ/Term-ReadLine-Perl-1.0302/ReadLine -my $got_rl_perl; - -BEGIN { - $got_rl_perl = eval { - require Term::ReadLine::Perl; - require Term::ReadLine::readline; - }; -} - -# bindkey actions for terminals -our $action2key = { - Complete => "Tab", - PossibleCompletions => "C-d", - QuotedInsert => "C-v", - - ToggleInsertMode => "Insert", - DeleteChar => "Del", - UpcaseWord => "PageUp", - DownCaseWord => "PageDown", - BeginningOfLine => "Home", - EndOfLine => "End", - - ReverseSearchHistory => "C-Up", - ForwardSearchHistory => "C-Down", - ForwardWord => "C-Right", - BackwardWord => "C-Left", - - HistorySearchBackward => "S-Up", - HistorySearchForward => "S-Down", - KillWord => "S-Right", - BackwardKillWord => "S-Left", - - Yank => "A-Down", # paste - KillLine => "A-Right", - BackwardKillLine => "A-Left", -}; - -our $key2codes = { - "Tab" => [ "TAB", ], - "C-d" => [ "C-d", ], - "C-v" => [ "C-v", ], - - "Insert" => [ qq("\e[2~"), qq("\e[2z"), qq("\e[L"), ], - "Del" => [ qq("\e[3~"), ], - "PageUp" => [ qq("\e[5~"), qq("\e[5z"), qq("\e[I"), ], - "PageDown" => [ qq("\e[6~"), qq("\e[6z"), qq("\e[G"), ], - "Home" => [ qq("\e[7~"), qq("\e[1~"), qq("\e[H"), ], - "End" => [ qq("\e[8~"), qq("\e[4~"), qq("\e[F"), ], - - "C-Up" => [ qq("\eOa"), qq("\eOA"), qq("\e[1;5A"), ], - "C-Down" => [ qq("\eOb"), qq("\eOB"), qq("\e[1;5B"), ], - "C-Right" => [ qq("\eOc"), qq("\eOC"), qq("\e[1;5C"), ], - "C-Left" => [ qq("\eOd"), qq("\eOD"), qq("\e[1;5D"), ], - - "S-Up" => [ qq("\e[a"), qq("\e[1;2A"), ], - "S-Down" => [ qq("\e[b"), qq("\e[1;2B"), ], - "S-Right" => [ qq("\e[c"), qq("\e[1;2C"), ], - "S-Left" => [ qq("\e[d"), qq("\e[1;2D"), ], - - "A-Down" => [ qq("\e\e[B"), qq("\e[1;3B"), ], - "A-Right" => [ qq("\e\e[C"), qq("\e[1;3C"), ], - "A-Left" => [ qq("\e\e[D"), qq("\e[1;3D"), ], -}; - -# warn if any keycode is clobbered -our $debug = 0; - -# check ref type -sub _is_array { ref($_[0]) && eval { @{ $_[0] } or 1 } } -sub _is_hash { ref($_[0]) && eval { %{ $_[0] } or 1 } } - -# set bindkey actions for each terminal -my %code2action; - -sub rl_bind_action { - if ($got_rl_perl) - { - my $a2k = shift(); - return () unless _is_hash($a2k); - - while (my ($action, $bindkey) = each %{ $a2k }) - { - # use default keycodes if none provided - my @keycodes = @_ ? @_ : $key2codes; - - for my $k2c (@keycodes) - { - next unless _is_hash($k2c); - - my $codes = $k2c->{$bindkey}; - next unless defined($codes); - $codes = [ $codes ] unless _is_array($codes); - - for my $code (@{ $codes }) - { - if ($debug && $code2action{$code}) - { - my $hexcode = $code; - $hexcode =~ s/^"(.*)"$/$1/; - $hexcode = join(" ", map { uc } unpack("(H2)*", $hexcode)); - - warn <<"EOT"; -rl_bind_action(): re-binding keycode [ $hexcode ] from '$code2action{$code}' to '$action' -EOT - } - - readline::rl_bind($code, $action); - $code2action{$code} = $action; - } - } - } - } - else - { - warn <<"EOT"; -rl_bind_action(): Term::ReadLine::Perl is not available. No bindkeys were set. -EOT - } - - return $got_rl_perl; -} - -# default bind -rl_bind_action($action2key); - -# bind Delete key for 'xterm' -if ($got_rl_perl && defined($ENV{TERM}) && $ENV{TERM} =~ /xterm/) -{ - rl_bind_action($action2key, +{ "Del" => qq("\x7F") }); -} - -'Term::ReadLine::Perl::Bind'; - diff --git a/scripts/console b/scripts/console index 8ce978346..97260d13e 100755 --- a/scripts/console +++ b/scripts/console @@ -14,7 +14,6 @@ use Devel::REPL 1.002001; use File::Slurp; use Getopt::Long; use Pod::Usage; -use Term::ReadLine::Perl::Bind; # use sane key binding for rxvt users use SL::LxOfficeConf; SL::LxOfficeConf->read; -- 2.20.1