From: elmex <elmex>
Date: Mon, 2 Jan 2006 21:33:25 +0000 (+0000)
Subject: added the selection:rot13 feature
X-Git-Url: http://git.openbox.org/?a=commitdiff_plain;h=3feb56ff9ab14981989fb06c2229a420127e8fc7;p=dana%2Furxvt.git

added the selection:rot13 feature
---

diff --git a/src/perl/selection b/src/perl/selection
new file mode 100644
index 00000000..9189f597
--- /dev/null
+++ b/src/perl/selection
@@ -0,0 +1,5 @@
+sub on_keyboard_command {
+      my ($term, $cmd) = @_;
+         $cmd eq "selection:rot13"
+                  and $term->selection (map { y/A-Za-z/N-ZA-Mn-za-m/; $_ } $term->selection);
+}