[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[RP] rpws bug (extra group)

From: Kevin Geiss
Subject: [RP] rpws bug (extra group)
Date: Sat, 3 Jun 2006 17:56:42 -0700
User-agent: KMail/1.9.1

just wanted to let you know that the rpws which ships with ratpoison-1.4.0 
ends up creating an extra, unusable group. the fix is so simple I'm just 
gonna paste the diff:

<     my $i;
<     for( my $i = 0; $i < $num; $i++ )
>     for( my $i = 1; $i <= $num; $i++ )

to test this, set up rpws, then list all the ratpoison groups, you'll see what 
I mean.

hope this hasn't already been spotted.

I noticed because I have a dirty little script which lists all windows in all 

#!/usr/bin/perl -w

$rp = 'ratpoison';

@groups = `$rp -c groups`;
chomp @groups;
$curgroup = ( grep( /^\d+\*.*/, @groups ) )[0];
$curgroup =~ m/^(\d+)(?:-|\*).*/;
$curgroup = $1;

foreach $group (@groups)
  $group =~ m/^(\d+)(?:-|\*).*/;
  $num = $1;
  system( "$rp -c 'gselect $num'" );
  @windows = `$rp -c windows`;
  print $group, "\n";
  foreach $win (@windows)
    print "\t$win";
system( "$rp -c 'gselect $curgroup'" );

reply via email to

[Prev in Thread] Current Thread [Next in Thread]