; 2009-08-16 http://xyzz.soup.io/post/25633991
; 
; Gimp script-fu for auto white balance batch processing
;
; Based on http://www.gimp.org/tutorials/Basic_Batch/
; place this script in .gimp*/scripts/
; run with gimp -i -b '(batch-awb "*.JPG")' -b '(gimp-quit 0)'

(define (batch-awb pattern)
        (let* ((filelist (cadr (file-glob pattern 1))))
                (while (not (null? filelist))
                        (let* ((filename (car filelist))
                                (image (car (gimp-file-load RUN-NONINTERACTIVE filename filename)))
                                (drawable (car (gimp-image-get-active-layer image))))
                                (plug-in-c-astretch RUN-NONINTERACTIVE image drawable)
                                ;(set! drawable (car (gimp-image-get-active-layer image)))
                                (gimp-file-save RUN-NONINTERACTIVE image drawable filename filename)
                                (gimp-image-delete image))
                        (set! filelist (cdr filelist)))))