File Coverage

lib/Kephra/Edit/Convert.pm

Criterion	Covered	Total	%
statement	6	80	7.5
branch	0	12	0.0
condition			n/a
subroutine	2	23	8.7
pod	0	12	0.0
total	8	127	6.3

package Kephra::Edit::Convert;
our $VERSION = '0.10';

use strict;
use warnings;
# wrapper method for the always same preparation and afterwork
sub _default {
	my $action = shift;
	return until ref $action eq 'CODE';
	my $ep = Kephra::App::EditPanel::_ref();
	Kephra::EventTable::freeze_group('edit');
	my ($begin, $end) = $ep->GetSelection;
	Kephra::Edit::_save_positions();
	$ep->BeginUndoAction;
	$ep->SelectAll if $begin == $end;
	&$action( $ep );
	$ep->EndUndoAction;
	Kephra::Edit::_restore_positions();
	Kephra::EventTable::thaw_group('edit');
}

# perform regexes on selection
sub _tr {
	my ($dir, @arg) = @_;
	my ($fi, $ti);
	($fi, $ti) = $dir eq 'fore' ? (0,1) : (1,0);
	_default( sub {
		my $ep = shift;
		my $text = $ep->GetSelectedText();
		$text =~ s/$_->[$fi]/$_->[$ti]/g for @arg;
		$ep->ReplaceSelection($text);
	} );
}
#
# external calls
#
sub upper_case {_default( sub{ shift->CmdKeyExecute(&Wx::wxSTC_CMD_UPPERCASE) } )}
sub lower_case {_default( sub{ shift->CmdKeyExecute(&Wx::wxSTC_CMD_LOWERCASE) } )}
sub title_case {_default( sub{
		my $ep = shift;
		my ($sel_end, $pos) = ($ep->GetSelectionEnd, 0);
		$ep->SetCurrentPos( $ep->GetSelectionStart - 1 );
		while () {
			$ep->CmdKeyExecute(&Wx::wxSTC_CMD_WORDRIGHT);
			$pos = $ep->GetCurrentPos;
			last if $sel_end <= $pos;
			$ep->SetSelection( $pos, $pos + 1 );
			$ep->CmdKeyExecute(&Wx::wxSTC_CMD_UPPERCASE);
		}
} )}

sub sentence_case { _default( sub{
		my $ep = shift;
		my $line;
		my ($sel_end, $pos) = ($ep->GetSelectionEnd, 0);
		$ep->SetCurrentPos( $ep->GetSelectionStart() - 1 );
		while () {
			$ep->CmdKeyExecute(&Wx::wxSTC_CMD_WORDRIGHT);
			$pos  = $ep->GetCurrentPos;
			$line = $ep->LineFromPosition($pos);
			if ($pos == $ep->GetLineEndPosition( $ep->LineFromPosition($pos) )) {
				$ep->CmdKeyExecute(&Wx::wxSTC_CMD_WORDRIGHT);
				$pos = $ep->GetCurrentPos;
			}
			last if $sel_end <= $pos;
			$ep->SetSelection( $pos, $pos + 1 );
			$ep->CmdKeyExecute(&Wx::wxSTC_CMD_UPPERCASE);
			$ep->SetCurrentPos( $pos + 1 );
			$ep->SearchAnchor;
			last if $ep->SearchNext( 0, "." ) == -1 ;
		}
} )}
#
#
#
sub _tabs2spaces { [' ' x Kephra::App::EditPanel::_ref()->GetTabWidth, "\t"] }
sub spaces2tabs { _tr('fore', _tabs2spaces()) }
sub tabs2spaces { _tr('back', _tabs2spaces()) }
#
#
#
sub indent2tabs   { _indention(1) }
sub indent2spaces { _indention(0) }
sub _indention {
	my $indention = shift;
	my $ep = Kephra::App::EditPanel::_ref();
	my ($begin, $end) = $ep->GetSelection;
	my $use_tabs = $ep->GetUseTabs;
	my $i;
	$ep->SetUseTabs($indention);
	$ep->BeginUndoAction();
	for ($ep->LineFromPosition($begin) .. $ep->LineFromPosition($end)) {
		$i = $ep->GetLineIndentation($_);
		$ep->SetLineIndentation( $_, $i + 1 );
		$ep->SetLineIndentation( $_, $i );
	}
	$ep->EndUndoAction;
	$ep->SetUseTabs($use_tabs);
}
#
# HTML enteties
#
my $space2entety = [' ',' '];
my @char2entity = (
	['à','à'],['á','á'],['â','â'],['ä','ä'],
	['À','À'],['Á','Á'],['Â','Â'],['Ä','Ä'],
	['ã','ã'],['å','å'],['Ã','Ã'],['Å','Å'],
	['æ','æ'], ['Æ','Æ'],['ç','ç'],['Ç','Ç'],
	['è','è'],['é','é'],['ê','ê'],['ë','ë'],
	['È','È'],['É','É'],['Ê','Ê'],['Ë','Ë'],
	['ð','ð'],   ['Ð','Ð'],
	['ì','ì'],['í','í'],['î','î'],['ï','ï'],
	['Ì','Ì'],['Í','Í'],['Î','Î'],['Ï','Ï'],
	['µ','µ'], ['ñ','ñ'],['Ñ','ñ'],
	['ò','ò'],['ó','ó'],['ô','ô'],['ö','ö'],
	['Ò','Ò'],['Ó','Ó'],['Ô','Ô'],['Ö','Ö'],
	['õ','õ'],['ø','ø'],['Õ','Õ'],['Ø','Ø'],
	['ù','ù'],['ú','ú'],['û','û'],['ü','ü'],
	['Ù','Ù'],['Ú','Ú'],['Û','Û'],['Ü','Ü'],
	['ý','ý'],['Ý','Ý'],['ÿ','ÿ'],
	['þ','þ'], ['Þ','Þ'], ['ß','ß'],
	['Š','¦'],['Ž','´'], ['ž','¸'],['š','¨'],
	['·','·'],['¯','¯'],
	['«','«'], ['»','»'], ['¡','¡'],['¿','¿'],
	['±','±'],['×','×'], ['÷','÷'],
	['¬','¬'],   ['°','°'],   ['º','º'], ['ª','ª'],
	['¹','¹'],  ['²','²'],  ['³','³'],
	['Œ','¼'],['œ','½'],['Ÿ','¾'],
	['€','¤'],['¢','¢'],  ['£','£'],['¥','¥'],
	['§','§'],  ['¶','¶'],  ['©','©'], ['®','®'],
);
sub spaces2entities { _tr('fore', $space2entety) }
sub entities2spaces { _tr('back', $space2entety) }
sub chars2entities  { _tr('fore', @char2entity) }
sub entities2chars  { _tr('back', @char2entity) }

1;
__END__