ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/CV/bin/cv
Revision: 1.61
Committed: Sat Sep 24 00:51:28 2005 UTC (18 years, 9 months ago) by root
Branch: MAIN
Changes since 1.60: +8 -4 lines
Log Message:
*** empty log message ***

File Contents

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