keyboard: map caps lock to control/escape

2 files changed, 24 insertions, 1 deletions

diff --git a/modules/workstation/hardware/default.nix b/modules/workstation/hardware/default.nix
index a81508c7ed3b..bd5bd9ce12e8 100644
--- a/modules/workstation/hardware/default.nix
+++ b/modules/workstation/hardware/default.nix
@@ -1,6 +1,17 @@
-{ ... }:
+{ pkgs, config, ... }:
 
+let
+  xcfg = config.services.xserver;
+
+in
 {
   i18n.consoleUseXkbConfig = true;
   services.xserver.layout = "dvorak";
+  services.xserver.xkbOptions = "ctrl:nocaps";
+
+  environment.variables.XKB_DEFAULT_LAYOUT = xcfg.layout;
+  environment.variables.XKB_DEFAULT_OPTIONS = xcfg.xkbOptions;
+
+  services.evscript.enable = true;
+  services.evscript.script = ./events.dyon;
 }
diff --git a/modules/workstation/hardware/events.dyon b/modules/workstation/hardware/events.dyon
new file mode 100644
index 000000000000..2d8c8bfa87df
--- /dev/null
+++ b/modules/workstation/hardware/events.dyon
@@ -0,0 +1,12 @@
+//! [events]
+//! keys = ['ESC']
+fn main() ~ evdevs, uinput {
+    should_esc := false
+    loop {
+        evts := next_events(evdevs)
+        for i {
+            evt := evts[i]
+            xcape(mut should_esc, evt, KEY_CAPSLOCK(), [KEY_ESC()])
+        }
+    }
+}