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

Comparing CV/bin/cv (file contents):
Revision 1.51 by root, Sun Aug 14 02:25:44 2005 UTC vs.
Revision 1.71 by root, Thu Oct 4 10:30:12 2007 UTC

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

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines