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

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

Diff Legend

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