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