ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/CV/bin/cv
Revision: 1.56
Committed: Mon Aug 22 03:33:33 2005 UTC (18 years, 10 months ago) by root
Branch: MAIN
Changes since 1.55: +2 -0 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.11 =head1 NAME
149    
150 root 1.47 cv - a fast gtk+ image viewer loosely modeled after XV
151 root 1.11
152     =head1 SYNOPSIS
153    
154     cv [file...]
155    
156 root 1.47 =head1 FEATURES
157    
158     CV is supposed to work similar to the venerable XV image viewer, just
159     faster. Why faster?
160    
161     =over 4
162    
163     =item * optimized directory scanning algorithm
164    
165 root 1.55 The directory scanning in CV uses some tricks that - on most modern
166 root 1.47 filesystems - makes it possible to detect filetypes faster than stat()'ing
167     every file. This makes CV suitable for directories with lots of files
168     (10000+).
169    
170     This algorithm is quite unprecise - it doesn't make a difference between
171     files, device nodes, symlinks and the like, and filetype detection is done
172     using the file extension only.
173    
174 root 1.55 On the positive side, it is usually many orders of magnitude faster than
175     traditional scanning techniques (good for directories with 10000 or
176     100000+ files).
177    
178 root 1.53 =item * queuing for all time-consuming background tasks
179    
180     All tasks, such as unlinking files or generating thumbnails, that can be
181     done in the background will be done so - no waiting required, even when
182     changing directories.
183    
184 root 1.47 =item * use of asynchronous I/O
185    
186     CV tries to use asynchronous I/O whereever it makes sense, for example
187 root 1.53 while scanning directories, waiting for stat data, unlinking files or
188     generating thumbnails. This usually decreases scanning times for large
189     directories a bit (especially on RAID devices and over NFS) and makes CV
190     much more interactive.
191 root 1.47
192     =item * fast image loading
193    
194     The time span between the user issuing a command and displaying the new
195     image should be as small as possible. CV uses optimized (especially
196     for JPEG) loading functions and sacrifices some quality (e.g no gamma
197 root 1.55 correction, although this might change) to achieve this speed.
198 root 1.47
199     =item * fast thumbnail creation
200    
201 root 1.55 Thumbnail creation uses both CPU and Disk-I/O. CV interleaves both, so
202     on modern CPUs, thumbnailing is usually limited by I/O speed. Thumbnail
203     creation for JPEGs has been specially optimized and can even take
204     advantage of multiple CPUs.
205 root 1.47
206     =item * minimum optical clutter
207    
208     CV has no menus or other user interface elements that take up a lot of
209 root 1.55 screen space (or are useful for beginning users). The schnauzer windows
210     can also be somewhat crowded.
211 root 1.47
212     The point of an image viewer is viewing images, not a nice GUI. This is
213     similar to XV's behaviour.
214    
215     =item * efficient (and hard to learn) user interface
216    
217     CV uses key combinations. A lot. If you are an experienced XV user, you
218     will find most of these keys familiar. If not, CV might be hard to use at
219     first, but will be an efficient tool later.
220    
221 root 1.55 =item * multi-window GUI
222    
223     CV doesn't force you to use a specific layout, instead it relies on your
224     window manager, thus enabling you to chose whatever layout that suits you
225     most.
226    
227 root 1.47 =item * i18n'ed filename handling throughout
228    
229     As long as glib can recognize your filename encoding (either UTF-8 or
230 root 1.55 locale-specific, depending on the setting of G_BROKEN_FILENAMES) and you
231     have the relevant fonts, CV will display your filenames correctly.
232 root 1.47
233     =item * extensible through plug-ins
234    
235     I have weird plug-ins that access remote databases to find a
236     directory. This is not likely to be of any use to other people. Likewise,
237     others might have weird requirements I cannot dream of.
238    
239     =item * filename clustering
240    
241     Among the standard plug-ins is a filename clustering plug-in, that (in
242     case of tens of thousands images in one directory) might be able to
243     cluster similar names together.
244    
245     =back
246    
247 root 1.11 =head1 DESCRIPTION
248    
249     =head2 THE IMAGE WINDOW
250    
251     You can use the following keys in the image window:
252    
253 root 1.50 q quit the program
254     < half the image size
255     > double the image size
256     , shrink the image by 10%
257     . enlarge the image by 10%
258     n reset to normal size
259     m maximize to screensize
260     M maximize to screensize, respecting image aspect
261     ctrl-m toggle maxpect-always mode
262     u uncrop
263     r set scaling mode to 'nearest' (fastest)
264     s set scaling mode to 'bilinear' (default)
265     shift-s set scaling mode to 'hyper' (slowest)
266     t rotate clockwise 90°
267     T rotate counterclockwise°
268     ctrl-v open a new visual schnauzer window for the current dir
269     ctrl-e run an editor ($CV_EDITOR or "gimp") on the current image
270     ctrl-p fire up the print fialog
271     escape cancel a crop action
272 root 1.11
273 root 1.33 And when playing movies, these additional keys are active:
274    
275 root 1.50 left rewind by 10 seconds
276     right forward by 10 seconds
277     down rewind by 60 seconds
278     up forward by 60 seconds
279     pg_up rewind by 600 seconds
280     pg_down forward by 600 seconds
281     o toggle on-screen display
282     p pause/unpause
283     escape stop playing
284     9 turn volume down
285     0 turn volume up
286 root 1.33
287 root 1.47 Any other keys will be sent to the default schnauzer window, which can be
288     toggled on and off by right-clicking into the image window.
289 root 1.11
290 root 1.47 Left-clicking into the image window will let you crop the image (usually
291     to zoom into large images that CV scales down).
292 root 1.11
293     =head2 THE VISUAL SCHNAUZER
294    
295     You can use the following keys in the schnauzer window:
296    
297 root 1.47 ctrl-space,
298 root 1.50 space move to and display next image
299 root 1.47 ctrl-backspace,
300 root 1.50 backspace move to and display previous image
301 root 1.47 ctrl-return,
302 root 1.50 return display selected picture, or enter directory
303 root 1.11
304 root 1.50 cursor keys move selection
305     page-up move one page up
306     page-down move one page down
307     home move to first file
308     end move to last file
309    
310     ctrl-a select all files
311     ctrl-shift-a select all files currently displayed in the schnauzer window
312     ctrl-d delete selected files WITHOUT ASKING AGAIN
313     ctrl-g force generation of thumbnais for the selected files
314     ctrl-s rescan current direcory or files updates/deletes etc.
315     ctrl-u update selected (or all) icons if neccessary
316     ctrl-l don't use, will become a plug-in eventually
317 root 1.47
318 root 1.56 ^ go to parent directory (caret).
319    
320 root 1.47 0-9,
321 root 1.50 a-z find the first filename beginning with this letter
322 root 1.47
323     Right-clicking into the schnauzer window displays a pop-up menu with
324     additional actions.
325    
326     =head1 FILES
327    
328     When starting, CV runs the F<.cvrc> file in your F<$HOME> directory as if
329     it were a perl script. in that, you will mostly load plug-ins.
330    
331     Example:
332    
333     system "fping -q -t 10 ether"
334     or require "/fs/cv/cvplugin.pl";
335    
336     This will load a plug-in, but only if the machine I<ether> is reachable
337     (supposedly the plug-in is networked in some way :).
338 root 1.11
339 root 1.27 =head1 ENVIRONMENT
340    
341     =over 4
342    
343 root 1.38 =item CV_EDITOR
344    
345     The program that gets executed when the user presses C<CTRL-e> in the
346     Schnauzer or image window. The default is C<gimp>.
347    
348 root 1.27 =item CV_PRINT_DESTINATION
349    
350     The default (perl-style) destination to use in the print dialog.
351    
352 root 1.38 =item CV_TRASHCAN
353    
354     When set, must point to a directory where all files that are deleted are
355     moved to. If unset, files that are deleted are really being deleted.
356    
357 root 1.27 =back
358    
359 root 1.23 =head1 SECURITY CONSIDERATIONS
360    
361 root 1.54 CV uses Pixbuf to load non-JPEG images. Pixbuf is not considered safe for
362     this purpose, though (from the gtk-2.2 release notes):
363 root 1.23
364     "While efforts have been made to make gdk-pixbuf robust against invalid
365     images, using gdk-pixbuf to load untrusted data is not recommended, due to
366     the likelyhood that there are additional problems where an invalid image
367     could cause gdk-pixbuf to crash or worse."
368    
369 root 1.11 =head1 BUGS/TODO
370 root 1.23
371 root 1.47 Lots of functionality is missing.
372    
373     Pixbuf doesn't always honor G_BROKEN_FILENAMES, so accessing files with
374 root 1.54 names incompatible with utf-8 might fail.
375 root 1.11
376     rotate on disk
377     lots of ui issues
378     save(?)
379     preferences
380    
381     =head1 AUTHOR
382    
383     Marc Lehmann <cv@plan9.de>.
384    
385     =cut
386 root 1.1