#!/usr/bin/perl

my @windows = `wmctrl -l | cut -d ' ' -f1`;
my @desktops = `wmctrl -l | cut -d ' ' -f3`;

my $j_atual = `xprop -root | grep "_NET_ACTIVE_WINDOW(WINDOW)" | cut -d ' ' -f5`;
my $d_atual = `xprop -root | grep "_NET_CURRENT_DESKTOP(CARDINAL)" | cut -d ' ' -f3`;

$j_num = @windows;
$ind = "0";
$g_to = @windows[$ind];

print "Names:\n";
print "@windows";

print "$ind\n";
print "Numero De Janelas = $j_num\n";
print "Janela Atual = $j_atual\n";
print "Desktop Atual = $d_atual\n";
print "Indo Para = $g_to\n";

if ( $j_atual eq $goingto )
{
    print "le\n";
    $ind = ++$ind;
    $g_to = @windows[$ind];
    print "Indo Para $g_to\n";
    system("xdotool windowactivate $g_to");
    exit;
}

else
{
    print "ne\n";
    print "Indo Para $g_to\n";
    system("xdotool windowactivate $g_to");
    exit;
}