--- rxvt-unicode/src/perl/background 2012/06/05 22:46:50 1.15 +++ rxvt-unicode/src/perl/background 2012/06/06 14:34:03 1.17 @@ -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,14 +20,14 @@ 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; { package urxvt::bgdsl; # background language - *repeat_black = \&urxvt::RepeatNone; #TODO wtf - *repeat_wrap = \&urxvt::RepeatNormal; + *repeat_empty = \&urxvt::RepeatNone; + *repeat_tile = \&urxvt::RepeatNormal; *repeat_pad = \&urxvt::RepeatPad; *repeat_mirror = \&urxvt::RepeatReflect;