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

Comparing CV/bin/cv (file contents):
Revision 1.1 by root, Sun Nov 2 12:55:41 2003 UTC vs.
Revision 1.16 by root, Fri Nov 7 02:41:06 2003 UTC

1#!/opt/bin/perl 1#!/opt/bin/perl
2 2
3use Gtk2; 3use Gtk2 -init;
4use Gtk2::Gdk::Keysyms; 4use Gtk2::Gdk::Keysyms;
5 5
6use Gtk2::CV::ImageWindow; 6use Gtk2::CV::ImageWindow;
7use Gtk2::CV::Schnauzer;
7 8
8$VERSION = 0.1; 9use Gtk2::CV;
10
11Gtk2::Rc->parse (Gtk2::CV::find_rcfile "gtkrc");
9 12
10my $viewer; 13my $viewer;
14my $schnauzer;
11 15
12package schnauzer; 16sub new_schnauzer {
17 my $w = new Gtk2::Window;
18 $w->add (my $s = new Gtk2::CV::Schnauzer);
13 19
14use Glib::Object::Subclass Gtk2::Frame; 20 $s->signal_connect (activate => sub { $viewer->load_image ($_[1]) });
21 $s->signal_connect_after (key_press_event => \&std_keys);
15 22
16sub INIT_INSTANCE { 23 $s->set_dir (".");
17 my ($self) = @_;
18 24
19 $self->add ( 25 $s;
20 $self->{list} = new Gtk2::SimpleList "Name" => "text"
21 );
22
23 $self->{list}->signal_connect (cursor_changed => sub {
24 my $row = scalar +($_[0]->get_selection->get_selected_rows)[0]->get_indices;
25 $viewer->load_image ($self->{files}[$row]);
26 });
27} 26}
28 27
29sub set_files { 28$schnauzer = new_schnauzer;
30 my ($self, $files) = @_;
31 29
32 $self->{files} = $files; 30my $mainwin = $schnauzer->get_toplevel;
33 31
34 @{$self->{list}{data}} = (); 32sub std_keys {
33 my $key = $_[1]->keyval;
34 my $state = $_[1]->state;
35 35
36 my ($dir, $file); 36 my $ctrl = grep $_ eq "control-mask", @$state;
37 37
38 for (@$files) { 38 if ($key == $Gtk2::Gdk::Keysyms{q}) {
39 if (/^(.*)\/([^\/]*)$/s) { 39 main_quit Gtk2;
40 ($dir, $file) = ($1, $2); 40 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) {
41 new_schnauzer->get_toplevel->show_all;
41 } else { 42 } else {
42 ($dir, $file) = (".", $_); 43 $mainwin->show_all;
43 } 44 $schnauzer->handle_key ($key, $state);
45 }
44 46
45 if (0) { 47 1;
46 if ($file eq "." or $file eq "..") { 48}
47 } elsif (-f "$dir/.xvpics/$file") {
48 print new_from_file Gtk2::Gdk::Pixbuf "$dir/.xvpics/$file";
49 } else {
50 }
51 }
52 49
53 push @{$self->{list}{data}}, [$file]; 50$viewer = new Gtk2::CV::ImageWindow;
51
52$viewer->set_title ("CV");
53
54$viewer->signal_connect (key_press_event => \&std_keys);
55$viewer->signal_connect (delete_event => sub { main_quit Gtk2 });
56
57$viewer->signal_connect (button3_press_event => sub {
58 $mainwin->visible
59 ? $mainwin->hide
60 : $mainwin->show_all;
61});
62
63if (@ARGV) {
64 $viewer->load_image ($ARGV[0]);
65
66 if (@ARGV > 1) {
67 $schnauzer->set_paths (\@ARGV);
54 } 68 }
55} 69}
56 70
57sub set_dir {
58 my ($self, $dir) = @_;
59
60 my @files;
61
62 opendir my $fh, $dir
63 or die "$dir: $!";
64
65 $self->set_files ([map "$dir/$_", readdir $fh]);
66}
67
68package cluster;
69
70use Glib::Object::Subclass Gtk2::Window;
71
72use Gtk2::SimpleList;
73
74sub INIT_INSTANCE {
75 my ($self) = @_;
76
77 $self->set_default_size (600, 400);
78
79 my $vbox = new Gtk2::VBox;
80 $self->add ($vbox);
81
82 my $box = new Gtk2::HBox;
83 $vbox->add ($box);
84 $box->add (my $sw = new Gtk2::ScrolledWindow);
85 $sw->add (
86 $self->{list} = new Gtk2::SimpleList
87 "#" => "int",
88 "Name" => "text",
89 );
90
91 $self->{schnauzer} = new schnauzer;
92 $box->add (my $sw = new Gtk2::ScrolledWindow);
93 $sw->add_with_viewport ($self->{schnauzer} = new schnauzer);
94
95 $self->{list}->get_column(0)->set_sort_column_id(0);
96 $self->{list}->get_column(1)->set_sort_column_id(1);
97
98 $self->{list}->signal_connect (cursor_changed => sub {
99 my $row = scalar +($_[0]->get_selection->get_selected_rows)[0]->get_indices;
100
101 my $k = $_[0]{data}[$row][1];
102 $k = $self->{cluster}{$k};
103
104 $self->{schnauzer}->set_files (
105 [sort map "$self->{path}/$_", @{$k->[1]}],
106 );
107
108 1;
109
110 });
111}
112
113sub analyse {
114 my ($self, $path) = @_;
115
116 opendir my $dir, $path
117 or die "$path: $!";
118
119 $self->{path} = $path;
120
121 my @files = map {
122 my $str = $_;
123 $str =~ s/[\-_ ]+/ /g;
124 $str =~ s/\.[^\.]+//g;
125 [$str, $_]
126 }
127 grep !/\.(sfv|crc|par|par2)$/, readdir $dir;
128
129 my %cluster;
130
131 my @regexps = (
132 [qr<\d+$>, qr<^(.+?)\ *(\d+)$>],
133 [qr<\ \d+$>, qr<^(.+?)(\d+)\ +(\d+)$>],
134 );
135
136 for my $info (@regexps) {
137 my $re = $info->[0];
138 for (@files) {
139 if ($_->[0] =~ $re && $_->[0] =~ $info->[1]) {
140 push @{ ($cluster{$1} ||= [ $info, []])->[1] }, $_->[1];
141 }
142 }
143 }
144
145 $self->{cluster} = \%cluster;
146
147 while (my ($k, $v) = each %cluster) {
148 my $n = scalar @{$v->[1]};
149 push @{$self->{list}{data}}, [$n, $k] if $n > 2;
150 }
151}
152
153package main;
154
155init Gtk2;
156
157$viewer = new Gtk2::CV::ImageWindow;
158
159$viewer->show_all; 71$viewer->show_all;
160
161my $cluster = new cluster;
162
1630 and do {
164 my $w = new Gtk2::Window;
165 $w->add (my $s = new schnauzer);
166 $s->set_dir ("/root/pix");
167 $w->show_all;
168};
169
170$cluster->analyse ("/fs/samsung/store-anime-done");
171$cluster->show_all;
172
173#$viewer->set (path => "/fs/samsung/store-anime-done/yuumi_kazuaki_-_love_to_hajieki_to_sayonara_to_-_150.jpg");
174#$viewer->set (path => "/root/pix/kvvz.jpg");
175 72
176main Gtk2; 73main Gtk2;
177 74
75=head1 NAME
178 76
77cv - a fast gtk+ image viewer modeled after xv
78
79=head1 SYNOPSIS
80
81 cv [file...]
82
83=head1 DESCRIPTION
84
85None yet.
86
87=head2 THE IMAGE WINDOW
88
89You can use the following keys in the image window:
90
91 q quit the program
92 < half the image size
93 > double the image size
94 , shrink the image by 10%
95 . enlarge the image by 10%
96 n reset to normal size
97 m maximize to screensize
98 M maxime to screensize, respecting image aspect
99 u uncrop
100 r set scaling mode to 'nearest' (fastest)
101 s set scaling mode to 'bilinear' (default)
102 S set scaling mode to 'hyper' (slowest)
103 t rotate clockwise 90°
104 T rotate counterclockwise°
105 ctrl-v open a new visual schnauzer window for the current dir
106
107The following keys are redirected to the default visual schnauzer window:
108
109 space next image
110 backspace last image
111
112=head2 THE VISUAL SCHNAUZER
113
114You can use the following keys in the schnauzer window:
115
116 space move to and display next image
117 backspace move to and display previous image
118 return display selected picture
119
120 cursor keys move selection
121 page-up move one page up
122 page-down move one page down
123 home move to first file
124 end move to last file
125
126 ctrl-g generate icons for the selected files
127 ctrl-d delete selected files WITHOUT ASKING AGAIN
128
129=head1 BUGS/TODO
130
131 rotate on disk
132 print
133 lots of ui issues
134 save(?)
135 preferences
136 ctrl-u in schnauzer
137 shift-cursor in schnauzer
138
139=head1 AUTHOR
140
141Marc Lehmann <cv@plan9.de>.
142
143=cut
144

Diff Legend

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