diff options
| author | Mark Shoulson <mark@kli.org> | 2016-03-22 10:25:00 -0400 |
|---|---|---|
| committer | Mark Shoulson <mark@kli.org> | 2016-03-22 10:25:00 -0400 |
| commit | 3322698e0d8b18925acdcf4a8a2db0b3b1eaa945 (patch) | |
| tree | 3ce5f7f2548917499d500507fa2112f72f7f13e1 /emojitrans2.pl | |
| parent | Merge branch 'master' of ssh://ftp.meson.org/home/mark/xcompose (diff) | |
| parent | Added yet more. (diff) | |
| download | dotXCompose-3322698e0d8b18925acdcf4a8a2db0b3b1eaa945.tar.gz dotXCompose-3322698e0d8b18925acdcf4a8a2db0b3b1eaa945.tar.bz2 dotXCompose-3322698e0d8b18925acdcf4a8a2db0b3b1eaa945.zip | |
Merge branch 'master' of ssh://ftp.meson.org/home/mark/xcompose
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>/; + } } |