repo: rxvt-unicode-sixel
action: commit
revision: 
path_from: 
revision_from: 72d4b527deb50ff22cbef8983f1a2cfc95c09bb8:
path_to: 
revision_to: 

commit 72d4b527deb50ff22cbef8983f1a2cfc95c09bb8
Author: Emanuele Giaquinta 
Date:   Mon Jun 9 19:54:26 2014 +0000

    Restore on_user_command hooks for backward compatibility.

diff --git a/src/perl/searchable-scrollback b/src/perl/searchable-scrollback

--- a/src/perl/searchable-scrollback
+++ b/src/perl/searchable-scrollback
@@ -46,6 +46,15 @@ sub on_init {
    ()
 }

+sub on_user_command {
+   my ($self, $cmd) = @_;
+
+   $cmd eq "searchable-scrollback:start"
+      and $self->enter;
+
+   ()
+}
+
 sub on_action {
    my ($self, $action) = @_;

diff --git a/src/perl/selection b/src/perl/selection

--- a/src/perl/selection
+++ b/src/perl/selection
@@ -57,6 +57,15 @@ Example:

 =cut

+sub on_user_command {
+   my ($self, $cmd) = @_;
+
+   $cmd eq "selection:rot13"
+      and $self->selection (map { y/A-Za-z/N-ZA-Mn-za-m/; $_ } $self->selection);
+
+   ()
+}
+
 sub on_action {
    my ($self, $action) = @_;

diff --git a/src/perl/selection-pastebin b/src/perl/selection-pastebin

--- a/src/perl/selection-pastebin
+++ b/src/perl/selection-pastebin
@@ -115,6 +115,16 @@ sub on_start {
    ()
 }

+sub on_user_command {
+   my ($self, $cmd) = @_;
+
+   if ($cmd eq "selection-pastebin:remote-pastebin") {
+      $self->upload_paste;
+   }
+
+   ()
+}
+
 sub on_action {
    my ($self, $action) = @_;

-----END OF PAGE-----