add clipboard script for urxvt

1 files changed, 118 insertions, 0 deletions

diff --git a/xorg/.urxvt/ext/clipboard b/xorg/.urxvt/ext/clipboard
new file mode 100644
index 0000000..63c0ea2
--- /dev/null
+++ b/xorg/.urxvt/ext/clipboard
@@ -0,0 +1,118 @@
+#!/usr/bin/perl
+# 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;
+use warnings;
+
+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;
+
+        ()
+}
+