>You have an error in your placement of ')'.
That was because I thought set was used similar to (let ..)
>I don't think you need the file save since you haven't changed the file since
>it was loaded.
I have corrected the arguments. I saved the file first because
gimp-file-save-thumbnail documentation suggested to do so. I've since
>The SF-VALUE in the register block should be SF-FILENAME.
Yes, had already manage to correct this.
> Where did you come up with 'when'? There is no such function in Script-Fu.
I'd been slowly trying to learn Common Lisp and thought that Script-Fu had it.
Here is the scheme coding tutorial I was using, most likely the wrong
thing to be reading.
(define (script-fu-create-thumb filename)
(let* ((img 0))
;; car needed here because gimp functions return values as lists
(set! img (car (gimp-file-load 1 filename filename)))
(gimp-file-save-thumbnail img filename)))
SF-FILENAME "Image Name" " ")
Gimp-user mailing list