(use jsetroot)

(define home (get-environment-variable "HOME"))

(define framedir (string-append home "/.stumpwm.d/data/frames/"))

(define frames
  (let for ((i 21) (acc '()))
	     (if (>= i 1)
		 (for (- i 1) (cons (string-append framedir (number->string i) ".png") acc))
		 acc)))

(define frameprocs
  (map (lambda (frame) (lambda () (set-background-image! frame))) frames))