Resize the image fit for a wallpaper of android "Home" (see http://sunnyone41.blogspot.jp/2012/11/androidgimp.html)

android-wallpaper.scm

;
;  android-wallpaper
;
;  Resize the image fit for a wallpaper of android "Home"
;
;  Copyright (c) 2012 Yoichi Imai, All rights reserved.
;  
;  Permission is hereby granted, free of charge, to any person obtaining
;  a copy of this software and associated documentation files (the
;  "Software"), to deal in the Software without restriction, including
;  without limitation the rights to use, copy, modify, merge, publish,
;  distribute, sublicense, and/or sell copies of the Software, and to
;  permit persons to whom the Software is furnished to do so, subject to
;  the following conditions:
;  
;  The above copyright notice and this permission notice shall be
;  included in all copies or substantial portions of the Software.
;  
;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
;  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
;  LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
;  OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
;  WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
;

(define (script-fu-android-wallpaper image
                                     drawable)
  (let (
         (origWidth (car (gimp-image-width image)))
         (origHeight (car (gimp-image-height image)))
         (wallLayer 0)
         )
     (gimp-image-undo-group-start image)
     
     (gimp-image-resize image
                        (* origWidth 2)
                        origHeight
                        (/ origWidth 2)
                        0)

     (set! wallLayer (car (gimp-layer-new image
                                          (* origWidth 2)
                                          origHeight
                                          RGBA-IMAGE
                                          "Wallpaper Layer"
                                          100
                                          NORMAL-MODE)))
     
     (gimp-image-add-layer image
                           wallLayer
                           (car (gimp-image-get-layers image)))

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

(script-fu-register "script-fu-android-wallpaper"
 _"Resize for Android Wallpaper"
 _"Resize the image to the size of android wallpaper"
 "Yoichi Imai <sunnyone41@gmail.com>"
 "Yoichi Imai"
 "2012/11/25"
 "RGB*"
 SF-IMAGE    "Image"     0
 SF-DRAWABLE "Drawable"  0
)

(script-fu-menu-register "script-fu-android-wallpaper"
                         "<Image>/Image")