From 3141253b997016096d93a88d0291b4f55ccecc31 Mon Sep 17 00:00:00 2001
From: Simon Parri <simonparri@ganzeria.com>
Date: Sat, 22 Nov 2025 12:14:29 -0600
Subject: Emacs/EXWM: Add mobile buttons and gestures to prefix keys

---
 common/.emacs.d/init.el | 41 ++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 40 insertions(+), 1 deletion(-)

diff --git a/common/.emacs.d/init.el b/common/.emacs.d/init.el
index ee462aa..a0b7678 100644
--- a/common/.emacs.d/init.el
+++ b/common/.emacs.d/init.el
@@ -4320,7 +4320,46 @@ instead."
   (exwm-randr-mode)
   (cl-pushnew ?\H-o exwm-input-prefix-keys)
   (cl-pushnew ?\H-c exwm-input-prefix-keys)
-  (cl-pushnew ?\M-! exwm-input-prefix-keys))
+  (cl-pushnew ?\M-! exwm-input-prefix-keys)
+
+  (cl-pushnew (kbd "<XF86Launch0>") exwm-input-prefix-keys)
+  (cl-pushnew (kbd "S-<XF86Launch0>") exwm-input-prefix-keys)
+  (cl-pushnew (kbd "<XF86Launch0>") exwm-input-prefix-keys)
+  (cl-pushnew (kbd "S-<XF86Launch0>") exwm-input-prefix-keys)
+  (cl-pushnew (kbd "<XF86Launch1>") exwm-input-prefix-keys)
+  (cl-pushnew (kbd "S-<XF86Launch1>") exwm-input-prefix-keys)
+  (cl-pushnew (kbd "<XF86Launch2>") exwm-input-prefix-keys)
+  (cl-pushnew (kbd "S-<XF86Launch2>") exwm-input-prefix-keys)
+  (cl-pushnew (kbd "<XF86Launch3>") exwm-input-prefix-keys)
+  (cl-pushnew (kbd "S-<XF86Launch3>") exwm-input-prefix-keys)
+  (cl-pushnew (kbd "<XF86Launch4>") exwm-input-prefix-keys)
+  (cl-pushnew (kbd "S-<XF86Launch4>") exwm-input-prefix-keys)
+  (cl-pushnew (kbd "<XF86Launch5>") exwm-input-prefix-keys)
+  (cl-pushnew (kbd "S-<XF86Launch5>") exwm-input-prefix-keys)
+  (cl-pushnew (kbd "<XF86Launch6>") exwm-input-prefix-keys)
+  (cl-pushnew (kbd "S-<XF86Launch6>") exwm-input-prefix-keys)
+  (cl-pushnew (kbd "<XF86Launch7>") exwm-input-prefix-keys)
+  (cl-pushnew (kbd "S-<XF86Launch7>") exwm-input-prefix-keys)
+  (cl-pushnew (kbd "<XF86Launch8>") exwm-input-prefix-keys)
+  (cl-pushnew (kbd "S-<XF86Launch8>") exwm-input-prefix-keys)
+  (cl-pushnew (kbd "<XF86Launch9>") exwm-input-prefix-keys)
+  (cl-pushnew (kbd "S-<XF86Launch9>") exwm-input-prefix-keys)
+  (cl-pushnew (kbd "<XF86Launch10>") exwm-input-prefix-keys)
+  (cl-pushnew (kbd "S-<XF86Launch10>") exwm-input-prefix-keys)
+  (cl-pushnew (kbd "<XF86Launch11>") exwm-input-prefix-keys)
+  (cl-pushnew (kbd "S-<XF86Launch11>") exwm-input-prefix-keys)
+  (cl-pushnew (kbd "<XF86Launch12>") exwm-input-prefix-keys)
+  (cl-pushnew (kbd "S-<XF86Launch12>") exwm-input-prefix-keys)
+  (cl-pushnew (kbd "<XF86Launch13>") exwm-input-prefix-keys)
+  (cl-pushnew (kbd "S-<XF86Launch13>") exwm-input-prefix-keys)
+  (cl-pushnew (kbd "<XF86Launch14>") exwm-input-prefix-keys)
+  (cl-pushnew (kbd "S-<XF86Launch14>") exwm-input-prefix-keys)
+  (cl-pushnew (kbd "<XF86Launch15>") exwm-input-prefix-keys)
+  (cl-pushnew (kbd "S-<XF86Launch15>") exwm-input-prefix-keys)
+
+  (cl-pushnew (kbd "<XF86PowerOff>") exwm-input-prefix-keys)
+  (cl-pushnew (kbd "<XF86AudioLowerVolume>") exwm-input-prefix-keys)
+  (cl-pushnew (kbd "<XF86AudioRaiseVolume>") exwm-input-prefix-keys))
 
 (use-package exwm-randr
   :if (group-enabled-p 'exwm)
-- 
cgit v1.2.3