dotfiles/not_dots/clipboard

#! /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" );
}