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

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

Diff Legend

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