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

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

Diff Legend

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