mirror of
https://github.com/balkian/dotfiles.git
synced 2024-11-22 04:02:28 +00:00
10 lines
239 B
Plaintext
10 lines
239 B
Plaintext
|
#! /usr/bin/perl
|
||
|
|
# /usr/lib/urxvt/perl/clipboard
|
||
|
|
|
||
|
|
sub on_sel_grab {
|
||
|
|
my $query=quotemeta $_[0]->selection;
|
||
|
|
$query=~ s/\n/\\n/g;
|
||
|
|
$query=~ s/\r/\\r/g;
|
||
|
|
system( "echo " . $query . " | xsel -i -b -p" );
|
||
|
|
}
|