; make some fucking layer group functionality

(define (script-fu-gimp-layer-group-show image lgname)
	(let* ((layers (gimp-image-get-layers image))
		(num-layers (car layers))
		(layer-array (cadr layers))
		(layer-count 0)
		(layer 0)
		(layer-name "")
		(layer-name-group ""))
	
	(gimp-image-undo-disable image)

	(set! layer-count 0)
	(while (< layer-count num-layers)
		; check the first word in the name of each layer, if it matches lgname, perform the action
		(set! layer (aref layer-array layer-count))
		(set! layer-name (car (gimp-layer-get-name layer)))
		(set! layer-name-group (car (strbreakup layer-name " ")))
		(if (equal? layer-name-group lgname)
			; compare the first part of the layer's name with lgname
			(gimp-layer-set-visible layer TRUE)
		)
		(set! layer-count (+ layer-count 1))
	)

	(gimp-displays-flush)
	(gimp-image-undo-enable image)
	)
)

(define (script-fu-gimp-layer-group-hide image lgname)
	(let* ((layers (gimp-image-get-layers image))
		(num-layers (car layers))
		(layer-array (cadr layers))
		(layer-count 0)
		(layer 0)
		(layer-name "")
		(layer-name-group ""))
	
	(gimp-image-undo-disable image)

	(set! layer-count 0)
	(while (< layer-count num-layers)
		; check the first word in the name of each layer, if it matches lgname, perform the action
		(set! layer (aref layer-array layer-count))
		(set! layer-name (car (gimp-layer-get-name layer)))
		(set! layer-name-group (car (strbreakup layer-name " ")))
		(if (equal? layer-name-group lgname)
			; compare the first part of the layer's name with lgname
			(gimp-layer-set-visible layer FALSE)
		)
		(set! layer-count (+ layer-count 1))
	)

	(gimp-displays-flush)
	(gimp-image-undo-enable image)
	)
)

(define (script-fu-gimp-layer-group-showall image)
	(let* ((layers (gimp-image-get-layers image))
		(num-layers (car layers))
		(layer-array (cadr layers))
		(layer-count 0)
		(layer 0)
		(layer-name "")
		(layer-name-group ""))
	
	(gimp-image-undo-disable image)

	(set! layer-count 0)
	(while (< layer-count num-layers)
		; check the first word in the name of each layer, if it matches lgname, perform the action
		(set! layer (aref layer-array layer-count))
		(gimp-layer-set-visible layer TRUE)
		(set! layer-count (+ layer-count 1))
	)

	(gimp-displays-flush)
	(gimp-image-undo-enable image)
	)
)

(define (script-fu-gimp-layer-group-hideall image)
	(let* ((layers (gimp-image-get-layers image))
		(num-layers (car layers))
		(layer-array (cadr layers))
		(layer-count 0)
		(layer 0)
		(layer-name "")
		(layer-name-group ""))
	
	(gimp-image-undo-disable image)

	(set! layer-count 0)
	(while (< layer-count num-layers)
		; check the first word in the name of each layer, if it matches lgname, perform the action
		(set! layer (aref layer-array layer-count))
		(gimp-layer-set-visible layer FALSE)
		(set! layer-count (+ layer-count 1))
	)

	(gimp-displays-flush)
	(gimp-image-undo-enable image)
	)
)

(define (script-fu-gimp-layer-group-showallbut image lgname)
	(let* ((layers (gimp-image-get-layers image))
		(num-layers (car layers))
		(layer-array (cadr layers))
		(layer-count 0)
		(layer 0)
		(layer-name "")
		(layer-name-group ""))
	
	(gimp-image-undo-disable image)

	(set! layer-count 0)
	(while (< layer-count num-layers)
		; check the first word in the name of each layer, if it matches lgname, perform the action
		(set! layer (aref layer-array layer-count))
		(set! layer-name (car (gimp-layer-get-name layer)))
		(set! layer-name-group (car (strbreakup layer-name " ")))
		(if (not (equal? layer-name-group lgname))
			; compare the first part of the layer's name with lgname
			(gimp-layer-set-visible layer TRUE)
		)
		(if (equal? layer-name-group lgname)
			; compare the first part of the layer's name with lgname
			(gimp-layer-set-visible layer FALSE)
		)
		(set! layer-count (+ layer-count 1))
	)

	(gimp-displays-flush)
	(gimp-image-undo-enable image)
	)
)

