16 lines
356 B
Plaintext
16 lines
356 B
Plaintext
#/usr/bin/env perl -w
|
|
|
|
# Modo de uso: Poner la siguiente línea en el fichero .Xresources/.Xdefaults
|
|
# URxvt.perl-ext-common :selection-to-clipboard,pasta
|
|
# URxvt.keysym.Control-Shift-V :perl:pasta:paste
|
|
|
|
use strict;
|
|
|
|
sub on_user_command {
|
|
my ($self, $cmd) = @_;
|
|
if ($cmd eq "pasta:paste") {
|
|
$self->selection_request (urxvt::CurrentTime, 3);
|
|
}
|
|
()
|
|
}
|