aboutsummaryrefslogtreecommitdiff
path: root/compose2html
diff options
context:
space:
mode:
Diffstat (limited to 'compose2html')
-rw-r--r--compose2html24
1 files changed, 21 insertions, 3 deletions
diff --git a/compose2html b/compose2html
index 1e33326..2d1533a 100644
--- a/compose2html
+++ b/compose2html
@@ -54,8 +54,10 @@ my %glyph = (
acute => '`',
ampersand => '&',
apostrophe => q{'},
+ asciicircum => '^',
+ asciitilde => '~',
asterisk => '*',
- 'at' => '@',
+ at => '@',
backslash => '\\',
BackSpace => '␈',
bar => '|',
@@ -65,11 +67,12 @@ my %glyph = (
bracketright => ']',
colon => ':',
comma => ',',
+ division => '/',
dollar => '$',
Down => '↓',
equal => '=',
exclam => '!',
- # grave => '???',
+ grave => q{'},
greater => '>',
Left => '←',
less => '<',
@@ -90,6 +93,21 @@ my %glyph = (
tilde => '~',
underscore => '_',
Up => '↑',
+ KP_1 => '1⃣',
+ KP_2 => '2⃣',
+ KP_3 => '3⃣',
+ KP_4 => '4⃣',
+ KP_5 => '5⃣',
+ KP_6 => '6⃣',
+ KP_7 => '7⃣',
+ KP_8 => '8⃣',
+ KP_9 => '9⃣',
+ KP_0 => '0⃣',
+ #KP_Space => '␣⃣', # this seems to be used as equivalent to KP_2
+ KP_Equal => '=⃣',
+ KP_Divide => '/⃣',
+ KP_Add => '+⃣',
+ KP_Multiply => '*⃣',
);
sub to_presentation_form {
@@ -99,7 +117,7 @@ sub to_presentation_form {
@keys = map {
length($_)==1
? $_
- : ($glyph{$_} // ++$unmapped);
+ : ($glyph{$_} // do { warn "What's a <$_>??";++$unmapped });
} @keys;
if ($unmapped) {
();