1 | #! perl | 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 | |||
2 | 17 | ||
3 | sub on_osc_seq_perl { | 18 | sub on_osc_seq_perl { |
4 | my ($self, $osc, $resp) = @_; | 19 | my ($self, $osc, $resp) = @_; |
5 | 20 | ||
6 | return unless $osc =~ s/^clipboard;([^;]+)//; | 21 | return unless $osc =~ s/^clipboard;([^;]+)//; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |