rxvt script for copy/paste

1 files changed, 18 insertions, 0 deletions

diff --git a/rxvt/.urxvt/ext/pasta b/rxvt/.urxvt/ext/pasta
new file mode 100755
index 0000000..2ee98ef
--- /dev/null
+++ b/rxvt/.urxvt/ext/pasta
@@ -0,0 +1,18 @@
+#! /usr/bin/env perl -w
+# Author:   Aaron Caffrey
+# Website:  https://github.com/wifiextender/urxvt-pasta
+# License:  GPLv3
+
+# Usage: put the following lines in your .Xdefaults/.Xresources:
+# URxvt.perl-ext-common           : selection-to-clipboard,pasta
+# URxvt.keysym.Control-Shift-V    : perl:pasta:paste
+
+use strict;
+
+sub on_user_command {
+  my ($self, $cmd) = @_;
+  if ($cmd eq "pasta:paste") {
+    $self->selection_request (urxvt::CurrentTime, 3);
+  }
+  ()
+}