GIMP Plugin Registry

;renames the autocrop
(define (ajl-script-fu-autocrop-rename-batch pattern)
(let* ((filelist (cadr (file-glob pattern 1))))
(while (not (null? filelist))
(let*

(
(filename (car filelist))
(img (car (gimp-file-load RUN-NONINTERACTIVE filename filename)))
(drw (car (gimp-image-get-active-layer img)))

(drawable-width (car (gimp-drawable-width drw)))
(drawable-height (car (gimp-drawable-height drw)))
(image (car (gimp-image-new drawable-width drawable-height RGB)))
(drawable (car (gimp-layer-new image drawable-width drawable-height RGB-IMAGE "Original" 100 NORMAL-MODE)))

(prevfile (car(gimp-image-get-filename img)))
(nextfile (string-append prevfile "_F.jpeg")))

;(gimp-image-undo-disable image)
(gimp-image-add-layer image drawable 0)

(gimp-selection-all img)
(gimp-edit-copy drw)
(gimp-floating-sel-anchor (car (gimp-edit-paste drawable FALSE)))

(plug-in-autocrop RUN-NONINTERACTIVE
image drawable)

;(gimp-file-save RUN-NONINTERACTIVE image drawable filename filename)

(file-jpeg-save 1 image (car (gimp-image-flatten image)) nextfile nextfile 0.92 0.0 1 1 "Created with Gimp" 0 1 0 2)

(gimp-image-delete image))
(set! filelist (cdr filelist)))))