| … | |
… | |
| 2 | |
2 | |
| 3 | #:META:X_RESOURCE:%.expr:string:background expression |
3 | #:META:X_RESOURCE:%.expr:string:background expression |
| 4 | #:META:X_RESOURCE:%.enable:boolean:some boolean |
4 | #:META:X_RESOURCE:%.enable:boolean:some boolean |
| 5 | #:META:X_RESOURCE:%.extra.:value:extra config |
5 | #:META:X_RESOURCE:%.extra.:value:extra config |
| 6 | |
6 | |
| 7 | our $EXPR = 'clip -50, -50, 150, 100, move X, Y, load "MagnoliaAlpha.png"'; |
7 | our $EXPR = 'clip move X, Y, load "MagnoliaAlpha.png"'; |
| 8 | #$EXPR = ' |
8 | #$EXPR = ' |
| 9 | # rotate W, H, 50, 50, counter 1/59.95, repeat_mirror, |
9 | # rotate W, H, 50, 50, counter 1/59.95, repeat_mirror, |
| 10 | # clip X, Y, W, H, repeat_mirror, |
10 | # clip X, Y, W, H, repeat_mirror, |
| 11 | # load "/root/pix/das_fette_schwein.jpg" |
11 | # load "/root/pix/das_fette_schwein.jpg" |
| 12 | #'; |
12 | #'; |
| … | |
… | |
| 201 | local $new = my $state = $self->{state} = {}; |
201 | local $new = my $state = $self->{state} = {}; |
| 202 | |
202 | |
| 203 | ($l, $t, $w, $h) = |
203 | ($l, $t, $w, $h) = |
| 204 | $self->get_geometry; |
204 | $self->get_geometry; |
| 205 | |
205 | |
|
|
206 | warn "$l,$t,$w,$h\n";#d# |
|
|
207 | |
| 206 | # evaluate user expression |
208 | # evaluate user expression |
| 207 | |
209 | |
| 208 | my $img = eval { $self->{expr}->() }; |
210 | my $img = eval { $self->{expr}->() }; |
| 209 | warn $@ if $@;#d# |
211 | warn $@ if $@;#d# |
| 210 | die if !UNIVERSAL::isa $img, "urxvt::img"; |
212 | die if !UNIVERSAL::isa $img, "urxvt::img"; |
