Simple overwrite image script

[Kevin]

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
)