ViewVC Help
View File
|
Revision Log
|
Show Annotations
|
Download File
/
cvs
/
rxvt-unicode
/
src
/
perl
/
clipboard-osc
Revision:
1.1
Committed:
Wed Jul 21 08:58:50 2010 UTC
(13 years, 10 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.
File Contents
#
Content
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
}