#!/opt/bin/perl

use Gtk2;
use Gtk2::Gdk::Keysyms;

use Gtk2::CV::ImageWindow;

$VERSION = 0.1;

my $viewer;

package schnauzer;

use Glib::Object::Subclass Gtk2::Frame;

sub INIT_INSTANCE {
   my ($self) = @_;

   $self->add (
      $self->{list} = new Gtk2::SimpleList "Name" => "text"
   );

   $self->{list}->signal_connect (cursor_changed => sub {
      my $row = scalar +($_[0]->get_selection->get_selected_rows)[0]->get_indices;
      $viewer->load_image ($self->{files}[$row]);
   });
}

sub set_files {
   my ($self, $files) = @_;

   $self->{files} = $files;

   @{$self->{list}{data}} = ();

   my ($dir, $file);

   for (@$files) {
      if (/^(.*)\/([^\/]*)$/s) {
         ($dir, $file) = ($1, $2);
      } else {
         ($dir, $file) = (".", $_);
      }

      if (0) {
         if ($file eq "." or $file eq "..") {
         } elsif (-f "$dir/.xvpics/$file") {
            print new_from_file Gtk2::Gdk::Pixbuf "$dir/.xvpics/$file";
         } else {
         }
      }

      push @{$self->{list}{data}}, [$file];
   }
}

sub set_dir {
   my ($self, $dir) = @_;

   my @files;

   opendir my $fh, $dir
      or die "$dir: $!";

   $self->set_files ([map "$dir/$_", readdir $fh]);
}

package cluster;

use Glib::Object::Subclass Gtk2::Window;

use Gtk2::SimpleList;

sub INIT_INSTANCE {
   my ($self) = @_;
   
   $self->set_default_size (600, 400);

   my $vbox = new Gtk2::VBox;
   $self->add ($vbox);

   my $box = new Gtk2::HBox;
   $vbox->add ($box);
   $box->add (my $sw = new Gtk2::ScrolledWindow);
   $sw->add (
      $self->{list} = new Gtk2::SimpleList
         "#"    => "int",
         "Name" => "text",
   );

   $self->{schnauzer} = new schnauzer;
   $box->add (my $sw = new Gtk2::ScrolledWindow);
   $sw->add_with_viewport ($self->{schnauzer} = new schnauzer);

   $self->{list}->get_column(0)->set_sort_column_id(0);
   $self->{list}->get_column(1)->set_sort_column_id(1);

   $self->{list}->signal_connect (cursor_changed => sub {
      my $row = scalar +($_[0]->get_selection->get_selected_rows)[0]->get_indices;

      my $k = $_[0]{data}[$row][1];
      $k = $self->{cluster}{$k};

      $self->{schnauzer}->set_files (
         [sort map "$self->{path}/$_", @{$k->[1]}],
      );

      1;

   });
}

sub analyse {
   my ($self, $path) = @_;

   opendir my $dir, $path
      or die "$path: $!";

   $self->{path} = $path;

   my @files = map {
                     my $str = $_;
                     $str =~ s/[\-_ ]+/ /g;
                     $str =~ s/\.[^\.]+//g;
                     [$str, $_]
                   }
                   grep !/\.(sfv|crc|par|par2)$/, readdir $dir;

   my %cluster;

   my @regexps = (
      [qr<\d+$>, qr<^(.+?)\ *(\d+)$>],
      [qr<\ \d+$>, qr<^(.+?)(\d+)\ +(\d+)$>],
   );

   for my $info (@regexps) {
      my $re = $info->[0];
      for (@files) {
         if ($_->[0] =~ $re && $_->[0] =~ $info->[1]) {
            push @{ ($cluster{$1} ||= [ $info, []])->[1] }, $_->[1];
         }
      }
   }

   $self->{cluster} = \%cluster;

   while (my ($k, $v) = each %cluster) {
      my $n = scalar @{$v->[1]};
      push @{$self->{list}{data}}, [$n, $k] if $n > 2;
   }
}

package main;

init Gtk2;

$viewer = new Gtk2::CV::ImageWindow;

$viewer->show_all;

my $cluster = new cluster;

0 and do {
   my $w = new Gtk2::Window;
   $w->add (my $s = new schnauzer);
   $s->set_dir ("/root/pix");
   $w->show_all;
};

$cluster->analyse ("/fs/samsung/store-anime-done");
$cluster->show_all;

#$viewer->set (path => "/fs/samsung/store-anime-done/yuumi_kazuaki_-_love_to_hajieki_to_sayonara_to_-_150.jpg");
#$viewer->set (path => "/root/pix/kvvz.jpg");

main Gtk2;