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

Comparing CV/bin/cv (file contents):
Revision 1.47 by root, Wed Jul 20 09:06:37 2005 UTC vs.
Revision 1.73 by root, Thu Nov 22 08:52:57 2007 UTC

1#!/opt/bin/perl 1#!/opt/bin/perl
2 2
3use Cwd (); 3use Cwd ();
4use Encode (); 4use Encode ();
5use File::Glob ();
5 6
6use Gtk2 -init; 7use Gtk2 -init;
7use Gtk2::Gdk::Keysyms; 8use Gtk2::Gdk::Keysyms;
8 9
10use Gtk2::CV;
11
9use Gtk2::CV::ImageWindow; 12use Gtk2::CV::ImageWindow;
10use Gtk2::CV::Schnauzer; 13use Gtk2::CV::Schnauzer;
11 14
12use 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;
13 22
14Gtk2::Rc->parse (Gtk2::CV::find_rcfile "gtkrc"); 23Gtk2::Rc->parse (Gtk2::CV::find_rcfile "gtkrc");
15 24
16use File::Spec; 25use File::Spec;
17
18require Gtk2::CV::Plugin;
19require "$ENV{HOME}/.cvrc" if -r "$ENV{HOME}/.cvrc";
20 26
21my $mainwin; 27my $mainwin;
22my $viewer; 28my $viewer;
29my $viewer_count;
23my $schnauzer; 30my $schnauzer;
24my $info; 31my $info;
25my $help; 32my $help;
26 33
27my $schnauzer_idx = 0; 34my $schnauzer_idx = 0;
33 $s->signal_connect (activate => sub { 40 $s->signal_connect (activate => sub {
34 my $label = sprintf "%s (%d)", 41 my $label = sprintf "%s (%d)",
35 (File::Spec->splitpath ($_[1]))[2], 42 (File::Spec->splitpath ($_[1]))[2],
36 -s $_[1]; 43 -s $_[1];
37 $info->set_label ($label); 44 $info->set_label ($label);
38 $viewer->load_image ($_[1]); 45 $viewer->load_image ($_[1]) if $viewer; # TODO: error, or chose ANY viewer
39 }); 46 });
40 47
41 Gtk2::CV::Plugin->call (new_schnauzer => $s); 48 Gtk2::CV::Plugin->call (new_schnauzer => $s);
42 49
43 $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
44} 96}
45 97
46sub std_keys { 98sub std_keys {
47 my $key = $_[1]->keyval; 99 my $key = $_[1]->keyval;
48 my $state = $_[1]->state; 100 my $state = $_[1]->state;
49 101
50 my $ctrl = $state * "control-mask"; 102 my $ctrl = $state * "control-mask";
51 103
52 if ($key == $Gtk2::Gdk::Keysyms{q}) { 104 if ($key == $Gtk2::Gdk::Keysyms{q}) {
53 main_quit Gtk2; 105 $viewer->destroy;
54 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) { 106 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) {
55 my $w = new Gtk2::Window; 107 my $w = new Gtk2::Window;
56 108
109 $w->set_role ("schnauzer");
57 $w->set_title ("CV: Schnauzer"); 110 $w->set_title ("CV: Schnauzer");
58 $w->add (my $s = new_schnauzer); 111 $w->add (my $s = new_schnauzer);
59 $s->set_dir (File::Spec->curdir); 112 $s->set_dir (File::Spec->curdir);
60 $s->set_geometry_hints; 113 $s->set_geometry_hints;
61 $w->show_all; 114 $w->show_all;
62 115
63 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{h}) { 116 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{h}) {
64 unless ($help) { 117 unless ($help) {
65 require Gtk2::PodViewer; 118 require Gtk2::Ex::PodViewer;
66 119
67 $help = new Gtk2::Window; 120 $help = new Gtk2::Window;
121 $help->set_role ("help");
68 $help->set_title ("CV: Help"); 122 $help->set_title ("CV: Help");
69 $help->set_default_size (500, 300); 123 $help->set_default_size (500, 300);
70 $help->signal_connect (delete_event => sub { $help->hide; 1 }); 124 $help->signal_connect (delete_event => sub { $help->hide; 1 });
71 125
72 $help->add (my $sw = new Gtk2::ScrolledWindow); 126 $help->add (my $sw = new Gtk2::ScrolledWindow);
73 $sw->add (my $h = new Gtk2::PodViewer); 127 $sw->add (my $h = new Gtk2::Ex::PodViewer);
74 128
75 #binmode DATA, ":utf8"; 129 #binmode DATA, ":utf8";
76 $h->load_string (do { local $/; <DATA> }); 130 $h->load_string (do { local $/; <DATA> });
77 } 131 }
78 132
83 137
84 1 138 1
85} 139}
86 140
87{ 141{
88 $viewer = new Gtk2::CV::ImageWindow; 142 $viewer = new_viewer;
89 143 $::cur_viewer = $viewer;
90 $viewer->set_title ("CV: Image");
91
92 $viewer->signal_connect (key_press_event => sub {
93 &std_keys
94 or $schnauzer->signal_emit (key_press_event => $_[1])
95 });
96 $viewer->signal_connect (delete_event => sub { main_quit Gtk2 });
97
98 $viewer->signal_connect (button3_press_event => sub {
99 $mainwin->visible
100 ? $mainwin->hide
101 : $mainwin->show_all;
102 1;
103 });
104
105 Gtk2::CV::Plugin->call (new_imagewindow => $viewer);
106 144
107 $schnauzer = new_schnauzer; 145 $schnauzer = new_schnauzer;
108 146
109 $mainwin = new Gtk2::Window; 147 $mainwin = new Gtk2::Window;
148 $mainwin->set_role ("main");
110 $mainwin->set_title ("CV"); 149 $mainwin->set_title ("CV");
111 $mainwin->add (my $vbox = new Gtk2::VBox); 150 $mainwin->add (my $vbox = new Gtk2::VBox);
112 $mainwin->signal_connect (delete_event => sub { $mainwin->hide; 1; }); 151 $mainwin->signal_connect (delete_event => sub { $mainwin->hide; 1 });
113 152
114 $vbox->add ($schnauzer); 153 $vbox->add ($schnauzer);
115 $vbox->pack_end (my $frame = new Gtk2::Frame, 0, 0, 0); 154 $vbox->pack_end (my $frame = new Gtk2::Frame, 0, 0, 0);
116 $frame->add (my $hbox = new Gtk2::HBox 0, 0); 155 $frame->add (my $hbox = new Gtk2::HBox 0, 0);
117 $hbox->pack_start ((new Gtk2::Label "Info: "), 0, 0, 0); 156 $hbox->pack_start ((new Gtk2::Label "Info: "), 0, 0, 0);
122 161
123 $schnauzer->set_geometry_hints; 162 $schnauzer->set_geometry_hints;
124} 163}
125 164
126if (@ARGV) { 165if (@ARGV) {
127 $schnauzer->set_paths ([map Glib::filename_to_unicode $_, @ARGV]); 166 my $show_first = sub {
128 $schnauzer->show_all; 167 $schnauzer->show_all;
129$viewer->show_all;
130 $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 ([map Glib::filename_to_unicode $_, split /\x00/, <STDIN>], 1, $show_first);
175 } elsif (@ARGV == 1 && -d $ARGV[0]) {
176 $schnauzer->set_dir (Glib::filename_to_unicode 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 ([map Glib::filename_to_unicode $_, @ARGV], 1, $show_first);
183 }
131} else { 184} else {
132 $schnauzer->set_dir (File::Spec->curdir); 185 $schnauzer->set_dir (File::Spec->curdir, sub {
133 $mainwin->show_all; 186 $mainwin->show_all;
134 $viewer->show_all; 187 $viewer->show_all;
188 });
135} 189}
136
137$viewer->show_all;
138 190
139main Gtk2; 191main Gtk2;
140 192
193Gtk2::CV::flush_aio;
194
141__DATA__ 195__DATA__
196
197=encoding utf-8
142 198
143=head1 NAME 199=head1 NAME
144 200
145cv - a fast gtk+ image viewer loosely modeled after XV 201cv - a fast gtk+ image viewer loosely modeled after XV
146 202
155 211
156=over 4 212=over 4
157 213
158=item * optimized directory scanning algorithm 214=item * optimized directory scanning algorithm
159 215
160The directory scanning in CV plays some tricks that - on most modern 216The directory scanning in CV uses some tricks that - on most modern
161filesystems - makes it possible to detect filetypes faster than stat()'ing 217filesystems - makes it possible to detect filetypes faster than stat()'ing
162every file. This makes CV suitable for directories with lots of files 218every file. This makes CV suitable for directories with lots of files
163(10000+). 219(10000+).
164 220
165This algorithm is quite unprecise - it doesn't make a difference between 221This algorithm is quite unprecise - it doesn't make a difference between
166files, device nodes, symlinks and the like, and filetype detection is done 222files, device nodes, symlinks and the like, and filetype detection is done
167using the file extension only. 223using the file extension only.
168 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
169=item * use of asynchronous I/O 235=item * use of asynchronous I/O
170 236
171CV tries to use asynchronous I/O whereever it makes sense, for example 237CV tries to use asynchronous I/O whereever it makes sense, for example
172while scanning directories, waiting for stat data or unlinking files. This 238while scanning directories, waiting for stat data, unlinking files or
173usually decreases scanning times for large directories a bit (especially 239generating thumbnails. This usually decreases scanning times for large
174on RAID devices and over NFS). 240directories a bit (especially on RAID devices and over NFS) and makes CV
241much more interactive.
175 242
176=item * fast image loading 243=item * fast image loading
177 244
178The time span between the user issuing a command and displaying the new 245The time span between the user issuing a command and displaying the new
179image should be as small as possible. CV uses optimized (especially 246image should be as small as possible. CV uses optimized (especially
180for JPEG) loading functions and sacrifices some quality (e.g no gamma 247for JPEG) loading functions and sacrifices some quality (e.g no gamma
181correction) to achieve this speed. 248correction, although this might change) to achieve this speed.
182 249
183=item * fast thumbnail creation 250=item * fast thumbnail creation
184 251
185Thumbnail creation is crucial for me, so it's better be fast. Thumbnail 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
186creation for JPEGs has been specially optimized. 254creation for JPEGs has been specially optimized and can even take
255advantage of multiple CPUs.
187 256
188=item * minimum optical clutter 257=item * minimum optical clutter
189 258
190CV has no menus or other user interface elements that take up a lot of 259CV has no menus or other user interface elements that take up a lot of
191screen space. The schnauzer windows can also be somewhat crowded. 260screen space (or are useful for beginning users). The schnauzer windows
261can also be somewhat crowded.
192 262
193The point of an image viewer is viewing images, not a nice GUI. This is 263The point of an image viewer is viewing images, not a nice GUI. This is
194similar to XV's behaviour. 264similar to XV's behaviour.
195 265
196=item * efficient (and hard to learn) user interface 266=item * efficient (and hard to learn) user interface
197 267
198CV uses key combinations. A lot. If you are an experienced XV user, you 268CV uses key combinations. A lot. If you are an experienced XV user, you
199will find most of these keys familiar. If not, CV might be hard to use at 269will find most of these keys familiar. If not, CV might be hard to use at
200first, but will be an efficient tool later. 270first, but will be an efficient tool later.
201 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
202=item * i18n'ed filename handling throughout 278=item * i18n'ed filename handling throughout
203 279
204As long as glib can recognize your filename encoding (either UTF-8 or 280As long as glib can recognize your filename encoding (either UTF-8 or
205locale-specific, depending on your settings) and you have the relevant 281locale-specific, depending on the setting of G_BROKEN_FILENAMES) and you
206fonts, CV will display your filenames correctly. 282have the relevant fonts, CV will display your filenames correctly.
207 283
208=item * extensible through plug-ins 284=item * extensible through plug-ins
209 285
210I have weird plug-ins that access remote databases to find a 286I have weird plug-ins that access remote databases to find a
211directory. This is not likely to be of any use to other people. Likewise, 287directory. This is not likely to be of any use to other people. Likewise,
223 299
224=head2 THE IMAGE WINDOW 300=head2 THE IMAGE WINDOW
225 301
226You can use the following keys in the image window: 302You can use the following keys in the image window:
227 303
228 q quit the program 304 q quit the program
229 < half the image size 305 < half the image size
230 > double the image size 306 > double the image size
231 , shrink the image by 10% 307 , shrink the image by 10%
232 . enlarge the image by 10% 308 . enlarge the image by 10%
233 n reset to normal size 309 n reset to normal size
234 m maximize to screensize 310 m maximize to screensize
235 M maximize to screensize, respecting image aspect 311 M maximize to screensize, respecting image aspect
236 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
237 u uncrop 314 u uncrop
238 r set scaling mode to 'nearest' (fastest) 315 r set scaling mode to 'nearest' (fastest)
239 s set scaling mode to 'bilinear' (default) 316 s set scaling mode to 'bilinear' (default)
240 shift-s set scaling mode to 'hyper' (slowest) 317 shift-s set scaling mode to 'hyper' (slowest)
241 t rotate clockwise 90° 318 t rotate clockwise 90°
242 T rotate counterclockwise° 319 T rotate counterclockwise°
320 a apply all rotations loslessly to a jpeg file (using exiftran)
243 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
244 ctrl-e run an editor ($CV_EDITOR or "gimp") on the current image 323 ctrl-e run an editor ($CV_EDITOR or "gimp") on the current image
245 ctrl-p fire up the print fialog 324 ctrl-p fire up the print dialog
246 escape cancel a crop action 325 escape cancel a crop action
247 326
248And when playing movies, these additional keys are active: 327And when playing movies, these additional keys are active:
249 328
250 left rewind by 10 seconds 329 left rewind by 10 seconds
251 right forward by 10 seconds 330 right forward by 10 seconds
252 down rewind by 60 seconds 331 down rewind by 60 seconds
253 up forward by 60 seconds 332 up forward by 60 seconds
254 pg_up rewind by 600 seconds 333 pg_up rewind by 600 seconds
255 pg_down forward by 600 seconds 334 pg_down forward by 600 seconds
256 o toggle on-screen display 335 o toggle on-screen display
257 p pause/unpause 336 p pause/unpause
258 escape stop playing 337 escape stop playing
259 9 turn volume down 338 9 turn volume down
260 0 turn volume up 339 0 turn volume up
261 340
262Any other keys will be sent to the default schnauzer window, which can be 341Any other keys will be sent to the default schnauzer window, which can be
263toggled on and off by right-clicking into the image window. 342toggled on and off by right-clicking into the image window.
264 343
265Left-clicking into the image window will let you crop the image (usually 344Left-clicking into the image window will let you crop the image (usually
266to zoom into large images that CV scales down). 345to zoom into large images that CV scales down).
267 346
268=head2 THE VISUAL SCHNAUZER 347=head2 THE VISUAL SCHNAUZER
269 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
270You can use the following keys in the schnauzer window: 353You can use the following keys in the schnauzer window:
271 354
272 ctrl-space, 355 ctrl-space,
273 space move to and display next image 356 space move to and display next image
274 ctrl-backspace, 357 ctrl-backspace,
275 backspace move to and display previous image 358 backspace move to and display previous image
276 ctrl-return, 359 ctrl-return,
277 return display selected picture, or enter directory 360 return display selected picture, or enter directory
278 361
279 cursor keys move selection 362 cursor keys move selection
280 page-up move one page up 363 page-up move one page up
281 page-down move one page down 364 page-down move one page down
282 home move to first file 365 home move to first file
283 end move to last file 366 end move to last file
284 367
285 ctrl-a select all files 368 ctrl-a select all files
369 ctrl-shift-a select all files currently displayed in the schnauzer window
286 ctrl-d delete selected files WITHOUT ASKING AGAIN 370 ctrl-d delete selected files WITHOUT ASKING AGAIN
287 ctrl-g force generation of thumbnais for the selected files 371 ctrl-g force generation of thumbnais for the selected files
288 ctrl-s rescan current direcory or files updates/deletes etc. 372 ctrl-s rescan current direcory or files updates/deletes etc.
289 ctrl-u update selected (or all) icons if neccessary 373 ctrl-u update selected (or all) icons if neccessary
290 ctrl-l don't use, will become a plug-in eventually 374 ctrl-l don't use, will become a plug-in eventually
375
376 ^ go to parent directory (caret).
291 377
292 0-9, 378 0-9,
293 a-z find the first filename beginning with this letter 379 a-z find the first filename beginning with this letter
294 380
295Right-clicking into the schnauzer window displays a pop-up menu with 381Right-clicking into the schnauzer window displays a pop-up menu with
296additional actions. 382additional actions.
297 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
298=head1 FILES 421=head1 FILES
299 422
300When starting, CV runs the F<.cvrc> file in your F<$HOME> directory as if 423When starting, CV runs the F<.cvrc> file in your F<$HOME> directory as if
301it were a perl script. in that, you will mostly load plug-ins. 424it were a perl script. in that, you will mostly load plug-ins.
302 425
315=item CV_EDITOR 438=item CV_EDITOR
316 439
317The program that gets executed when the user presses C<CTRL-e> in the 440The program that gets executed when the user presses C<CTRL-e> in the
318Schnauzer or image window. The default is C<gimp>. 441Schnauzer or image window. The default is C<gimp>.
319 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
320=item CV_PRINT_DESTINATION 448=item CV_PRINT_DESTINATION
321 449
322The default (perl-style) destination to use in the print dialog. 450The default (perl-style) destination to use in the print dialog.
323 451
324=item CV_TRASHCAN 452=item CV_TRASHCAN
328 456
329=back 457=back
330 458
331=head1 SECURITY CONSIDERATIONS 459=head1 SECURITY CONSIDERATIONS
332 460
333CV 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
334purpose, though (from the gtk-2.2 release notes): 462this purpose, though (from the gtk-2.2 release notes):
335 463
336"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
337images, 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
338the likelyhood that there are additional problems where an invalid image 466the likelyhood that there are additional problems where an invalid image
339could cause gdk-pixbuf to crash or worse." 467could cause gdk-pixbuf to crash or worse."
341=head1 BUGS/TODO 469=head1 BUGS/TODO
342 470
343 Lots of functionality is missing. 471 Lots of functionality is missing.
344 472
345 Pixbuf doesn't always honor G_BROKEN_FILENAMES, so accessing files with 473 Pixbuf doesn't always honor G_BROKEN_FILENAMES, so accessing files with
346 names incompatible might utf-8 fail. 474 names incompatible with utf-8 might fail.
347 475
348 rotate on disk 476 rotate on disk
349 lots of ui issues 477 lots of ui issues
350 save(?) 478 save(?)
351 preferences 479 preferences
352 shift-cursor in schnauzer
353 480
354=head1 AUTHOR 481=head1 AUTHOR
355 482
356Marc Lehmann <cv@plan9.de>. 483Marc Lehmann <cv@plan9.de>.
357 484

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines