#! perl

#:META:OSC_PERL:clipboard:man clipboard-osc

=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
}
