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

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

Diff Legend

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