(define (script-fu-gimp-layer-group-hideallbut image lgname)
	(let* ((layers (gimp-image-get-layers image))
		(num-layers (car layers))
		(layer-array (cadr layers))
		(layer-count 0)
		(layer 0)
		(layer-name "")
		(layer-name-group ""))
	
	(gimp-image-undo-disable image)

	(set! layer-count 0)
	(while (< layer-count num-layers)
		; check the first word in the name of each layer, if it matches lgname, perform the action
		(set! layer (aref layer-array layer-count))
		(set! layer-name (car (gimp-layer-get-name layer)))
		(set! layer-name-group (car (strbreakup layer-name " ")))
		(if (not (equal? layer-name-group lgname))
			; compare the first part of the layer's name with lgname
			(gimp-layer-set-visible layer FALSE)
		)
		(if (equal? layer-name-group lgname)
			; compare the first part of the layer's name with lgname
			(gimp-layer-set-visible layer TRUE)
		)
		(set! layer-count (+ layer-count 1))
	)

	(gimp-displays-flush)
	(gimp-image-undo-enable image)
	)
)

(define (script-fu-gimp-layer-group-drop-shadow image lgname offx offy blur color opacity resize)
	(let* ((layers (gimp-image-get-layers image))
		(num-layers (car layers))
		(layer-array (cadr layers))
		(layer-count 0)
		(layer 0)
		(layer-name "")
		(layer-name-group ""))
	
	(set! layer-count 0)
	(while (< layer-count num-layers)
		; check the first word in the name of each layer, if it matches lgname, perform the action
		(set! layer (aref layer-array layer-count))
		(set! layer-name (car (gimp-layer-get-name layer)))
		(set! layer-name-group (car (strbreakup layer-name " ")))
		(if (equal? layer-name-group lgname)
			; compare the first part of the layer's name with lgname
			(script-fu-drop-shadow image layer offx offy blur color opacity resize)
		)
		(set! layer-count (+ layer-count 1))
	)

	(gimp-displays-flush)
	)
)

(define (script-fu-gimp-layer-group-link image lgname)
	(let* ((layers (gimp-image-get-layers image))
		(num-layers (car layers))
		(layer-array (cadr layers))
		(layer-count 0)
		(layer 0)
		(layer-name "")
		(layer-name-group ""))
	
	(gimp-image-undo-disable image)

	(set! layer-count 0)
	(while (< layer-count num-layers)
		; check the first word in the name of each layer, if it matches lgname, perform the action
		(set! layer (aref layer-array layer-count))
		(set! layer-name (car (gimp-layer-get-name layer)))
		(set! layer-name-group (car (strbreakup layer-name " ")))
		(if (equal? layer-name-group lgname)
			; compare the first part of the layer's name with lgname
			(gimp-layer-set-linked layer TRUE)
		)
		(set! layer-count (+ layer-count 1))
	)

	(gimp-displays-flush)
	(gimp-image-undo-enable image)
	)
)

(define (script-fu-gimp-layer-group-unlinkall image)
	(let* ((layers (gimp-image-get-layers image))
		(num-layers (car layers))
		(layer-array (cadr layers))
		(layer-count 0)
		(layer 0)
		(layer-name "")
		(layer-name-group ""))
	
	(gimp-image-undo-disable image)

	(set! layer-count 0)
	(while (< layer-count num-layers)
		; check the first word in the name of each layer, if it matches lgname, perform the action
		(set! layer (aref layer-array layer-count))
		(set! layer-name (car (gimp-layer-get-name layer)))
		(set! layer-name-group (car (strbreakup layer-name " ")))
		;(if (equal? layer-name-group lgname)
			; compare the first part of the layer's name with lgname
			(gimp-layer-set-linked layer FALSE)
		;)
		(set! layer-count (+ layer-count 1))
	)

	(gimp-displays-flush)
	(gimp-image-undo-enable image)
	)
)

