| … | |
… | |
| 73 | } else { |
73 | } else { |
| 74 | delete $self->{iow}; |
74 | delete $self->{iow}; |
| 75 | $self->selection_clear; |
75 | $self->selection_clear; |
| 76 | $self->selection ($txt); |
76 | $self->selection ($txt); |
| 77 | $self->selection_grab (urxvt::CurrentTime); |
77 | $self->selection_grab (urxvt::CurrentTime); |
| 78 | close $fh; |
|
|
| 79 | my $status = $? >> 8; |
|
|
| 80 | $self->msg ("selection fetched (status $status)"); |
78 | $self->msg ("selection fetched"); |
| 81 | } |
79 | } |
| 82 | }); |
80 | }); |
| 83 | } |
81 | } |
| 84 | } |
82 | } |
| 85 | |
83 | |
| … | |
… | |
| 100 | }; |
98 | }; |
| 101 | |
99 | |
| 102 | () |
100 | () |
| 103 | } |
101 | } |
| 104 | |
102 | |
| 105 | sub on_keyboard_command { |
|
|
| 106 | my ($self, $cmd) = @_; |
|
|
| 107 | |
103 | |
| 108 | if ($cmd eq "selection-pastebin:remote-pastebin") { |
|
|
| 109 | $self->upload_paste; |
|
|
| 110 | } |
|
|
| 111 | |
|
|
| 112 | () |
|
|
| 113 | } |
|
|
| 114 | |
|
|
