On Mon, Sep 13, 2010 at 6:23 PM, jeremy jozwik <jerjoz.for...@gmail.com> wrote:
hmmm...
$ gimp -i -b '(png-compress "*.png" 9)' -b '(gimp-quit 0)'
script-fu-Warning: Error while executing
(load "/home/po/.gimp-2.4/scripts/png-compress.scm")
Error: eval: unbound variable: pattern
script-fu-Warning: Error while executing
(load "/home/po/.gimp-2.4/scripts/png-compress.scm")
Error: eval: unbound variable: pattern
batch command: executed successfully.
script-fu-Warning: Error while executing
(load "/home/po/.gimp-2.4/scripts/png-compress.scm")
Error: eval: unbound variable: pattern
(define (png-compress filename
compression))
(let* (filelist (cadr (file-glob pattern 1))))
(while (not (null? filelist)))
(let* ((filename (car filelist))
(image (car (gimp-file-load RUN-NONINTERACTIVE
filename filename)))
(file-png-save RUN-NONINTERACTIVE
image
drawable
filename
filename
FALSE ; interlace (mostly for Web usage)
9 ; compression (0-9)
FALSE ; bkgd (mostly for Web usage)
FALSE ; gama (may be desirable for Macs targets)
FALSE ; offs (useful for page layout targets)
FALSE ; phys (useful for printing targets)
FALSE) ; time
(gimp-image-delete image))
(set! filelist (cdr filelist)))
_______________________________________________
Gimp-user mailing list
Gimp-user@lists.XCF.Berkeley.EDU
https://lists.XCF.Berkeley.EDU/mailman/listinfo/gimp-user
