[ViewVC] Diff of: cvs/rxvt-unicode/src/perl/selection-pastebin

Comparing rxvt-unicode/src/perl/selection-pastebin (file contents):
Revision 1.24 by sf-exg, Sat May 17 15:48:29 2014 UTC vs.
Revision 1.26 by sf-exg, Mon Jun 9 19:54:26 2014 UTC

 =head1 NAME
 selection-pastebin - automatic pastebin upload
+=head1 EXAMPLES
+  URxvt.keysym.C-M-e: selection-pastebin:remote-pastebin
 =head1 DESCRIPTION
 This is a little rarely useful extension that uploads the selection as
 textfile to a remote site (or does other things). (The implementation is
 not currently secure for use in a multiuser environment as it writes to
 F</tmp> directly.).
-It listens to the C<selection-pastebin:remote-pastebin> keyboard command,
+It listens to the C<selection-pastebin:remote-pastebin> action, which,
-i.e.
+when activated, runs a command with C<%> replaced by the name of the
-   URxvt.keysym.C-M-e: perl:selection-pastebin:remote-pastebin
-Pressing this combination runs a command with C<%> replaced by the name of
-the textfile. This command can be set via a resource:
+textfile. This command can be set via a resource:
    URxvt.selection-pastebin.cmd: rsync -apP % ruth:/var/www/www.ta-sa.org/files/txt/.
 And the default is likely not useful to anybody but the few people around
 here :)
    };
    ()
 }
+sub on_user_command {
+   my ($self, $cmd) = @_;
+   if ($cmd eq "selection-pastebin:remote-pastebin") {
+      $self->upload_paste;
+   }
+   ()
+}
 sub on_action {
    my ($self, $action) = @_;
    $action eq "remote-pastebin"
       and $self->upload_paste;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines