Revision: | 1.1 |
Committed: | Wed Jul 21 08:58:50 2010 UTC (13 years, 11 months ago) by sf-exg |
Branch: | MAIN |
CVS Tags: | rel-9_09, rxvt-unicode-rel-9_15, rel-9_14, rel-9_12, rel-9_10, rel-9_11 |
Log Message: | Add clipboard-osc script. |
# | User | Rev | Content |
---|---|---|---|
1 | sf-exg | 1.1 | #! perl |
2 | |||
3 | sub on_osc_seq_perl { | ||
4 | my ($self, $osc, $resp) = @_; | ||
5 | |||
6 | return unless $osc =~ s/^clipboard;([^;]+)//; | ||
7 | |||
8 | if ($1 eq "copy") { | ||
9 | my $text = $self->selection (); | ||
10 | $self->selection ($text, 1); | ||
11 | $self->selection_grab (urxvt::CurrentTime, 1); | ||
12 | } | ||
13 | |||
14 | 1 | ||
15 | } |