GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2025-10-15 15:37:22 +02:00
Code Issues Projects Releases Wiki Activity

Factoids: add quick-and-dirty early version of :join() modifier with many broken edge cases

Browse Source
This commit is contained in:
Pragmatic Software 2020-06-03 20:47:18 -07:00
parent 128c3014c7
commit 20febe7ccd
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
PBot/Factoids.pm
View File

@ -467,6 +467,10 @@ sub select_item {
$settings{'trailing-punct'} = $1; $settings{'trailing-punct'} = $1;
} }
if ($mod =~ /^join\((.?)\)$/) {
$settings{'join'} = $1;
}
if ($mod eq 'comma') { if ($mod eq 'comma') {
$settings{'comma'} = 1; $settings{'comma'} = 1;
next; next;
@ -570,7 +574,10 @@ sub select_item {
return @choices if wantarray; return @choices if wantarray;
if ($settings{'enumerate'} or $settings{'comma'}) { if (exists $settings{'join'}) {
my $sep = $settings{'join'};
$item = join $sep, @choices;
} elsif ($settings{'enumerate'} or $settings{'comma'}) {
$item = join ', ', @choices; $item = join ', ', @choices;
$item =~ s/(.*), /$1 and / if $settings{'enumerate'}; $item =~ s/(.*), /$1 and / if $settings{'enumerate'};
} else { } else {