GIMP-2.8 пакетная конвертация xcf->jpg

(define (script-fu-xcf2jpg-batch xcfDirectory)
  (let* ((xcfList (cadr (file-glob (string-append xcfDirectory "/*.xcf") 1))))
    (while (not (null? xcfList) )
      (let* ((xcfFilename (car xcfList))
        (jpgFilename (string-append (substring xcfFilename 0 (- (string-length xcfFilename) 4) ) ".jpg"))
        (xcfImage    (car (gimp-file-load RUN-NONINTERACTIVE xcfFilename xcfFilename)))
        (xcfDrawable (car (gimp-image-get-active-layer xcfImage))) )
 
        (file-jpeg-save RUN-NONINTERACTIVE xcfImage xcfDrawable jpgFilename jpgFilename
              0.90 0.0 0 0 "" 0 1 0 2)
        )
      (set! xcfList (cdr xcfList))
      )
    )
)
 
(script-fu-register
  "script-fu-xcf2jpg-batch"
  "Batch XCF 2 JPEG"
  "Converts all xcf files from a directory to JPEGS"
  "Dan Kendall"
  ""
  "Apr 22 2009"
  ""
  SF-DIRNAME   "Gimp Image Directory"  "/tmp"
)
(script-fu-menu-register "script-fu-xcf2jpg-batch"
    "<Toolbox>/Mine/Batch/2JPEG")