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

Comparing CV/bin/cv (file contents):
Revision 1.2 by root, Mon Nov 3 00:04:22 2003 UTC vs.
Revision 1.56 by root, Mon Aug 22 03:33:33 2005 UTC

1#!/opt/bin/perl 1#!/opt/bin/perl
2
3use Cwd ();
4use Encode ();
2 5
3use Gtk2 -init; 6use Gtk2 -init;
4use Gtk2::Gdk::Keysyms; 7use Gtk2::Gdk::Keysyms;
5 8
9use Gtk2::CV;
10
6use Gtk2::CV::ImageWindow; 11use Gtk2::CV::ImageWindow;
7use Gtk2::CV::Schnauzer; 12use Gtk2::CV::Schnauzer;
8 13
9$VERSION = 0.1; 14BEGIN {
15 require Gtk2::CV::Plugin;
16 require "$ENV{HOME}/.cvrc" if -r "$ENV{HOME}/.cvrc";
17}
10 18
19use Gtk2::CV::Plugin::NameCluster;
20use Gtk2::CV::Plugin::RCluster;
21
22Gtk2::Rc->parse (Gtk2::CV::find_rcfile "gtkrc");
23
24use File::Spec;
25
26my $mainwin;
11my $viewer; 27my $viewer;
28my $schnauzer;
29my $info;
30my $help;
12 31
13package cluster; 32my $schnauzer_idx = 0;
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 33
98sub new_schnauzer { 34sub new_schnauzer {
99 my $w = new Gtk2::Window;
100 $w->add (my $s = new Gtk2::CV::Schnauzer); 35 my $s = new Gtk2::CV::Schnauzer;
101 36
37 $s->signal_connect_after (key_press_event => \&std_keys);
102 $s->signal_connect (activate => sub { 38 $s->signal_connect (activate => sub {
39 my $label = sprintf "%s (%d)",
40 (File::Spec->splitpath ($_[1]))[2],
41 -s $_[1];
42 $info->set_label ($label);
103 $viewer->load_image ($_[1]); 43 $viewer->load_image ($_[1]);
104 }); 44 });
105 $s->set_dir ("/root/pix"); 45
46 Gtk2::CV::Plugin->call (new_schnauzer => $s);
47
48 $s
49}
50
51sub std_keys {
52 my $key = $_[1]->keyval;
53 my $state = $_[1]->state;
54
55 my $ctrl = $state * "control-mask";
56
57 if ($key == $Gtk2::Gdk::Keysyms{q}) {
58 main_quit Gtk2;
59 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) {
60 my $w = new Gtk2::Window;
61
62 $w->set_title ("CV: Schnauzer");
63 $w->add (my $s = new_schnauzer);
64 $s->set_dir (File::Spec->curdir);
65 $s->set_geometry_hints;
106 $w->show_all; 66 $w->show_all;
107 67
108 $w; 68 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{h}) {
109} 69 unless ($help) {
70 require Gtk2::PodViewer;
110 71
72 $help = new Gtk2::Window;
73 $help->set_title ("CV: Help");
74 $help->set_default_size (500, 300);
75 $help->signal_connect (delete_event => sub { $help->hide; 1 });
76
77 $help->add (my $sw = new Gtk2::ScrolledWindow);
78 $sw->add (my $h = new Gtk2::PodViewer);
79
80 #binmode DATA, ":utf8";
81 $h->load_string (do { local $/; <DATA> });
82 }
83
84 $help->show_all;
85 } else {
86 return 0;
87 }
88
89 1
90}
91
92{
111$viewer = new Gtk2::CV::ImageWindow; 93 $viewer = new Gtk2::CV::ImageWindow;
94
95 $viewer->set_title ("CV: Image");
96
97 $viewer->signal_connect (key_press_event => sub {
98 &std_keys
99 or $schnauzer->signal_emit (key_press_event => $_[1])
100 });
101 $viewer->signal_connect (delete_event => sub { main_quit Gtk2 });
102
103 $viewer->signal_connect (button3_press_event => sub {
104 $mainwin->visible
105 ? $mainwin->hide
106 : $mainwin->show_all;
107 1
108 });
109
110 Gtk2::CV::Plugin->call (new_imagewindow => $viewer);
111
112 $schnauzer = new_schnauzer;
113
114 $mainwin = new Gtk2::Window;
115 $mainwin->set_title ("CV");
116 $mainwin->add (my $vbox = new Gtk2::VBox);
117 $mainwin->signal_connect (delete_event => sub { $mainwin->hide; 1 });
118
119 $vbox->add ($schnauzer);
120 $vbox->pack_end (my $frame = new Gtk2::Frame, 0, 0, 0);
121 $frame->add (my $hbox = new Gtk2::HBox 0, 0);
122 $hbox->pack_start ((new Gtk2::Label "Info: "), 0, 0, 0);
123 $hbox->pack_end (my $labelwindow = new Gtk2::EventBox, 1, 1, 0);
124 $labelwindow->add ($info = new Gtk2::Label);
125 $labelwindow->signal_connect_after (size_request => sub { $_[1]->width (0); 0 });
126 $info->set (selectable => 1, xalign => 0, justify => "left");
127
128 $schnauzer->set_geometry_hints;
129}
130
131if (@ARGV) {
132 @ARGV == 1 && -d $ARGV[0]
133 ? $schnauzer->set_dir (Glib::filename_to_unicode shift)
134 : $schnauzer->set_paths ([map Glib::filename_to_unicode $_, @ARGV]);
135 $schnauzer->show_all;
136 $schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []);
137} else {
138 $schnauzer->set_dir (File::Spec->curdir);
139 $mainwin->show_all;
140}
112 141
113$viewer->show_all; 142$viewer->show_all;
114 143
115my $cluster = new cluster;
116
117new_schnauzer;
118
119#$cluster->analyse ("/fs/samsung/store-anime-done");
120#$cluster->show_all;
121
122#$viewer->set (path => "/fs/samsung/store-anime-done/yuumi_kazuaki_-_love_to_hajieki_to_sayonara_to_-_150.jpg");
123#$viewer->set (path => "/root/pix/kvvz.jpg");
124
125main Gtk2; 144main Gtk2;
126 145
146__DATA__
127 147
148=head1 NAME
149
150cv - a fast gtk+ image viewer loosely modeled after XV
151
152=head1 SYNOPSIS
153
154 cv [file...]
155
156=head1 FEATURES
157
158CV is supposed to work similar to the venerable XV image viewer, just
159faster. Why faster?
160
161=over 4
162
163=item * optimized directory scanning algorithm
164
165The directory scanning in CV uses some tricks that - on most modern
166filesystems - makes it possible to detect filetypes faster than stat()'ing
167every file. This makes CV suitable for directories with lots of files
168(10000+).
169
170This algorithm is quite unprecise - it doesn't make a difference between
171files, device nodes, symlinks and the like, and filetype detection is done
172using the file extension only.
173
174On the positive side, it is usually many orders of magnitude faster than
175traditional scanning techniques (good for directories with 10000 or
176100000+ files).
177
178=item * queuing for all time-consuming background tasks
179
180All tasks, such as unlinking files or generating thumbnails, that can be
181done in the background will be done so - no waiting required, even when
182changing directories.
183
184=item * use of asynchronous I/O
185
186CV tries to use asynchronous I/O whereever it makes sense, for example
187while scanning directories, waiting for stat data, unlinking files or
188generating thumbnails. This usually decreases scanning times for large
189directories a bit (especially on RAID devices and over NFS) and makes CV
190much more interactive.
191
192=item * fast image loading
193
194The time span between the user issuing a command and displaying the new
195image should be as small as possible. CV uses optimized (especially
196for JPEG) loading functions and sacrifices some quality (e.g no gamma
197correction, although this might change) to achieve this speed.
198
199=item * fast thumbnail creation
200
201Thumbnail creation uses both CPU and Disk-I/O. CV interleaves both, so
202on modern CPUs, thumbnailing is usually limited by I/O speed. Thumbnail
203creation for JPEGs has been specially optimized and can even take
204advantage of multiple CPUs.
205
206=item * minimum optical clutter
207
208CV has no menus or other user interface elements that take up a lot of
209screen space (or are useful for beginning users). The schnauzer windows
210can also be somewhat crowded.
211
212The point of an image viewer is viewing images, not a nice GUI. This is
213similar to XV's behaviour.
214
215=item * efficient (and hard to learn) user interface
216
217CV uses key combinations. A lot. If you are an experienced XV user, you
218will find most of these keys familiar. If not, CV might be hard to use at
219first, but will be an efficient tool later.
220
221=item * multi-window GUI
222
223CV doesn't force you to use a specific layout, instead it relies on your
224window manager, thus enabling you to chose whatever layout that suits you
225most.
226
227=item * i18n'ed filename handling throughout
228
229As long as glib can recognize your filename encoding (either UTF-8 or
230locale-specific, depending on the setting of G_BROKEN_FILENAMES) and you
231have the relevant fonts, CV will display your filenames correctly.
232
233=item * extensible through plug-ins
234
235I have weird plug-ins that access remote databases to find a
236directory. This is not likely to be of any use to other people. Likewise,
237others might have weird requirements I cannot dream of.
238
239=item * filename clustering
240
241Among the standard plug-ins is a filename clustering plug-in, that (in
242case of tens of thousands images in one directory) might be able to
243cluster similar names together.
244
245=back
246
247=head1 DESCRIPTION
248
249=head2 THE IMAGE WINDOW
250
251You can use the following keys in the image window:
252
253 q quit the program
254 < half the image size
255 > double the image size
256 , shrink the image by 10%
257 . enlarge the image by 10%
258 n reset to normal size
259 m maximize to screensize
260 M maximize to screensize, respecting image aspect
261 ctrl-m toggle maxpect-always mode
262 u uncrop
263 r set scaling mode to 'nearest' (fastest)
264 s set scaling mode to 'bilinear' (default)
265 shift-s set scaling mode to 'hyper' (slowest)
266 t rotate clockwise 90°
267 T rotate counterclockwise°
268 ctrl-v open a new visual schnauzer window for the current dir
269 ctrl-e run an editor ($CV_EDITOR or "gimp") on the current image
270 ctrl-p fire up the print fialog
271 escape cancel a crop action
272
273And when playing movies, these additional keys are active:
274
275 left rewind by 10 seconds
276 right forward by 10 seconds
277 down rewind by 60 seconds
278 up forward by 60 seconds
279 pg_up rewind by 600 seconds
280 pg_down forward by 600 seconds
281 o toggle on-screen display
282 p pause/unpause
283 escape stop playing
284 9 turn volume down
285 0 turn volume up
286
287Any other keys will be sent to the default schnauzer window, which can be
288toggled on and off by right-clicking into the image window.
289
290Left-clicking into the image window will let you crop the image (usually
291to zoom into large images that CV scales down).
292
293=head2 THE VISUAL SCHNAUZER
294
295You can use the following keys in the schnauzer window:
296
297 ctrl-space,
298 space move to and display next image
299 ctrl-backspace,
300 backspace move to and display previous image
301 ctrl-return,
302 return display selected picture, or enter directory
303
304 cursor keys move selection
305 page-up move one page up
306 page-down move one page down
307 home move to first file
308 end move to last file
309
310 ctrl-a select all files
311 ctrl-shift-a select all files currently displayed in the schnauzer window
312 ctrl-d delete selected files WITHOUT ASKING AGAIN
313 ctrl-g force generation of thumbnais for the selected files
314 ctrl-s rescan current direcory or files updates/deletes etc.
315 ctrl-u update selected (or all) icons if neccessary
316 ctrl-l don't use, will become a plug-in eventually
317
318 ^ go to parent directory (caret).
319
320 0-9,
321 a-z find the first filename beginning with this letter
322
323Right-clicking into the schnauzer window displays a pop-up menu with
324additional actions.
325
326=head1 FILES
327
328When starting, CV runs the F<.cvrc> file in your F<$HOME> directory as if
329it were a perl script. in that, you will mostly load plug-ins.
330
331Example:
332
333 system "fping -q -t 10 ether"
334 or require "/fs/cv/cvplugin.pl";
335
336This will load a plug-in, but only if the machine I<ether> is reachable
337(supposedly the plug-in is networked in some way :).
338
339=head1 ENVIRONMENT
340
341=over 4
342
343=item CV_EDITOR
344
345The program that gets executed when the user presses C<CTRL-e> in the
346Schnauzer or image window. The default is C<gimp>.
347
348=item CV_PRINT_DESTINATION
349
350The default (perl-style) destination to use in the print dialog.
351
352=item CV_TRASHCAN
353
354When set, must point to a directory where all files that are deleted are
355moved to. If unset, files that are deleted are really being deleted.
356
357=back
358
359=head1 SECURITY CONSIDERATIONS
360
361CV uses Pixbuf to load non-JPEG images. Pixbuf is not considered safe for
362this purpose, though (from the gtk-2.2 release notes):
363
364"While efforts have been made to make gdk-pixbuf robust against invalid
365images, using gdk-pixbuf to load untrusted data is not recommended, due to
366the likelyhood that there are additional problems where an invalid image
367could cause gdk-pixbuf to crash or worse."
368
369=head1 BUGS/TODO
370
371 Lots of functionality is missing.
372
373 Pixbuf doesn't always honor G_BROKEN_FILENAMES, so accessing files with
374 names incompatible with utf-8 might fail.
375
376 rotate on disk
377 lots of ui issues
378 save(?)
379 preferences
380
381=head1 AUTHOR
382
383Marc Lehmann <cv@plan9.de>.
384
385=cut
386

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines