Fix control keys on keyboard mode

1 files changed, 30 insertions, 1 deletions

diff --git a/src/main.c b/src/main.c
index 17e0127..b075f4a 100644
--- a/src/main.c
+++ b/src/main.c
@@ -288,7 +288,36 @@ handle_input(Uxn *u) {
             update_cursor(cursor_position + KEYBOARD_ROW_SIZE);
         }
         if (key_tap(KEY_B)) {
-                        devctrl->dat[3] = keyboard[cursor_position].symbol;
+            u8 symbol = keyboard[cursor_position].symbol;
+            switch (symbol) {
+                case 0x7f: {
+                    // Backspace.
+                    devctrl->dat[3] = 0x08;
+                } break;
+                case 0x14: {
+                    // New line.
+                    devctrl->dat[3] = 0x0d;
+                } break;
+                case 0x18: {
+                    // Arrow up.
+                    devctrl->dat[2] = 0x10;
+                } break;
+                case 0x19: {
+                    // Arrow down.
+                    devctrl->dat[2] = 0x20;
+                } break;
+                case 0x1b: {
+                    // Arrow left.
+                    devctrl->dat[2] = 0x40;
+                } break;
+                case 0x1a: {
+                    // Arrow right.
+                    devctrl->dat[2] = 0x80;
+                } break;
+                default: {
+                    devctrl->dat[3] = symbol;
+                } break;
+            }
             evaluxn(u, mempeek16(devctrl->dat, 0));
             devctrl->dat[3] = 0;
         }