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

Comparing CV/bin/cv (file contents):
Revision 1.27 by root, Wed Nov 12 23:58:01 2003 UTC vs.
Revision 1.74 by root, Sat Mar 1 02:33:04 2008 UTC

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

Diff Legend

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