Simple overwrite image script

[Gravitus]

Worked like magic. Thank You.

(09-20-2017, 01:06 PM)Kevin Wrote: OK, you need to replace "text.jpg" with the file name of the image, using gimp-image-get-filename

For example:

Code:

(define (pirmas-crop image layer)
 (let* (
         (filename (car (gimp-image-get-filename image)))
       )
   (gimp-crop image 500 300 0 0)
   (file-jpeg-save 1 image layer filename filename 0.93 0 0 1 "" 2 0 0 0)
 )
)

(script-fu-register
 "pirmas-crop"
 "<Image>/Edgaro/Pirmas Crop"
 "Testinis variantas"
 "Edgaras"
 "Edgaras"
 "Rugsejo 19 d. 2017"
 "RGB*, GRAY*"
 SF-IMAGE "Image" 0
 SF-DRAWABLE "Layer" 0
)