GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-20 02:49:49 +01:00
Code Issues Projects Releases Wiki Activity

Plugin/FuncBuiltins: Add ana function to explicitly fix-up a/an articles

Browse Source
This commit is contained in:
Pragmatic Software 2021-08-23 13:36:11 -07:00
parent b638757f92
commit ebb209549a
2 changed files with 35 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
lib/PBot/Plugin/FuncBuiltins.pm
View File

@ -10,6 +10,10 @@ use parent 'PBot::Plugin::Base';
use PBot::Imports; use PBot::Imports;
use PBot::Core::Utils::Indefinite;
use URI::Escape qw/uri_escape_utf8/;
sub initialize { sub initialize {
my ($self, %conf) = @_; my ($self, %conf) = @_;
$self->{pbot}->{functions}->register( $self->{pbot}->{functions}->register(
@ -60,6 +64,14 @@ sub initialize {
subref => sub { $self->func_uri_escape(@_) } subref => sub { $self->func_uri_escape(@_) }
} }
); );
$self->{pbot}->{functions}->register(
'ana',
{
desc => 'fix-up a/an article at front of text',
usage => 'ana <text>',
subref => sub { $self->func_ana(@_) }
}
);
} }
sub unload { sub unload {
@ -70,6 +82,7 @@ sub unload {
$self->{pbot}->{functions}->unregister('lc'); $self->{pbot}->{functions}->unregister('lc');
$self->{pbot}->{functions}->unregister('unquote'); $self->{pbot}->{functions}->unregister('unquote');
$self->{pbot}->{functions}->unregister('uri_escape'); $self->{pbot}->{functions}->unregister('uri_escape');
$self->{pbot}->{functions}->unregister('ana');
} }
sub func_unquote { sub func_unquote {
@ -107,12 +120,30 @@ sub func_lc {
return lc $text; return lc $text;
} }
use URI::Escape qw/uri_escape_utf8/;
sub func_uri_escape { sub func_uri_escape {
my $self = shift; my $self = shift;
my $text = "@_"; my $text = "@_";
return uri_escape_utf8($text); return uri_escape_utf8($text);
} }
sub func_ana {
my $self = shift;
my $text = "@_";
if ($text =~ s/\b(an?)(\s+)//i) {
my ($article, $spaces) = ($1, $2);
my $fixed_article = select_indefinite_article $text;
if ($article eq 'AN') {
$fixed_article = uc $fixed_article;
} elsif ($article eq 'An' or $article eq 'A') {
$fixed_article = ucfirst $fixed_article;
}
$text = $fixed_article . $spaces . $text;
}
return $text;
}
1; 1;

4
lib/PBot/VERSION.pm
View File

@ -25,8 +25,8 @@ use PBot::Imports;
# These are set by the /misc/update_version script # These are set by the /misc/update_version script
use constant { use constant {
BUILD_NAME => "PBot", BUILD_NAME => "PBot",
BUILD_REVISION => 4359, BUILD_REVISION => 4361,
BUILD_DATE => "2021-08-22", BUILD_DATE => "2021-08-23",
}; };
sub initialize {} sub initialize {}