From 4a1ecf647270e49da1a185f4d52c2553e1fedba8 Mon Sep 17 00:00:00 2001
From: Craig Jennings <c@cjennings.net>
Date: Fri, 12 Jun 2026 10:07:09 -0500
Subject: fix(keys): bind eww/elfeed/calibredb launchers to the uppercase Meta
 event

Meta+Shift+<letter> emits the uppercase event (M-E/M-R/M-B), so the M-S-e/M-S-r/M-S-b :bind specs on lowercase letters were never reached by the keychord and the three launchers were dead. Rebind them to M-E/M-R/M-B. Three ERT tests assert each chord resolves to eww, cj/elfeed-open, and calibredb respectively.
---
 modules/calibredb-epub-config.el | 2 +-
 modules/elfeed-config.el         | 2 +-
 modules/eww-config.el            | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'modules')

diff --git a/modules/calibredb-epub-config.el b/modules/calibredb-epub-config.el
index a17bf8c91..20262e6e4 100644
--- a/modules/calibredb-epub-config.el
+++ b/modules/calibredb-epub-config.el
@@ -112,7 +112,7 @@ which re-applies `calibredb-search-filter' instead."
 (use-package calibredb
   :commands calibredb
   :bind
-  ("M-S-b" . calibredb)  ;; was M-B, overrides backward-word
+  ("M-B" . calibredb)  ;; Meta+Shift+b emits the uppercase event; overrides backward-word
   ;; use built-in filter by tag, add clear-filters
   (:map calibredb-search-mode-map
 		("l" . calibredb-filter-by-tag)
diff --git a/modules/elfeed-config.el b/modules/elfeed-config.el
index ad7bda83a..4f4089157 100644
--- a/modules/elfeed-config.el
+++ b/modules/elfeed-config.el
@@ -33,7 +33,7 @@
 
 (use-package elfeed
   :bind
-  ("M-S-r" . cj/elfeed-open)  ;; was M-R
+  ("M-R" . cj/elfeed-open)  ;; Meta+Shift+r emits the uppercase event
   (:map elfeed-show-mode-map
         ("w"  . eww-open-in-new-buffer))
   (:map elfeed-search-mode-map
diff --git a/modules/eww-config.el b/modules/eww-config.el
index 066fae989..18648c1ba 100644
--- a/modules/eww-config.el
+++ b/modules/eww-config.el
@@ -67,7 +67,7 @@
 (use-package eww
   :ensure nil ;; built-in
   :bind
-  (("M-S-e" . eww)  ;; was M-E, overrides forward-sentence
+  (("M-E" . eww)  ;; Meta+Shift+e emits the uppercase event; overrides forward-sentence
    :map eww-mode-map
    ("<" . eww-back-url)
    (">" . eww-forward-url)
-- 
cgit v1.2.3