123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115 |
- #! perl -w
- # Author: Bert Muennich
- # Website: http://www.github.com/muennich/urxvt-perls
- # License: GPLv2
-
- # Use keyboard shortcuts to copy the selection to the clipboard and to paste
- # the clipboard contents (optionally escaping all special characters).
- # Requires xsel to be installed!
-
- # Usage: put the following lines in your .Xdefaults/.Xresources:
- # URxvt.perl-ext-common: ...,clipboard
- # URxvt.keysym.M-c: perl:clipboard:copy
- # URxvt.keysym.M-v: perl:clipboard:paste
- # URxvt.keysym.M-C-v: perl:clipboard:paste_escaped
-
- # Options:
- # URxvt.clipboard.autocopy: If true, PRIMARY overwrites clipboard
-
- # You can also overwrite the system commands to use for copying/pasting.
- # The default ones are:
- # URxvt.clipboard.copycmd: xsel -ib
- # URxvt.clipboard.pastecmd: xsel -ob
- # If you prefer xclip, then put these lines in your .Xdefaults/.Xresources:
- # URxvt.clipboard.copycmd: xclip -i -selection clipboard
- # URxvt.clipboard.pastecmd: xclip -o -selection clipboard
- # On Mac OS X, put these lines in your .Xdefaults/.Xresources:
- # URxvt.clipboard.copycmd: pbcopy
- # URxvt.clipboard.pastecmd: pbpaste
-
- # The use of the functions should be self-explanatory!
-
- use strict;
-
- sub on_start {
- my ($self) = @_;
-
- $self->{copy_cmd} = $self->x_resource('clipboard.copycmd') || 'xsel -ib';
- $self->{paste_cmd} = $self->x_resource('clipboard.pastecmd') || 'xsel -ob';
-
- if ($self->x_resource('clipboard.autocopy') eq 'true') {
- $self->enable(sel_grab => \&sel_grab);
- }
-
- ()
- }
-
- sub copy {
- my ($self) = @_;
-
- if (open(CLIPBOARD, "| $self->{copy_cmd}")) {
- my $sel = $self->selection();
- utf8::encode($sel);
- print CLIPBOARD $sel;
- close(CLIPBOARD);
- } else {
- print STDERR "error running '$self->{copy_cmd}': $!\n";
- }
-
- ()
- }
-
- sub paste {
- my ($self) = @_;
-
- my $str = `$self->{paste_cmd}`;
- if ($? == 0) {
- $self->tt_paste($str);
- } else {
- print STDERR "error running '$self->{paste_cmd}': $!\n";
- }
-
- ()
- }
-
- sub paste_escaped {
- my ($self) = @_;
-
- my $str = `$self->{paste_cmd}`;
- if ($? == 0) {
- $str =~ s/([!#\$%&\*\(\) ='"\\\|\[\]`~,<>\?])/\\\1/g;
- $self->tt_paste($str);
- } else {
- print STDERR "error running '$self->{paste_cmd}': $!\n";
- }
-
- ()
- }
-
- sub on_action {
- my ($self, $action) = @_;
-
- on_user_command($self, "clipboard:" . $action);
- }
-
- sub on_user_command {
- 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;
- }
-
- ()
- }
-
- sub sel_grab {
- my ($self) = @_;
-
- $self->copy;
-
- ()
- }
|