; Web Photo Editor Script-fu plugin for The Gimp
; Copyright (C) 2007 Justin Watt http://justinsomnia.org/
; 
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation, either version 3 of the License, or
; (at your option) any later version.
; 
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
; GNU General Public License for more details.
; 
; You should have received a copy of the GNU General Public License
; along with this program.  If not, see <http://www.gnu.org/licenses/>.

(define (web-photo-editor image 
                          drawable
                          newwidth
                          shadows
                          midtones
                          highlights
                          contrast
                          saturation
                          sharpen)
  (let* ((drawable  (car (gimp-image-active-drawable image)))
         (oldwidth  (car (gimp-image-width image)))
         (oldheight (car (gimp-image-height image)))
         (newheight (* newwidth (/ oldheight oldwidth)))
        )
    
    
    (if (> oldwidth newwidth)
      (gimp-image-scale image newwidth newheight)
    )

    (gimp-image-undo-group-start image)
    
    (gimp-selection-none image)

    (gimp-color-balance drawable 0 0 shadows shadows shadows)
    (gimp-color-balance drawable 1 0 midtones midtones midtones)
    (gimp-color-balance drawable 2 0 highlights highlights highlights)

    (gimp-brightness-contrast drawable 0 contrast)

    (gimp-hue-saturation drawable 0 0 0 saturation)
    
    (if (= sharpen TRUE)
      (plug-in-unsharp-mask 1 image drawable 0.4 0.2 0)
    )

    (gimp-image-undo-group-end image)
  )
)

(script-fu-register "web-photo-editor"
                    "_Web Photo Editor..."
                    "Brings together some common operations to edit a photo for the web, including resizing, contrast, color balancing, saturation, and sharpening. For more information, see:\nhttp://justinsomnia.org/2007/09/web-photo-editor-extension-for-the-gimp/"
                    "Justin Watt http://justinsomnia.org/"
                    "Copyright 2007 by Justin Watt; GNU GPL"
                    "2007-11-07"
                    "RGB*"
                    SF-IMAGE       "Image"           0
                    SF-DRAWABLE    "Drawable"        0
                    SF-VALUE       "Width"           "450"                   ; defaults to 450
                    SF-ADJUSTMENT  "Shadows"         '(5  -100 100 5 10 0 0) ; defaults to 5
                    SF-ADJUSTMENT  "Midtones"        '(10 -100 100 5 10 0 0) ; defaults to 10
                    SF-ADJUSTMENT  "Highlights"      '(5  -100 100 5 10 0 0) ; defaults to 5
                    SF-ADJUSTMENT  "Contrast"        '(10 -127 127 5 10 0 0) ; defaults to 10
                    SF-ADJUSTMENT  "Saturation"      '(15 -100 100 5 10 0 0) ; defaults to 15
                    SF-TOGGLE      "Sharpen"         TRUE
                    )
(script-fu-menu-register "web-photo-editor" "<Image>/Filters/Web")