--- /dev/null
+(define (batch-whiteboard-clean pattern)
+ (let* ((filelist (cadr (file-glob pattern 1))))
+ (while (not (null? filelist))
+ (let* ((filename (car filelist))
+ (image (car (gimp-file-load RUN-NONINTERACTIVE
+ filename filename)))
+ (drawable (car (gimp-image-get-active-layer image))))
+ (plug-in-dog RUN-NONINTERACTIVE
+ image drawable 6.0 2.0 FALSE TRUE)
+ (plug-in-c-astretch RUN-NONINTERACTIVE
+ image drawable)
+ (gimp-file-save RUN-NONINTERACTIVE
+ image drawable filename filename)
+ (gimp-image-delete image))
+ (set! filelist (cdr filelist)))))
+
--- /dev/null
+gimp -i -b '(batch-whiteboard-clean "*.png")' -b '(gimp-quit 0)'
+
+# from sites:
+# http://matthew.mceachen.us/blog/how-to-clean-up-photos-of-whiteboards-with-gimp-403.html
+# http://registry.gimp.org/node/19822
+
# checks in all the folders present in the REPOSITORY_LIST variable.
+source "$FEISTY_MEOW_SCRIPTS/core/functions.sh"
source "$FEISTY_MEOW_SCRIPTS/rev_control/rev_control.sh"
# selects the method for check-in based on where we are.
# gets any updates for the repository folders present in the REPOSITORY_LIST variable.
+source "$FEISTY_MEOW_SCRIPTS/core/functions.sh"
source "$FEISTY_MEOW_SCRIPTS/rev_control/rev_control.sh"
# trickery to ensure we can always update this file, even when the operating system has some