use Gimp; use Gimp::Fu; #Gimp::set_trace(TRACE_ALL); register "pngify", "Save this image as a PNG", "Save this image as a PNG, so that you don't have to go through million s of dialogs.", "Sam Vilain", "Sam Vilain", "1.0", N_"/File/Save as PNG", "RGB*, GRAY*", [ ], sub { my($img,$drawable)=@_; my $fn = $img->get_filename; $img = $img->duplicate; #eval { $img->undo_group_start }; $drawable = $img->flatten; $fn =~ s{\.\w+}{.png} or die; $img->file_png_save_defaults($drawable, $fn, $fn); #eval { $img->undo_group_end }; undef; }; exit main;