ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/CV/bin/cv
(Generate patch)

Comparing CV/bin/cv (file contents):
Revision 1.7 by root, Mon Nov 3 16:28:38 2003 UTC vs.
Revision 1.17 by root, Fri Nov 7 03:07:01 2003 UTC

… …
4use Gtk2::Gdk::Keysyms; 4use Gtk2::Gdk::Keysyms;
5 5
6use Gtk2::CV::ImageWindow; 6use Gtk2::CV::ImageWindow;
7use Gtk2::CV::Schnauzer; 7use Gtk2::CV::Schnauzer;
8 8
9$VERSION = 0.1; 9use Gtk2::CV;
10
11Gtk2::Rc->parse (Gtk2::CV::find_rcfile "gtkrc");
10 12
11my $viewer; 13my $viewer;
12 14my $schnauzer;
13package cluster;
14
15use Glib::Object::Subclass Gtk2::Window;
16
17use Gtk2::SimpleList;
18
19sub INIT_INSTANCE {
20 my ($self) = @_;
21
22 $self->set_default_size (600, 400);
23
24 my $vbox = new Gtk2::VBox;
25 $self->add ($vbox);
26
27 my $box = new Gtk2::HBox;
28 $vbox->add ($box);
29 $box->add (my $sw = new Gtk2::ScrolledWindow);
30 $sw->add (
31 $self->{list} = new Gtk2::SimpleList
32 "#" => "int",
33 "Name" => "text",
34 );
35
36 $box->add ($self->{schnauzer} = new Gtk2::CV::Schnauzer);
37
38 $self->{schnauzer}->signal_connect (activate => sub { $viewer->load_image ($_[1]) });
39
40 $self->{list}->get_column(0)->set_sort_column_id(0);
41 $self->{list}->get_column(1)->set_sort_column_id(1);
42
43 $self->{list}->signal_connect (cursor_changed => sub {
44 my $row = scalar +($_[0]->get_selection->get_selected_rows)[0]->get_indices;
45
46 my $k = $_[0]{data}[$row][1];
47 $k = $self->{cluster}{$k};
48
49 $self->{schnauzer}->set_files (
50 [sort map "$self->{path}/$_", @{$k->[1]}],
51 );
52
53 1;
54
55 });
56}
57
58sub analyse {
59 my ($self, $path) = @_;
60
61 opendir my $dir, $path
62 or die "$path: $!";
63
64 $self->{path} = $path;
65
66 my @files = map {
67 my $str = $_;
68 $str =~ s/[\-_ ]+/ /g;
69 $str =~ s/\.[^\.]+//g;
70 [$str, $_]
71 }
72 grep !/\.(sfv|crc|par|par2)$/, readdir $dir;
73
74 my %cluster;
75
76 my @regexps = (
77 [qr<\d+$>, qr<^(.+?)\ *(\d+)$>],
78 [qr<\ \d+$>, qr<^(.+?)(\d+)\ +(\d+)$>],
79 );
80
81 for my $info (@regexps) {
82 my $re = $info->[0];
83 for (@files) {
84 if ($_->[0] =~ $re && $_->[0] =~ $info->[1]) {
85 push @{ ($cluster{$1} ||= [ $info, []])->[1] }, $_->[1];
86 }
87 }
88 }
89
90 $self->{cluster} = \%cluster;
91
92 while (my ($k, $v) = each %cluster) {
93 my $n = scalar @{$v->[1]};
94 push @{$self->{list}{data}}, [$n, $k] if $n > 2;
95 }
96}
97
98package main;
99 15
100sub new_schnauzer { 16sub new_schnauzer {
101 my $w = new Gtk2::Window; 17 my $w = new Gtk2::Window;
102 $w->add (my $s = new Gtk2::CV::Schnauzer); 18 $w->add (my $s = new Gtk2::CV::Schnauzer);
103 19
104 $s->signal_connect (activate => sub { $viewer->load_image ($_[1]) }); 20 $s->signal_connect (activate => sub { $viewer->load_image ($_[1]) });
105 $s->signal_connect (key_press_event => \&std_keys); 21 $s->signal_connect_after (key_press_event => \&std_keys);
106 22
107 $s->set_dir ("."); 23 $s;
108 $w->show_all; 24}
109 25
110 $w; 26$schnauzer = new_schnauzer;
111} 27
28my $mainwin = $schnauzer->get_toplevel;
112 29
113sub std_keys { 30sub std_keys {
114 my $key = $_[1]->keyval; 31 my $key = $_[1]->keyval;
32 my $state = $_[1]->state;
115 33
116 my $ctrl = grep $_ eq "control-mask", @{$_[1]->state}; 34 my $ctrl = grep $_ eq "control-mask", @$state;
117 35
118 if ($key == $Gtk2::Gdk::Keysyms{q}) { 36 if ($key == $Gtk2::Gdk::Keysyms{q}) {
119 main_quit Gtk2; 37 main_quit Gtk2;
120 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) { 38 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) {
121 new_schnauzer; 39 my $s = new_schnauzer;
40 $s->set_dir (".");
41 $s->get_toplevel->show_all
122 } else { 42 } else {
123 return 0; 43 $mainwin->show_all;
44 $schnauzer->handle_key ($key, $state);
124 } 45 }
125 46
126 1; 47 1;
127} 48}
128 49
129$viewer = new Gtk2::CV::ImageWindow; 50$viewer = new Gtk2::CV::ImageWindow;
51
52$viewer->set_title ("CV");
53
130$viewer->signal_connect (key_press_event => \&std_keys); 54$viewer->signal_connect (key_press_event => \&std_keys);
131$viewer->signal_connect (delete_event => sub { main_quit Gtk2 }); 55$viewer->signal_connect (delete_event => sub { main_quit Gtk2 });
56
57$viewer->signal_connect (button3_press_event => sub {
58 $mainwin->visible
59 ? $mainwin->hide
60 : $mainwin->show_all;
61});
62
63if (@ARGV) {
64 $viewer->load_image ($ARGV[0]);
65
66 if (@ARGV > 1) {
67 $schnauzer->set_paths (\@ARGV);
68 }
69} else {
70 $schnauzer->set_dir (".");
71}
72
132$viewer->show_all; 73$viewer->show_all;
133
134my $cluster = new cluster;
135
136#$cluster->analyse ("/fs/samsung/store-anime-done");
137#$cluster->show_all;
138
139#$viewer->set (path => "/fs/samsung/store-anime-done/yuumi_kazuaki_-_love_to_hajieki_to_sayonara_to_-_150.jpg");
140#$viewer->set (path => "/root/pix/kvvz.jpg");
141 74
142main Gtk2; 75main Gtk2;
143 76
77=head1 NAME
144 78
79cv - a fast gtk+ image viewer modeled after xv
80
81=head1 SYNOPSIS
82
83 cv [file...]
84
85=head1 DESCRIPTION
86
87None yet.
88
89=head2 THE IMAGE WINDOW
90
91You can use the following keys in the image window:
92
93 q quit the program
94 < half the image size
95 > double the image size
96 , shrink the image by 10%
97 . enlarge the image by 10%
98 n reset to normal size
99 m maximize to screensize
100 M maxime to screensize, respecting image aspect
101 u uncrop
102 r set scaling mode to 'nearest' (fastest)
103 s set scaling mode to 'bilinear' (default)
104 S set scaling mode to 'hyper' (slowest)
105 t rotate clockwise 90°
106 T rotate counterclockwise°
107 ctrl-v open a new visual schnauzer window for the current dir
108
109The following keys are redirected to the default visual schnauzer window:
110
111 space next image
112 backspace last image
113
114=head2 THE VISUAL SCHNAUZER
115
116You can use the following keys in the schnauzer window:
117
118 space move to and display next image
119 backspace move to and display previous image
120 return display selected picture
121
122 cursor keys move selection
123 page-up move one page up
124 page-down move one page down
125 home move to first file
126 end move to last file
127
128 ctrl-g generate icons for the selected files
129 ctrl-d delete selected files WITHOUT ASKING AGAIN
130
131=head1 BUGS/TODO
132
133 rotate on disk
134 print
135 lots of ui issues
136 save(?)
137 preferences
138 ctrl-u in schnauzer
139 shift-cursor in schnauzer
140
141=head1 AUTHOR
142
143Marc Lehmann <cv@plan9.de>.
144
145=cut
146

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines