File Coverage

blib/lib/Padre/Plugin/Encode.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

package Padre::Plugin::Encode;

use strict;
use warnings;

use version; our $VERSION = qv('0.1.3');

use base 'Padre::Plugin';

use Wx         ':everything';
use Wx::Event  ':everything';
use Wx::Locale qw(:default);

use Padre::Wx         ();
use Padre::Wx::Dialog ();
use Padre::Locale     ();

my @ENCODINGS = qw(
    cp932
    cp949
    euc-jp
    euc-kr
    shift-jis
    utf-8
);

sub padre_interfaces {
    'Padre::Plugin' => '0.24',
}

sub menu_plugins_simple {
    'Convert Encoding' => [
        Wx::gettext('Encode document to System Default') => \&encode_document_to_system_default,
        Wx::gettext('Encode document to utf-8')          => \&encode_document_to_utf8,
        Wx::gettext('Encode document to ...')            => \&encode_document_to,
    ];
}

sub encode_document_to_system_default {
    my ( $window, $event ) = @_;

    my $doc = $window->current->document;
    $doc->{encoding} = Padre::Locale::encoding_system_default || 'utf-8';
    $doc->save_file if $doc->filename;
    $window->refresh;

    my $string = 'Encode document to System Default('.$doc->{encoding}.')';
    my $output_panel = $window->{gui}->{output_panel};
    $output_panel->clear;
    $output_panel->AppendText( $string . $/ );
}

sub encode_document_to_utf8 {
    my ( $window, $event ) = @_;

    my $doc = $window->current->document;
    $doc->{encoding} = 'utf-8';
    $doc->save_file if $doc->filename;
    $window->refresh;

    my $string = 'Encode document to '.$doc->{encoding};
    my $output_panel = $window->{gui}->{output_panel};
    $output_panel->clear;
    $output_panel->AppendText( $string . $/ );
}

sub encode_document_to {
    my ( $window, $event ) = @_;

    my @layout = (
        [
            [ 'Wx::StaticText', undef, Wx::gettext('Encode to:') ],
            [ 'Wx::ComboBox', '_encoding_', 'utf-8', \@ENCODINGS, wxCB_READONLY ],
        ],
        [
            [ 'Wx::Button', '_ok_',     Wx::wxID_OK ],
            [ 'Wx::Button', '_cancel_', Wx::wxID_CANCEL ],
        ],
    );

    my $dialog = Padre::Wx::Dialog->new(
        parent => $window,
        title  => gettext(
            "Encode document to..."
        ),
        layout => \@layout,
        width  => [ 100, 200 ],
        bottom => 20,
    );
    $dialog->{_widgets_}{_ok_}->SetDefault;
    Wx::Event::EVT_BUTTON( $dialog, $dialog->{_widgets_}{_ok_}, \&ok_clicked );
    Wx::Event::EVT_BUTTON( $dialog, $dialog->{_widgets_}{_cancel_}, \&cancel_clicked );

    $dialog->{_widgets_}{_encoding_}->SetFocus;
    $dialog->Show(1);

    return 1;
}

sub cancel_clicked {
    my ( $dialog, $event ) = @_;

    $dialog->Destroy;
}

sub ok_clicked {
    my ( $dialog, $event ) = @_;

    my $window = $dialog->GetParent;
    my $data = $dialog->get_data;
    $dialog->Destroy;

    my $doc = $window->current->document;
    $doc->{encoding} = $data->{_encoding_};
    $doc->save_file if $doc->filename;
    $window->refresh;

    my $string = 'Encode document to '.$doc->{encoding};
    my $output_panel = $window->{gui}->{output_panel};
    $output_panel->clear;
    $output_panel->AppendText( $string . $/ );
}

1; # Magic true value required at end of module
__END__