diff options
| author | Mark Shoulson <mark@kli.org> | 2016-03-22 13:01:24 -0400 |
|---|---|---|
| committer | Mark Shoulson <mark@kli.org> | 2016-03-23 10:32:09 -0400 |
| commit | 701e8bf43829662a24ff1ecb6e8a0805573d4f6f (patch) | |
| tree | ff2d4ed05af48982ce17c84918162e64a11abae9 /emojitrans2.pl | |
| parent | Did "heart" emoji, using <3 mnemonic. (diff) | |
| download | dotXCompose-701e8bf43829662a24ff1ecb6e8a0805573d4f6f.tar.gz dotXCompose-701e8bf43829662a24ff1ecb6e8a0805573d4f6f.tar.bz2 dotXCompose-701e8bf43829662a24ff1ecb6e8a0805573d4f6f.zip | |
First pass for faces, using () mnemonic for some, anyway.
Diffstat (limited to 'emojitrans2.pl')
| -rwxr-xr-x | emojitrans2.pl | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/emojitrans2.pl b/emojitrans2.pl index 4ec9337..692de27 100755 --- a/emojitrans2.pl +++ b/emojitrans2.pl @@ -17,6 +17,14 @@ BEGIN { binmode(STDOUT, ":utf8"); '@' => 'at', '|' => 'bar', '~' => 'asciitilde', + '(' => 'parenleft', + ')' => 'parenright', + '[' => 'bracketleft', + ']' => 'bracketright', + "'" => 'apostrophe', + '\\' => 'backslash', + ':' => 'colon', + ';' => 'semicolon', ' ' => 'space', ); @@ -40,7 +48,7 @@ sub splitup { unless (/^#/) { my $hold=$_; s/<MM>/<Multi_key> <Multi_key>/; - s({([][[:alnum:] _+%@><,.^\$+#()!/|~-]+)})(splitup($1))e; + s({([][[:alnum:] _+:;%@><,.^\$+#()?!/|'\\~-]+)})(splitup($1))e; if (length($1) > 7) { $_=$hold; s/^<MM>/### <MM>/; |