map more weird X11 key names

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) {
             ();