--- rxvt-unicode/src/perl/background	2012/06/05 22:46:50	1.15
+++ rxvt-unicode/src/perl/background	2012/06/06 20:55:37	1.19
@@ -1,15 +1,16 @@
 #! perl
 
-#:META:RESOURCE:$$:string:background expression
-#:META:RESOURCE:$$-enable:boolean:some boolean
-
-our $EXPR = 'move load "/root/pix/das_fette_schwein.jpg", repeat_wrap, X, Y';
-$EXPR = '
-   rotate W, H, 50, 50, counter 1/59.95, repeat_mirror,
-   clip X, Y, W, H, repeat_mirror,
-   load "/root/pix/das_fette_schwein.jpg"
-';
-$EXPR = 'solid "red"';
+#:META:X_RESOURCE:%.expr:string:background expression
+#:META:X_RESOURCE:%.enable:boolean:some boolean
+#:META:X_RESOURCE:%.extra.:value:extra config
+
+our $EXPR = 'move X, Y, load "MagnoliaAlpha.png"';
+#$EXPR = '
+#   rotate W, H, 50, 50, counter 1/59.95, repeat_mirror,
+#   clip X, Y, W, H, repeat_mirror,
+#   load "/root/pix/das_fette_schwein.jpg"
+#';
+#$EXPR = 'solid "red"';
 #$EXPR = 'blur root, 10, 10'
 #$EXPR = 'blur move (root, -x, -y), 5, 5'
 #resize load "/root/pix/das_fette_schwein.jpg", w, h
@@ -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;