--- rxvt-unicode/src/perl/selection-popup 2007/10/31 18:12:27 1.20 +++ rxvt-unicode/src/perl/selection-popup 2011/01/04 21:34:18 1.22 @@ -14,7 +14,7 @@ sub on_start { my ($self) = @_; - $self->{browser} = $self->x_resource ("urlLauncher") || "x-www-browser"; + $self->{browser} = $self->x_resource ("urlLauncher") || "sensible-browser"; $self->grab_button (3, urxvt::ControlMask); @@ -56,6 +56,9 @@ }; for ($text) { + /\n/ + and $add_button->("newlines to spaces" => sub { y/\n/ / }); + /./ and $add_button->("rot13" => sub { y/A-Za-z/N-ZA-Mn-za-m/ });