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)))))