diff options
-rw-r--r-- | .gitignore | 1 | ||||
-rw-r--r-- | X/Xresources | 40 | ||||
-rw-r--r-- | urxvt/clipboard | 109 |
3 files changed, 131 insertions, 19 deletions
@@ -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; + + () +} |