ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/perl/background
(Generate patch)

Comparing rxvt-unicode/src/perl/background (file contents):
Revision 1.70 by root, Mon Jul 2 01:35:37 2012 UTC vs.
Revision 1.74 by root, Sat Jul 14 08:42:54 2012 UTC

… …
74 return load "$HOME/sunday.png"; 74 return load "$HOME/sunday.png";
75 } 75 }
76 } 76 }
77 77
78This inner expression is evaluated once per hour (and whenever the 78This inner expression is evaluated once per hour (and whenever the
79temrinal window is resized). It sets F<sunday.png> as background on 79terminal window is resized). It sets F<sunday.png> as background on
80Sundays, and F<weekday.png> on all other days. 80Sundays, and F<weekday.png> on all other days.
81 81
82Fortunately, we expect that most expressions will be much simpler, with 82Fortunately, we expect that most expressions will be much simpler, with
83little Perl knowledge needed. 83little Perl knowledge needed.
84 84
… …
119width and doubles the image height: 119width and doubles the image height:
120 120
121 scale 0.5, 2, load "$HOME/mypic.png" 121 scale 0.5, 2, load "$HOME/mypic.png"
122 122
123IF you try out these expressions, you might suffer from some sluggishness, 123IF you try out these expressions, you might suffer from some sluggishness,
124because each time the terminal is resized, it loads the PNG image agin 124because each time the terminal is resized, it loads the PNG image again
125and scales it. Scaling is usually fast (and unavoidable), but loading the 125and scales it. Scaling is usually fast (and unavoidable), but loading the
126image can be quite time consuming. This is where C<keep> comes in handy: 126image can be quite time consuming. This is where C<keep> comes in handy:
127 127
128 scale 0.5, 2, keep { load "$HOME/mypic.png" } 128 scale 0.5, 2, keep { load "$HOME/mypic.png" }
129 129
… …
156 156
157This one first takes a snapshot of the screen background image, and then 157This one first takes a snapshot of the screen background image, and then
158moves it to the upper left corner of the screen (as opposed to the upper 158moves it to the upper left corner of the screen (as opposed to the upper
159left corner of the terminal window)- the result is pseudo-transparency: 159left corner of the terminal window)- the result is pseudo-transparency:
160the image seems to be static while the window is moved around. 160the image seems to be static while the window is moved around.
161
162=head2 COLOUR SPECIFICATIONS
163
164Whenever an operator expects a "colour", then this can be specified in one
165of two ways: Either as string with an X11 colour specification, such as:
166
167 "red" # named colour
168 "#f00" # simple rgb
169 "[50]red" # red with 50% alpha
170 "TekHVC:300/50/50" # anything goes
171
172OR as an array reference with one, three or four components:
173
174 [0.5] # 50% gray, 100% alpha
175 [0.5, 0, 0] # dark red, no green or blur, 100% alpha
176 [0.5, 0, 0, 0.7] # same with explicit 70% alpha
161 177
162=head2 CACHING AND SENSITIVITY 178=head2 CACHING AND SENSITIVITY
163 179
164Since some operations (such as C<load> and C<blur>) can take a long time, 180Since some operations (such as C<load> and C<blur>) can take a long time,
165caching results can be very important for a smooth operation. Caching can 181caching results can be very important for a smooth operation. Caching can
… …
273uses it), then the in-memory copy us returned instead. 289uses it), then the in-memory copy us returned instead.
274 290
275=item load_uc $path 291=item load_uc $path
276 292
277Load uncached - same as load, but does not cache the image, which means it 293Load uncached - same as load, but does not cache the image, which means it
278is I<always> loaded from the filesystem again. 294is I<always> loaded from the filesystem again, even if another copy of it
295is in memory at the time.
279 296
280=cut 297=cut
298
299 sub load_uc($) {
300 $self->new_img_from_file ($_[0])
301 }
281 302
282 sub load($) { 303 sub load($) {
283 my ($path) = @_; 304 my ($path) = @_;
284 305
285 $_IMG_CACHE{$path} || do { 306 $_IMG_CACHE{$path} || do {
286 my $img = $self->new_img_from_file ($path); 307 my $img = load_uc $path;
287 Scalar::Util::weaken ($_IMG_CACHE{$path} = $img); 308 Scalar::Util::weaken ($_IMG_CACHE{$path} = $img);
288 $img 309 $img
289 } 310 }
290 } 311 }
291 312
… …
884C<keep> block so it only is reevaluated as required. 905C<keep> block so it only is reevaluated as required.
885 906
886Putting the blur into a C<keep> block will make sure the blur is only done 907Putting the blur into a C<keep> block will make sure the blur is only done
887once, while the C<rootalign> is still done each time the window moves. 908once, while the C<rootalign> is still done each time the window moves.
888 909
889 rootlign keep { blur 10, root } 910 rootalign keep { blur 10, root }
890 911
891This leaves the question of how to force reevaluation of the block, 912This leaves the question of how to force reevaluation of the block,
892in case the root background changes: If expression inside the block 913in case the root background changes: If expression inside the block
893is sensitive to some event (root background changes, window geometry 914is sensitive to some event (root background changes, window geometry
894changes), then it will be reevaluated automatically as needed. 915changes), then it will be reevaluated automatically as needed.
… …
946 967
947# compiles a parsed expression 968# compiles a parsed expression
948sub set_expr { 969sub set_expr {
949 my ($self, $expr) = @_; 970 my ($self, $expr) = @_;
950 971
951 $self->{root} = []; 972 $self->{root} = []; # the outermost frame
952 $self->{expr} = $expr; 973 $self->{expr} = $expr;
953 $self->recalculate; 974 $self->recalculate;
954} 975}
955 976
956# takes a hash of sensitivity indicators and installs watchers 977# takes a hash of sensitivity indicators and installs watchers
… …
1018 1039
1019 # set environment to evaluate user expression 1040 # set environment to evaluate user expression
1020 1041
1021 local $self = $arg_self; 1042 local $self = $arg_self;
1022 local $HOME = $ENV{HOME}; 1043 local $HOME = $ENV{HOME};
1023 local $frame = []; 1044 local $frame = $self->{root};
1024 1045
1025 ($x, $y, $w, $h) = $self->background_geometry ($self->{border}); 1046 ($x, $y, $w, $h) = $self->background_geometry ($self->{border});
1026 1047
1027 # evaluate user expression 1048 # evaluate user expression
1028 1049

Diff Legend

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