Fixed caps lock key handling.

2 files changed, 7 insertions, 2 deletions

diff --git a/core/events.lua b/core/events.lua
index dcaf5716..8cfa6e9f 100644
--- a/core/events.lua
+++ b/core/events.lua
@@ -153,6 +153,7 @@ local M = {}
 --   * _`ctrl`_: The "Control" modifier key is held down.
 --   * _`alt`_: The "Alt"/"Option" modifier key is held down.
 --   * _`meta`_: The "Command" modifier key on Mac OSX is held down.
+--   * _`caps_lock`_: The "Caps Lock" modifier is on.
 -- @field MARGIN_CLICK (string)
 --   Emitted when clicking the mouse inside a sensitive margin.
 --   Arguments:
diff --git a/core/keys.lua b/core/keys.lua
index 6187b466..27ccfa91 100644
--- a/core/keys.lua
+++ b/core/keys.lua
@@ -195,9 +195,13 @@ end
 -- @param control Whether or not the Control modifier is pressed.
 -- @param alt Whether or not the Alt/option modifier is pressed.
 -- @param meta Whether or not the Command modifier on Mac OSX is pressed.
+-- @param caps_lock Whether or not Caps Lock is enabled.
 -- @return `true` to stop handling the key; `nil` otherwise.
-local function keypress(code, shift, control, alt, meta)
-  --print(code, M.KEYSYMS[code], shift, control, alt, meta)
+local function keypress(code, shift, control, alt, meta, caps_lock)
+  --print(code, M.KEYSYMS[code], shift, control, alt, meta, caps_lock)
+  if caps_lock and (shift or control or alt or meta) and code < 256 then
+    code = string[shift and 'upper' or 'lower'](string.char(code)):byte()
+  end
   local key = code < 256 and (not CURSES or (code ~= 7 and code ~= 13)) and
               string.char(code) or M.KEYSYMS[code]
   if not key then return end