14 lines
271 B
Perl
Executable file
14 lines
271 B
Perl
Executable file
#!/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;
|
|
}
|
|
}
|