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

Comparing CV/bin/cv (file contents):
Revision 1.25 by root, Wed Nov 12 19:36:06 2003 UTC vs.
Revision 1.51 by root, Sun Aug 14 02:25:44 2005 UTC

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

Diff Legend

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