Run another rxvt-unicode on the same directory

[José Romildo Malaquias]

 On Sun, Jul 01, 2012 at 06:29:13PM +0200, Martin Pohlack wrote:
> Hi Romildo,
> 
> On 01.07.2012 16:29, José Romildo Malaquias wrote:
> > 
> > Suppose I have a window running rxvt-unicode. I would like to be able to
> > have a new window running rxvt-unicode on the same directory of the
> > current one.
> 
> With "current one", you probably mean the current *shell* running in
> your terminal and not the cwd of the terminal itself?

Yes.

> Then you could write a simple perl plugin, using some hackery from the
> selection plugin:
[...]
> > Something like C-S-n on gnome-terminal.

I have tried with the sugested code. The plugin is attached.

But I am not a Perl programmer neither an expert on urxvt. So it the
plugin needs some fixes.

Currently it runs, but gives some messages:

$ urxvt --perl-lib ${HOME}/.urxvt -pe urxvt-new-window
urxvt: perl hook 0 evaluation error: /home/romildo/.urxvt/ext/urxvt-new-window: Global symbol "$self" requires explicit package name at /home/romildo/.urxvt/ext/urxvt-new-window line 18, <$fh> line 1.

Also, the original urxvt window prompt is blocked until the new urxvt
window is closed.

So I need help to finish the plugin.

Regards.

Romildo
-------------- next part --------------
#!/usr/bin/env perl

use strict;
use warnings;
use Cwd;

# Openning a new window.
# José Romildo Malaquias <malaquias at gmail.com>
# References: man 3 urxvtperl
#  Debugging:   urxvt --perl-lib ${HOME}/.urxvt -pe new-window

sub new_window
{
   my $ccwd = readlink("/proc/".$self->{child_pid}."/cwd");
   exec("urxvt", "-cd", "$ccwd");
}

sub on_child_start {
   my ($self,$pid) = @_;

   $self->{child_pid} = $pid;  # keep for later determining our shells
                               # CWD for relative path names

   ()
}


sub on_user_command
{
  my ($self, $cmd) = @_;

  if ($cmd eq "new-window") {
    new_window($self);
  }
}