applications/urxvt-perls
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixed indentation in clipboard

Browse Source
This commit is contained in:
Bert 2011-01-14 23:28:23 +01:00
parent cb32065c87
commit d5a57b0266
1 changed files with 27 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
clipboard
View File

@ -18,48 +18,48 @@
use strict;
sub copy {
my ($self) = @_;
my ($self) = @_;
open(CLIPBOARD, "| xsel -ib");
my $sel = $self->selection();
utf8::encode($sel);
print CLIPBOARD $sel;
close(CLIPBOARD);
open(CLIPBOARD, "| xsel -ib");
my $sel = $self->selection();
utf8::encode($sel);
print CLIPBOARD $sel;
close(CLIPBOARD);
()
()
}
sub paste {
my ($self) = @_;
my ($self) = @_;
my $str = `xsel -ob`;
$str =~ tr/\n/\r/;
$self->tt_write($str);
my $str = `xsel -ob`;
$str =~ tr/\n/\r/;
$self->tt_write($str);
()
()
}
sub paste_escaped {
my ($self) = @_;
my ($self) = @_;
my $str = `xsel -ob`;
$str =~ tr/\n/\r/;
$str =~ s/([!#\$%&\*\(\) ='"\\\|\[\]`~,<>\?])/\\\1/g;
$self->tt_write($str);
my $str = `xsel -ob`;
$str =~ tr/\n/\r/;
$str =~ s/([!#\$%&\*\(\) ='"\\\|\[\]`~,<>\?])/\\\1/g;
$self->tt_write($str);
()
()
}
sub on_user_command {
my ($self, $cmd) = @_;
my ($self, $cmd) = @_;
if ($cmd eq "clipboard:copy") {
$self->copy;
} elsif ($cmd eq "clipboard:paste") {
$self->paste;
} elsif ($cmd eq "clipboard:paste_escaped") {
$self->paste_escaped;
}
if ($cmd eq "clipboard:copy") {
$self->copy;
} elsif ($cmd eq "clipboard:paste") {
$self->paste;
} elsif ($cmd eq "clipboard:paste_escaped") {
$self->paste_escaped;
}
()
()
}