GIMP Script-fu

Check-in [832f8225b4]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Missing single quote in comment example
Timelines: family | ancestors | sg-with-files
Files: files | file ages | folders
SHA1:832f8225b463c14ae4de603ff2da66778c217136
User & Date: saul 2015-10-09 15:38:13
Context
2015-10-09
15:38
Missing single quote in comment example Leaf check-in: 832f8225b4 user: saul tags: sg-with-files
2015-04-24
01:13
Added 'filename' as a predefined variable. check-in: e76675ea2d user: saul tags: sg-with-files
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to with-files.scm.

28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
; it to all of the files matching the pattern.
; 
; For example, to invert the colors of all of the PNG files in the 
; start directory:
;    
;    gimp -i -b '(with-files "*.png" \
;                  (gimp-invert layer) \
;                  (gimp-file-save 1 image layer filename filename))

(define-macro (with-files pattern . body)
  (let ((loop (gensym))
        (filenames (gensym)))
    `(begin
       (let ,loop ((,filenames (cadr (file-glob ,pattern 1))))
         (unless (null? ,filenames)







|







28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
; it to all of the files matching the pattern.
; 
; For example, to invert the colors of all of the PNG files in the 
; start directory:
;    
;    gimp -i -b '(with-files "*.png" \
;                  (gimp-invert layer) \
;                  (gimp-file-save 1 image layer filename filename))'

(define-macro (with-files pattern . body)
  (let ((loop (gensym))
        (filenames (gensym)))
    `(begin
       (let ,loop ((,filenames (cadr (file-glob ,pattern 1))))
         (unless (null? ,filenames)