removeUnusedColors.scm

;; License GNU/GPL 
;; Author Jaroslav Meloun

(define (script-fu-remove-unused-colors img drawable)
  (let* (
        )

    (gimp-image-undo-group-start img)

    (gimp-convert-rgb img)
    (gimp-image-convert-indexed 
      img
      0
      0
      255
      FALSE
      TRUE
      ""
    )

    (gimp-image-undo-group-end img)
    (gimp-displays-flush)
  )
)

(script-fu-register "script-fu-remove-unused-colors"
  _"Remove unused indexed colors"
  _"Remove unused indexed colors"
  "Jaroslav Meloun"
  "Jaroslav Meloun"
  "2017"
  "*"
  SF-IMAGE    "Image"    0
  SF-DRAWABLE "Drawable" 0
)

(script-fu-menu-register "script-fu-remove-unused-colors"
                         "<Image>/Colors")