; SPDX-FileCopyrightText: 2024 Edward Ly ; ; SPDX-License-Identifier: GPL-3.0-or-later (define (filename-jacket-to-bg filename) (let* ( ; copied from script-fu-util.scm (basename (unbreakupstr (butlast (strbreakup filename ".")) ".")) (baseLength (string-length basename)) ) (if (and (>= baseLength 6) (string-ci=? (substring basename (- baseLength 6)) "jacket")) (string-append (substring basename 0 (- baseLength 6)) "bg.png") (string-append basename "-bg.png") ) ) ) (define (batch-sm-jacket-to-bg pattern) (let* ( (filelist (cadr (file-glob pattern 1))) ) (while (not (null? filelist)) (let* ( (filename (car filelist)) (outFilename (filename-jacket-to-bg filename)) (image (car (gimp-file-load RUN-NONINTERACTIVE filename filename))) (drawable (car (gimp-image-get-active-layer image))) ) (set! drawable (cadr (script-fu-sm-jacket-to-bg image drawable 25 -1.0))) (gimp-file-save RUN-NONINTERACTIVE image drawable outFilename outFilename) (gimp-image-delete image) ) (set! filelist (cdr filelist)) ) (gimp-quit 0) ) )