(define (script-fu-gimp-layer-group-sort image lgname)
	(let* ((layers (gimp-image-get-layers image))
		(num-layers (car layers))
		(layer-array (cadr layers))
		(layer-count 0)
		(layer 0)
		(layer-name "")
		(layer-name-group "")
		(lglist '())
		(layer-last 0)
		(layer-pos 0))
	
	(gimp-image-undo-disable image)

	; procure a list of all the layers
	(set! layer-count 0)
	(set! layer-last 0)
	(while (< layer-count num-layers)
		; check the first word in the name of each layer, if it matches lgname, perform the action
		(set! layer (aref layer-array layer-count))
		(set! layer-name (car (gimp-layer-get-name layer)))
		(set! layer-name-group (car (strbreakup layer-name " ")))
		(if (equal? layer-name-group lgname)
			; compare the first part of the layer's name with lgname
			; this adds the layers to the list in reverse order
			(set! lglist (cons layer-count lglist)))
		(if (equal? layer-name-group lgname)
			(set! layer-last layer-count))

		(set! layer-count (+ layer-count 1))
	)

	; use this list to find each layer
	(set! lglist (cdr lglist))
	(set! num-layers (length lglist))
	; don't start with the last layer, that's where we're moving the other layers to
	(set! layer-count 0)
	(while (< layer-count num-layers)
		; get the position of the layer in the list
		(set! layer-pos (car lglist))
		(set! lglist (cdr lglist))
		; get the layer
		(set! layer (aref layer-array layer-pos))
		; find out how many we need to move this
		(set! layer-pos (- layer-last layer-pos))
		(set! layer-pos (- layer-pos 1))
		(set! layer-pos (- layer-pos layer-count))
		(while (> layer-pos 0)
			; move the layer down
			(gimp-image-lower-layer image layer)
			(set! layer-pos (- layer-pos 1))
		)
		(set! layer-count (+ layer-count 1))
		
	)

	(gimp-displays-flush)
	(gimp-image-undo-enable image)
	)
)

(define (script-fu-gimp-layer-group-movebelow image lgname drw)
	(let* ((layers (gimp-image-get-layers image))
		(num-layers (car layers))
		(layer-array (cadr layers))
		(layer-count 0)
		(layer 0)
		(layer-name "")
		(layer-name-group "")
		(lglist '())
		(layer-last 0)
		(layer-pos 0)
		(drw-pos 0)
		(layer-movecount 0))

	(script-fu-gimp-layer-group-sort image lgname)	

	(gimp-image-undo-disable image)

	; procure a list of all the layers
	(set! layer-count 0)
	(set! layer-last 0)
	(while (< layer-count num-layers)
		; check the first word in the name of each layer, if it matches lgname, perform the action
		(set! layer (aref layer-array layer-count))
		(if (equal? layer drw)
			(set! drw-pos layer-count))
		(set! layer-name (car (gimp-layer-get-name layer)))
		(set! layer-name-group (car (strbreakup layer-name " ")))
		(if (equal? layer-name-group lgname)
			; compare the first part of the layer's name with lgname
			; this adds the layers to the list in reverse order
			(set! lglist (cons layer-count lglist)))
		(if (equal? layer-name-group lgname)
			(set! layer-last layer-count))

		(set! layer-count (+ layer-count 1))
	)

	; use this list to find each layer
	(set! num-layers (length lglist))
	(set! layer-movecount (- drw-pos layer-last))
	;(set! layer-movecount (- layer-movecount 1))
	(set! layer-count 0)
	(while (< layer-count num-layers)
		; get the position of the layer in the list
		(set! layer-pos (car lglist))
		(set! lglist (cdr lglist))
		; get the layer
		(set! layer (aref layer-array layer-pos))
		; find out how many we need to move this
		(set! layer-pos layer-movecount)
		(while (> layer-pos 0)
			; move the layer down
			(gimp-image-lower-layer image layer)
			(set! layer-pos (- layer-pos 1))
		)
		(set! layer-count (+ layer-count 1))
		
	)

	(gimp-displays-flush)
	(gimp-image-undo-enable image)
	)
)

(define (script-fu-gimp-layer-group-moveabove image lgname drw)
	(let* ((layers (gimp-image-get-layers image))
		(num-layers (car layers))
		(layer-array (cadr layers))
		(layer-count 0)
		(layer 0)
		(layer-name "")
		(layer-name-group "")
		(lglist '())
		(layer-last 0)
		(layer-pos 0)
		(drw-pos 0)
		(layer-movecount 0))

	(script-fu-gimp-layer-group-sort image lgname)	

	(gimp-image-undo-disable image)

	; procure a list of all the layers
	(set! layer-count 0)
	(set! layer-last 0)
	(while (< layer-count num-layers)
		; check the first word in the name of each layer, if it matches lgname, perform the action
		(set! layer (aref layer-array layer-count))
		(if (equal? layer drw)
			(set! drw-pos layer-count))
		(set! layer-name (car (gimp-layer-get-name layer)))
		(set! layer-name-group (car (strbreakup layer-name " ")))
		(if (equal? layer-name-group lgname)
			; compare the first part of the layer's name with lgname
			; this adds the layers to the list in reverse order
			(set! lglist (cons layer-count lglist)))
		(if (equal? layer-name-group lgname)
			(set! layer-last layer-count))

		(set! layer-count (+ layer-count 1))
	)

	; use this list to find each layer
	(set! num-layers (length lglist))
	(set! layer-movecount (- layer-last drw-pos))
	;(set! layer-movecount (- layer-movecount 1))
	(set! layer-count 0)
	(while (< layer-count num-layers)
		; get the position of the layer in the list
		(set! layer-pos (car lglist))
		(set! lglist (cdr lglist))
		; get the layer
		(set! layer (aref layer-array layer-pos))
		; find out how many we need to move this
		(set! layer-pos layer-movecount)
		(while (> layer-pos 0)
			; move the layer down
			(gimp-image-raise-layer image layer)
			(set! layer-pos (- layer-pos 1))
		)
		(set! layer-count (+ layer-count 1))
		
	)

	(gimp-displays-flush)
	(gimp-image-undo-enable image)
	)
)

(script-fu-register
    "script-fu-gimp-layer-group-show"
    "<Image>/Layer Groups/Show Layer Group"
    "foo"
    "Joseph Miller <josephcmiller2@gmail.com>"
    "2008, Joseph Miller"
    "Thu Mar 20 16:48:26 2008"
    "RGBA RGB INDEXED*"
    SF-IMAGE "Image" 0
    SF-STRING "Layer Group Name" "")

(script-fu-register
    "script-fu-gimp-layer-group-hide"
    "<Image>/Layer Groups/Hide Layer Group"
    "foo"
    "Joseph Miller <josephcmiller2@gmail.com>"
    "2008, Joseph Miller"
    "Thu Mar 20 16:48:26 2008"
    "RGBA RGB INDEXED*"
    SF-IMAGE "Image" 0
    SF-STRING "Layer Group Name" "")

(script-fu-register
    "script-fu-gimp-layer-group-showall"
    "<Image>/Layer Groups/Show All Layers"
    "foo"
    "Joseph Miller <josephcmiller2@gmail.com>"
    "2008, Joseph Miller"
    "Thu Mar 20 16:48:26 2008"
    "RGBA RGB INDEXED*"
    SF-IMAGE "Image" 0)

(script-fu-register
    "script-fu-gimp-layer-group-hideall"
    "<Image>/Layer Groups/Hide All Layers"
    "foo"
    "Joseph Miller <josephcmiller2@gmail.com>"
    "2008, Joseph Miller"
    "Thu Mar 20 16:48:26 2008"
    "RGBA RGB INDEXED*"
    SF-IMAGE "Image" 0)

(script-fu-register
    "script-fu-gimp-layer-group-showallbut"
    "<Image>/Layer Groups/Show All Layers But Group"
    "foo"
    "Joseph Miller <josephcmiller2@gmail.com>"
    "2008, Joseph Miller"
    "Thu Mar 20 16:48:26 2008"
    "RGBA RGB INDEXED*"
    SF-IMAGE "Image" 0
    SF-STRING "Layer Group Name" "")

(script-fu-register
    "script-fu-gimp-layer-group-hideallbut"
    "<Image>/Layer Groups/Hide All Layers But Group"
    "foo"
    "Joseph Miller <josephcmiller2@gmail.com>"
    "2008, Joseph Miller"
    "Thu Mar 20 16:48:26 2008"
    "RGBA RGB INDEXED*"
    SF-IMAGE "Image" 0
    SF-STRING "Layer Group Name" "")

(script-fu-register "script-fu-gimp-layer-group-drop-shadow"
  "<Image>/Layer Groups/Lighting and Shadows/Layer Group Drop Shadow"
  "Add a drop shadow to the selected region (or alpha)"
  "Sven Neumann <sven@gimp.org>"
  "Sven Neumann"
  "1999/12/21"
  "RGB* GRAY*"
  SF-IMAGE      "Image"           0
  SF-STRING "Layer Group Name" ""
  SF-ADJUSTMENT _"Offset X"       '(8 -4096 4096 1 10 0 1)
  SF-ADJUSTMENT _"Offset Y"       '(8 -4096 4096 1 10 0 1)
  SF-ADJUSTMENT _"Blur radius"    '(15 0 1024 1 10 0 1)
  SF-COLOR      _"Color"          "black"
  SF-ADJUSTMENT _"Opacity"        '(80 0 100 1 10 0 0)
  SF-TOGGLE     _"Allow resizing" TRUE
)

(script-fu-register
    "script-fu-gimp-layer-group-link"
    "<Image>/Layer Groups/Link Layer Group"
    "foo"
    "Joseph Miller <josephcmiller2@gmail.com>"
    "2008, Joseph Miller"
    "Thu Mar 20 16:48:26 2008"
    "RGBA RGB INDEXED*"
    SF-IMAGE "Image" 0
    SF-STRING "Layer Group Name" "")

(script-fu-register
    "script-fu-gimp-layer-group-unlinkall"
    "<Image>/Layer Groups/Unlink All"
    "foo"
    "Joseph Miller <josephcmiller2@gmail.com>"
    "2008, Joseph Miller"
    "Thu Mar 20 16:48:26 2008"
    "RGBA RGB INDEXED*"
    SF-IMAGE "Image" 0)

(script-fu-register
    "script-fu-gimp-layer-group-sort"
    "<Image>/Layer Groups/Sort Layer Group Down"
    "Move all layers in a group together, to the bottom-most layer in the group"
    "Joseph Miller <josephcmiller2@gmail.com>"
    "2008, Joseph Miller"
    "Thu Mar 20 16:48:26 2008"
    "RGBA RGB INDEXED*"
    SF-IMAGE "Image" 0
    SF-STRING "Layer Group Name" "")

(script-fu-register
    "script-fu-gimp-layer-group-movebelow"
    "<Image>/Layer Groups/Move Layer Group Below..."
    "Move the layer group below a specified layer"
    "Joseph Miller <josephcmiller2@gmail.com>"
    "2008, Joseph Miller"
    "Thu Mar 20 16:48:26 2008"
    "RGBA RGB INDEXED*"
    SF-IMAGE "Image" 0
    SF-STRING "Layer Group Name" ""
    SF-DRAWABLE "Layer to move below" 0)

(script-fu-register
    "script-fu-gimp-layer-group-moveabove"
    "<Image>/Layer Groups/Move Layer Group Above..."
    "Move the layer group above a specified layer"
    "Joseph Miller <josephcmiller2@gmail.com>"
    "2008, Joseph Miller"
    "Thu Mar 20 16:48:26 2008"
    "RGBA RGB INDEXED*"
    SF-IMAGE "Image" 0
    SF-STRING "Layer Group Name" ""
    SF-DRAWABLE "Layer to move below" 0)