Untitled

#! perl 
sub on_sel_grab { 
    my $query = $_[0]->selection; 
    open (my $pipe,'| /usr/bin/xclip -in -selection primary') or die; 
    print $pipe $query; 
    close $pipe; 
} 

sub copy { 
    my $query = $_[0]->selection; 
    #open (my $pipe,'| /usr/bin/xclip -in -selection clipboard') or die; 
    #open (my $pipe,'| /usr/bin/xsel --input --clipboard') or die; 
	my $trash = `echo $query | /usr/bin/xsel --input --clipboard` ;
    #print $pipe $query; 
    #close $pipe; 
}
sub paste { 
    my ($self) = @_; 
    my $content = `/usr/bin/xclip -loop 1 -out -selection clipboard` ; 
    $self->tt_write ($content); 
} 
sub on_user_command { 
    my ($self, $cmd) = @_; 
    if ($cmd eq "clipboard:paste") { 
	$self->paste; 
	}
}