package Kephra::Plugin::HTMLColor;
our $VERSION = '0.01';

use strict;
use warnings;

use Wx qw(wxC2S_HTML_SYNTAX wxID_CANCEL);

sub choose_color {
    my $ep    = &Kephra::App::EditPanel::_ref;
    my $color = $ep->GetSelectedText || '#ffffff';
    
    $color = sprintf "#%s", $color unless index( $color, '#' ) == 0;

    my $color_obj = Wx::Colour->new( $color );
  
    my $data = Wx::ColourData->new;
    $data->SetColour( $color_obj );
    $data->SetChooseFull( 1 );

    my $dialog = Wx::ColourDialog->new( Kephra::App::Window::_ref(), $data );

    if( $dialog->ShowModal != wxID_CANCEL ) {
        my $data      = $dialog->GetColourData;
        my $ret_color = $data->GetColour;
    
        my $html_color = $ret_color->GetAsString( wxC2S_HTML_SYNTAX );
        $html_color =~ s/^#//;
        $ep->ReplaceSelection( $html_color );
    
    }
}


1;

			color-replace = Kephra::Plugin::HTMLColor::choose_color()

      -
      - item edit-color-replace