diff options
| author | Mark E. Shoulson <mark@kli.org> | 2020-06-01 12:57:29 -0400 |
|---|---|---|
| committer | Mark E. Shoulson <mark@kli.org> | 2021-07-20 15:13:38 -0400 |
| commit | cccfd0dd236586e9ad1f28b62dde6e417cb9bc69 (patch) | |
| tree | a3350ac170c7f7ce41d4777747e118e83317d9ce /emojitrans2.pl | |
| parent | Merge branch 'master' (diff) | |
| parent | A bunch more emoji, including some new ones. (diff) | |
| download | dotXCompose-cccfd0dd236586e9ad1f28b62dde6e417cb9bc69.tar.gz dotXCompose-cccfd0dd236586e9ad1f28b62dde6e417cb9bc69.tar.bz2 dotXCompose-cccfd0dd236586e9ad1f28b62dde6e417cb9bc69.zip | |
Merge branch 'master'
Diffstat (limited to 'emojitrans2.pl')
| -rwxr-xr-x | emojitrans2.pl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/emojitrans2.pl b/emojitrans2.pl index 420129f..4ee9eac 100755 --- a/emojitrans2.pl +++ b/emojitrans2.pl @@ -52,6 +52,11 @@ BEGIN { binmode(STDOUT, ":utf8"); '˅' => 'Insert', # it'll do. ); + $specials = join "", keys %specials; + # Because of reasons + $specials =~ s/[]\\-]/\\$&/g; + $RE = qr{([[:alnum:]$specials]+)}; + sub splitup { my $arg=shift; local $_; @@ -73,7 +78,7 @@ unless (/^#/) { my $hold=$_; s/<M_>/<Multi_key>/; s/<MM>/<Multi_key> <Multi_key>/; - s({([][[:alnum:] _+:;%@>=`<,.^\$+#()?&!/|'"\\~*{}♫-]+)})(splitup($1))e; + s({($RE)})(splitup($1))e; if (length($1) > 7) { $_=$hold; s/^<M([M_])>/### <M$1>/; |