add gimp plugin
This commit is contained in:
parent
feac06b2f3
commit
0c98dcd10f
1 changed files with 40 additions and 0 deletions
40
plugins/gimp-export-all-open-as-one-pdf.scm
Normal file
40
plugins/gimp-export-all-open-as-one-pdf.scm
Normal file
|
@ -0,0 +1,40 @@
|
|||
(define (export-all-open-as-one-pdf)
|
||||
(let* (
|
||||
;; variables for the program to work
|
||||
(list_first (car (gimp-image-list)))
|
||||
(list_second (cadr (gimp-image-list)))
|
||||
(list_reverse (list->vector (reverse (vector->list list_second))))
|
||||
|
||||
;; configurable options (change these):
|
||||
(inDir "Documents/Scans/sch") ; output file directory
|
||||
(inFileName "Combined.pdf") ; output file name
|
||||
|
||||
;; configurable options (these you shouldn't have to change):
|
||||
(isInteractive FALSE) ; this should never be set to true, otherwise it will not work
|
||||
(isVector TRUE) ; whether or not you want to convert bitmaps to vectors when possible
|
||||
(isOmit TRUE) ; whether or not you want to ignore hidden layers
|
||||
(isMask TRUE) ; whether or not you want to apply layer masks before saving
|
||||
)
|
||||
|
||||
(file-pdf-save-multi isInteractive
|
||||
list_first
|
||||
list_reverse
|
||||
isVector
|
||||
isOmit
|
||||
isMask
|
||||
(string-append inDir "/" inFileName)
|
||||
(string-append inDir "/" inFileName)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
(script-fu-register "export-all-open-as-one-pdf"
|
||||
"Export all as one PDF..."
|
||||
"Export all opened images at once as a single PDF"
|
||||
"notfire"
|
||||
"beep"
|
||||
"2024/09/03"
|
||||
"*"
|
||||
)
|
||||
|
||||
(script-fu-menu-register "export-all-open-as-one-pdf" "<Image>/File/Export/")
|
Loading…
Add table
Reference in a new issue