added the selection:rot13 feature

diff --git a/src/perl/selection b/src/perl/selection
new file mode 100644 (file)
index 0000000..9189f59
--- /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);
+}