--- rxvt-unicode/src/perl/selection-popup 2007/10/31 18:15:42 1.21
+++ rxvt-unicode/src/perl/selection-popup 2014/05/23 20:51:15 1.30
@@ -1,5 +1,39 @@
#! perl
+#:META:RESOURCE:url-launcher:string:shell command to use
+
+=head1 NAME
+
+selection-popup (enabled by default)
+
+=head1 DESCRIPTION
+
+Binds a popup menu to Ctrl-Button3 that lets you paste the X
+selections and either modify or use the internal selection text in
+various ways (such as uri unescaping, perl evaluation, web-browser
+starting etc.), depending on content.
+
+Other extensions can extend this popup menu by pushing a code reference
+onto C<< @{ $term->{selection_popup_hook} } >>, which gets called whenever
+the popup is being displayed.
+
+Its sole argument is the popup menu, which can be modified. The selection
+is in C<$_>, which can be used to decide whether to add something or not.
+It should either return nothing or a string and a code reference. The
+string will be used as button text and the code reference will be called
+when the button gets activated and should transform C<$_>.
+
+The following will add an entry C that transforms all Cs in
+the selection to Cs, but only if the selection currently contains any
+Cs:
+
+ push @{ $self->{term}{selection_popup_hook} }, sub {
+ /a/ ? ("a to b" => sub { s/a/b/g }
+ : ()
+ };
+
+=cut
+
sub msg {
my ($self, $msg) = @_;
@@ -14,7 +48,7 @@
sub on_start {
my ($self) = @_;
- $self->{browser} = $self->x_resource ("urlLauncher") || "sensible-browser";
+ $self->{browser} = $self->x_resource ("url-launcher") || "sensible-browser";
$self->grab_button (3, urxvt::ControlMask);
@@ -28,7 +62,7 @@
my $popup = $self->popup ($event)
or return 1;
- $popup->add_title ("Convert Selection");
+ $popup->add_title ("Selection");
my $text = $self->selection;
@@ -56,16 +90,29 @@
};
for ($text) {
+ /\n/
+ and $add_button->("paste primary selection" => sub { $self->selection_request (urxvt::CurrentTime, 1) });
+
+ /./
+ and $add_button->("paste clipboard selection" => sub { $self->selection_request (urxvt::CurrentTime, 3) });
+
+ /./
+ and $add_button->("copy selection to clipboard" => sub { $self->selection ($self->selection, 1);
+ $self->selection_grab (urxvt::CurrentTime, 1) });
+
+ /./
+ and $add_button->("newlines to spaces" => sub { y/\n/ / });
+
/./
and $add_button->("rot13" => sub { y/A-Za-z/N-ZA-Mn-za-m/ });
/./
- and $add_button->("eval perl expression" => sub { no warnings; $_ = eval $_ });
+ and $add_button->("eval perl expression" => sub { my $self = $self; no warnings; $_ = eval $_; $_ = "$@" if $@ });
/./
and $add_button->((sprintf "to unicode hex index (%x)", ord) => sub { $_ = sprintf "%x", ord });
- /^(\S+):(\d+):?$/
+ /(\S+):(\d+):?/
and $add_button->("vi-commands to load '$1'" => sub { s/^(\S+):(\d+):?$/\x1b:e $1\x0d:$2\x0d/ });
/%[0-9a-fA-F]{2}/ && !/%[^0-9a-fA-F]/ && !/%.[^0-9a-fA-F]/