stelonix · May 8, 2014 21:02
diff --git a/clipboard b/clipboard
 #! perl
 # source: https://bbs.archlinux.org/viewtopic.php?pid=619931#p619931
 sub on_sel_grab {
    my $query = quotemeta $_[0]->selection;
    $query =~ s/\n/\\n/g;
    $query =~ s/\r/\\r/g;
    system( "echo -en " . $query . " | xsel -ibp" );
 }
	#! perl
	# source: https://bbs.archlinux.org/viewtopic.php?pid=619931#p619931
	sub on_sel_grab {
	my $query = quotemeta $_[0]->selection;
	$query =~ s/\n/\\n/g;
	$query =~ s/\r/\\r/g;
	system( "echo -en " . $query . " \| xsel -ibp" );
	}