aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--.gitignore1
-rw-r--r--X/Xresources40
-rw-r--r--urxvt/clipboard109
3 files changed, 131 insertions, 19 deletions
diff --git a/.gitignore b/.gitignore
index 91dacab1..61502d8b 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,3 +1,4 @@
+urxvt/urxvtd-*
vim/.netrwhist
vim/spell/*.spl
vim/backup/*
diff --git a/X/Xresources b/X/Xresources
index 87b5f180..a56d931d 100644
--- a/X/Xresources
+++ b/X/Xresources
@@ -6,25 +6,27 @@ Xft.hintstyle : hintnone
Xft.rgba : rgb
! Urxvt
-URxvt.buffered : false
-URxvt.cursorBlink : on
-URxvt.cutchars : <>[]{}|*
-URxvt.depth : 32
-URxvt.fading : 40
-URxvt.font : xft:Ubuntu Mono:size=12,xft:Deja Vu Sans Mono,xft:Lohit Kannada
-URxvt.internalBorder : 0
-URxvt.iso14755 : false
-URxvt.iso14755_52 : false
-URxvt.letterSpace : -1
-URxvt.perl-ext :
-URxvt.perl-ext-common :
-URxvt.pointerBlank : true
-URxvt.saveLines : 10000
-URxvt.scrollBar : false
-URxvt.scrollTTyKeypress : true
-URxvt.scrollTTyOutput : false
-URxvt.secondaryScroll : true
-URxvt.urgentOnBell : true
+URxvt.buffered : false
+URxvt.clipboard.autocopy : true
+URxvt.cursorBlink : on
+URxvt.cutchars : <>[]{}|*
+URxvt.depth : 32
+URxvt.fading : 40
+URxvt.font : xft:Ubuntu Mono:size=12,xft:Deja Vu Sans Mono,xft:Lohit Kannada
+URxvt.internalBorder : 0
+URxvt.iso14755 : false
+URxvt.iso14755_52 : false
+URxvt.letterSpace : -1
+URxvt.perl-ext : clipboard
+URxvt.perl-ext-common : clipboard
+URxvt.perl-lib : /home/tom/.urxvt
+URxvt.pointerBlank : true
+URxvt.saveLines : 10000
+URxvt.scrollBar : false
+URxvt.scrollTTyKeypress : true
+URxvt.scrollTTyOutput : false
+URxvt.secondaryScroll : true
+URxvt.urgentOnBell : true
! Common terminal colors
*.background : #030303
diff --git a/urxvt/clipboard b/urxvt/clipboard
new file mode 100644
index 00000000..8e71792f
--- /dev/null
+++ b/urxvt/clipboard
@@ -0,0 +1,109 @@
+#! 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_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;
+
+ ()
+}