diff options
author | Mark Shoulson <mark@kli.org> | 2016-03-22 10:24:20 -0400 |
---|---|---|
committer | Mark Shoulson <mark@kli.org> | 2016-03-22 10:24:20 -0400 |
commit | 9ca66560b4c11884f0bc23d95231a71b50b2d286 (patch) | |
tree | 3ce5f7f2548917499d500507fa2112f72f7f13e1 /emojitrans2.pl | |
parent | Going over emoji-base (renamed) to allow for more characters. (diff) | |
download | dotXCompose-9ca66560b4c11884f0bc23d95231a71b50b2d286.tar.gz dotXCompose-9ca66560b4c11884f0bc23d95231a71b50b2d286.tar.bz2 dotXCompose-9ca66560b4c11884f0bc23d95231a71b50b2d286.zip |
Added yet more.
Diffstat (limited to 'emojitrans2.pl')
-rwxr-xr-x | emojitrans2.pl | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/emojitrans2.pl b/emojitrans2.pl index 34c8204..4ec9337 100755 --- a/emojitrans2.pl +++ b/emojitrans2.pl @@ -15,6 +15,8 @@ BEGIN { binmode(STDOUT, ":utf8"); '/' => 'slash', '#' => 'numbersign', '@' => 'at', + '|' => 'bar', + '~' => 'asciitilde', ' ' => 'space', ); @@ -38,9 +40,9 @@ sub splitup { unless (/^#/) { my $hold=$_; s/<MM>/<Multi_key> <Multi_key>/; - s({([][[:alnum:] _+%@><,.^\$+#()!/-]+)})(splitup($1))e; - if (length($1) > 7) { - $_=$hold; - s/^<MM>/### <MM>/; - } + s({([][[:alnum:] _+%@><,.^\$+#()!/|~-]+)})(splitup($1))e; + if (length($1) > 7) { + $_=$hold; + s/^<MM>/### <MM>/; + } } |