*** empty log message ***

1 files changed, 30 insertions, 0 deletions

diff --git a/src/perl/clipboard-osc b/src/perl/clipboard-osc
new file mode 100644
index 0000000..58d3c2b
--- /dev/null
+++ b/src/perl/clipboard-osc
@@ -0,0 +1,30 @@
+#! 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
+}