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

Comparing CV/bin/cv (file contents):
Revision 1.3 by root, Mon Nov 3 01:30:58 2003 UTC vs.
Revision 1.11 by root, Wed Nov 5 01:29:47 2003 UTC

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

Diff Legend

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