--- rxvt-unicode/src/perl/selection-popup	2012/09/04 22:41:12	1.28
+++ rxvt-unicode/src/perl/selection-popup	2021/06/23 12:45:30	1.32
@@ -1,16 +1,17 @@
 #! perl
 
-#:META:X_RESOURCE:url-launcher:string:shell command to use
+#:META:RESOURCE:url-launcher:string:shell command to use
 
 =head1 NAME
 
-selection-popup (enabled by default)
+selection-popup - selection management pop-up
 
 =head1 DESCRIPTION
 
-Binds a popup menu to Ctrl-Button3 that lets you convert the selection
-text into various other formats/action (such as uri unescaping, perl
-evaluation, web-browser starting etc.), depending on content.
+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
@@ -38,9 +39,9 @@
 
    my $overlay = $self->overlay (0, 0, $self->strwidth ($msg), 1);
    $overlay->set (0, 0, $msg);
-   my $iow; $iow = urxvt::timer->new->after (1)->cb (sub {
+   $self->{timer} = urxvt::timer->new->after (1)->cb (sub {
+      delete $self->{timer};
       undef $overlay;
-      undef $iow;
    });
 }
 
@@ -61,7 +62,7 @@
       my $popup = $self->popup ($event)
          or return 1;
 
-      $popup->add_title ("Convert Selection");
+      $popup->add_title ("Selection");
 
       my $text = $self->selection;
 
@@ -90,6 +91,16 @@
 
       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/ / });
 
          /./