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.17 by root, Fri Nov 7 03:07:01 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;
17 my ($self) = @_;
18
19 $self->add (
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} 24}
28 25
29sub set_files { 26$schnauzer = new_schnauzer;
30 my ($self, $files) = @_;
31 27
32 $self->{files} = $files; 28my $mainwin = $schnauzer->get_toplevel;
33 29
34 @{$self->{list}{data}} = (); 30sub std_keys {
31 my $key = $_[1]->keyval;
32 my $state = $_[1]->state;
35 33
36 my ($dir, $file); 34 my $ctrl = grep $_ eq "control-mask", @$state;
37 35
38 for (@$files) { 36 if ($key == $Gtk2::Gdk::Keysyms{q}) {
39 if (/^(.*)\/([^\/]*)$/s) { 37 main_quit Gtk2;
40 ($dir, $file) = ($1, $2); 38 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) {
39 my $s = new_schnauzer;
40 $s->set_dir (".");
41 $s->get_toplevel->show_all
41 } else { 42 } else {
42 ($dir, $file) = (".", $_); 43 $mainwin->show_all;
43 } 44 $schnauzer->handle_key ($key, $state);
44
45 if (0) {
46 if ($file eq "." or $file eq "..") {
47 } elsif (-f "$dir/.xvpics/$file") {
48 print new_from_file Gtk2::Gdk::Pixbuf "$dir/.xvpics/$file";
49 } else {
50 }
51 }
52
53 push @{$self->{list}{data}}, [$file];
54 }
55}
56
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 } 45 }
144 46
145 $self->{cluster} = \%cluster; 47 1;
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} 48}
152
153package main;
154
155init Gtk2;
156 49
157$viewer = new Gtk2::CV::ImageWindow; 50$viewer = new Gtk2::CV::ImageWindow;
158 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);
68 }
69} else {
70 $schnauzer->set_dir (".");
71}
72
159$viewer->show_all; 73$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 74
176main Gtk2; 75main Gtk2;
177 76
77=head1 NAME
178 78
79cv - a fast gtk+ image viewer modeled after xv
80
81=head1 SYNOPSIS
82
83 cv [file...]
84
85=head1 DESCRIPTION
86
87None yet.
88
89=head2 THE IMAGE WINDOW
90
91You can use the following keys in the image window:
92
93 q quit the program
94 < half the image size
95 > double the image size
96 , shrink the image by 10%
97 . enlarge the image by 10%
98 n reset to normal size
99 m maximize to screensize
100 M maxime to screensize, respecting image aspect
101 u uncrop
102 r set scaling mode to 'nearest' (fastest)
103 s set scaling mode to 'bilinear' (default)
104 S set scaling mode to 'hyper' (slowest)
105 t rotate clockwise 90°
106 T rotate counterclockwise°
107 ctrl-v open a new visual schnauzer window for the current dir
108
109The following keys are redirected to the default visual schnauzer window:
110
111 space next image
112 backspace last image
113
114=head2 THE VISUAL SCHNAUZER
115
116You can use the following keys in the schnauzer window:
117
118 space move to and display next image
119 backspace move to and display previous image
120 return display selected picture
121
122 cursor keys move selection
123 page-up move one page up
124 page-down move one page down
125 home move to first file
126 end move to last file
127
128 ctrl-g generate icons for the selected files
129 ctrl-d delete selected files WITHOUT ASKING AGAIN
130
131=head1 BUGS/TODO
132
133 rotate on disk
134 print
135 lots of ui issues
136 save(?)
137 preferences
138 ctrl-u in schnauzer
139 shift-cursor in schnauzer
140
141=head1 AUTHOR
142
143Marc Lehmann <cv@plan9.de>.
144
145=cut
146

Diff Legend

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