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

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

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines