… | … | ||
---|---|---|---|
113 | }; | 113 | }; |
114 | 114 | ||
115 | () | 115 | () |
116 | } | 116 | } |
117 | 117 | ||
118 | sub on_user_command { | ||
119 | my ($self, $cmd) = @_; | ||
120 | |||
121 | if ($cmd eq "selection-pastebin:remote-pastebin") { | ||
122 | $self->upload_paste; | ||
123 | } | ||
124 | |||
125 | () | ||
126 | } | ||
127 | |||
118 | sub on_action { | 128 | sub on_action { |
119 | my ($self, $action) = @_; | 129 | my ($self, $action) = @_; |
120 | 130 | ||
121 | $action eq "remote-pastebin" | 131 | $action eq "remote-pastebin" |
122 | and $self->upload_paste; | 132 | and $self->upload_paste; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |