diff options
| author | Mark Shoulson <mark@kli.org> | 2016-03-17 21:21:56 -0400 |
|---|---|---|
| committer | Mark Shoulson <mark@kli.org> | 2016-03-17 21:24:36 -0400 |
| commit | 985c78396272e460deb52c8729bd57a5706e404e (patch) | |
| tree | 74ff05210b354fbb0af920e8fc1ad1e893b367ca /emojitrans2.pl | |
| parent | Add new Emoji file and support. (diff) | |
| download | dotXCompose-985c78396272e460deb52c8729bd57a5706e404e.tar.gz dotXCompose-985c78396272e460deb52c8729bd57a5706e404e.tar.bz2 dotXCompose-985c78396272e460deb52c8729bd57a5706e404e.zip | |
Add some missed emoji, add conventions to interim, add sorter,
add emoji.compose, even though it's derived.
Diffstat (limited to 'emojitrans2.pl')
| -rwxr-xr-x | emojitrans2.pl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/emojitrans2.pl b/emojitrans2.pl index 2637c19..a4676b6 100755 --- a/emojitrans2.pl +++ b/emojitrans2.pl @@ -35,6 +35,11 @@ sub splitup { } unless (/^#/) { + my $hold=$_; s/<MM>/<Multi_key> <Multi_key>/; s({([][[:alnum:] _+%@><,.^\$+#()!/-]+)})(splitup($1))e; + if (length($1) > 7) { + $_=$hold; + s/^<MM>/### <MM>/; + } } |