--- rxvt-unicode/src/perl/background 2012/06/05 22:46:50 1.15 +++ rxvt-unicode/src/perl/background 2012/06/06 11:46:11 1.16 @@ -1,7 +1,8 @@ #! perl -#:META:RESOURCE:$$:string:background expression -#:META:RESOURCE:$$-enable:boolean:some boolean +#:META:X_RESOURCE:%.expr:string:background expression +#:META:X_RESOURCE:%.enable:boolean:some boolean +#:META:X_RESOURCE:%.extra.*:value:extra config our $EXPR = 'move load "/root/pix/das_fette_schwein.jpg", repeat_wrap, X, Y'; $EXPR = ' @@ -19,7 +20,7 @@ our ($bgdsl_self, $old, $new); our ($l, $t, $w, $h); -# enforce at leats this time between updates +# enforce at least this interval between updates our $MIN_INTERVAL = 1/100; { @@ -253,6 +254,8 @@ sub on_start { my ($self) = @_; + warn $self->x_resource ("background.enable"); + $self->set_expr (parse_expr $EXPR); ()