14 lines
271 B
Plaintext
14 lines
271 B
Plaintext
|
#!/usr/bin/perl
|
||
|
|
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;
|
||
|
|
}
|
||
|
|
}
|