[ViewVC] Contents of: cvs/rxvt-unicode/src/perl/clipboard-osc

#! perl

=head1 NAME

clipboard-osc - implement the clipboard operating system command sequence

=head1 SYNOPSIS

   urxvt -pe clipboard-osc

=head1 DESCRIPTION

This extension implements the clipboard;copy Perl OSC.

=cut


sub on_osc_seq_perl {
   my ($self, $osc, $resp) = @_;

   return unless $osc =~ s/^clipboard;([^;]+)//;

   if ($1 eq "copy") {
      my $text = $self->selection ();
      $self->selection ($text, 1);
      $self->selection_grab (urxvt::CurrentTime, 1);
   }

   1
}
Revision:	1.2
Committed:	Fri Sep 21 22:55:56 2012 UTC (11 years, 8 months ago) by root
Branch:	MAIN
CVS Tags:	rxvt-unicode-rel-9_16, rxvt-unicode-rel-9_19, rxvt-unicode-rel-9_18, rxvt-unicode-rel-9_26, rxvt-unicode-rel-9_17, rxvt-unicode-rel-9_25, rxvt-unicode-rel-9_22, rxvt-unicode-rel-9_20, rxvt-unicode-rel-9_21
Changes since 1.1:	+15 -0 lines
Log Message:	* empty log message *
#	Content
1	#! perl
2
3	=head1 NAME
4
5	clipboard-osc - implement the clipboard operating system command sequence
6
7	=head1 SYNOPSIS
8
9	urxvt -pe clipboard-osc
10
11	=head1 DESCRIPTION
12
13	This extension implements the clipboard;copy Perl OSC.
14
15	=cut
16
17
18	sub on_osc_seq_perl {
19	my ($self, $osc, $resp) = @_;
20
21	return unless $osc =~ s/^clipboard;([^;]+)//;
22
23	if ($1 eq "copy") {
24	my $text = $self->selection ();
25	$self->selection ($text, 1);
26	$self->selection_grab (urxvt::CurrentTime, 1);
27	}
28
29	1
30	}