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

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

Diff Legend

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