From c0ddf4cf68cb2cdbe1d1758a9da1080d081058b9 Mon Sep 17 00:00:00 2001
From: Craig Jennings <c@cjennings.net>
Date: Thu, 14 May 2026 10:47:08 -0500
Subject: refactor: clear transcription C-; T menu, move telega launcher to C-;
 T

The transcription menu wasn't earning its top-level keymap slot --
the commands (transcribe-audio, switch-backend, view-transcriptions,
kill-transcription) are run rarely enough that `M-x' is fine.  Drop
the `cj/transcribe-map' keymap, its `(keymap-set cj/custom-keymap
"T" ...)' binding, and the which-key labels.  Commands stay
callable by name.

That frees `C-; T' for telega, where the mnemonic actually fits.
Move the launcher from `C-; G' to `C-; T'.  Update the
which-key label, the module commentary, and the keymap-binding
test assertion.  The dashboard `g' single-letter binding stays put
-- `t' there is vterm, so dashboard letters and the global
`C-;' prefix don't share a key space anyway.
---
 modules/telega-config.el        | 16 ++++++++--------
 modules/transcription-config.el | 27 +++++----------------------
 2 files changed, 13 insertions(+), 30 deletions(-)

(limited to 'modules')

diff --git a/modules/telega-config.el b/modules/telega-config.el
index 1691a95b..789fa533 100644
--- a/modules/telega-config.el
+++ b/modules/telega-config.el
@@ -27,13 +27,13 @@
 ;; the server the install fails with a 404.  Refreshing pulls a current
 ;; index.  This module deliberately sets `:ensure nil' so a stale
 ;; archive doesn't take Emacs init down at startup; if the package
-;; isn't installed yet, `C-; G' will signal a void-function until the
-;; install runs once.
+;; isn't installed yet, `C-; T' surfaces a clear "install telega" error
+;; until the install runs once.
 ;;
-;; Launcher: =C-; G= (mnemonic: teleGram).  Neither =C-; t= (test-runner
-;; menu) nor =C-; m t= (music "repeat track") were available, so the
-;; launcher lives at a free top-level letter rather than under a
-;; messaging sub-prefix.
+;; Launcher: =C-; T= (mnemonic: Telegram).  Previously `C-; G' because
+;; `T' was contested between org-table and transcription menus -- both
+;; have been moved (org-table flattened under `C-; O', transcription
+;; cleared to M-x), so `T' is now telega's outright.
 
 ;;; Code:
 
@@ -63,11 +63,11 @@ pointed at =scripts/setup-telega.sh= and the manual fallback."
      (concat "telega not installed -- run scripts/setup-telega.sh, "
              "or `M-x package-install RET telega'"))))
 
-(keymap-set cj/custom-keymap "G" #'cj/telega)
+(keymap-set cj/custom-keymap "T" #'cj/telega)
 
 (with-eval-after-load 'which-key
   (which-key-add-key-based-replacements
-    "C-; G" "telegram (telega)"))
+    "C-; T" "telegram (telega)"))
 
 (provide 'telega-config)
 ;;; telega-config.el ends here
diff --git a/modules/transcription-config.el b/modules/transcription-config.el
index 91d33a8e..3736835d 100644
--- a/modules/transcription-config.el
+++ b/modules/transcription-config.el
@@ -11,7 +11,7 @@
 ;;   In dired: Press `T` on an audio file to transcribe
 ;;   Anywhere: M-x cj/transcribe-audio
 ;;   View active: M-x cj/transcriptions-buffer
-;;   Switch backend: C-; T b (or M-x cj/transcription-switch-backend)
+;;   Switch backend: M-x cj/transcription-switch-backend
 ;;
 ;; OUTPUT FILES:
 ;;   audio.m4a → audio.txt (transcript)
@@ -380,27 +380,10 @@ Prompts with completing-read to select from available backends."
 (with-eval-after-load 'dirvish
   (define-key dirvish-mode-map (kbd "T") #'cj/transcribe-audio-at-point))
 
-;; ------------------------------- Global Keybindings --------------------------
-
-;; Transcription keymap
-(defvar-keymap cj/transcribe-map
-  :doc "Keymap for transcription operations"
-  "a" #'cj/transcribe-audio
-  "b" #'cj/transcription-switch-backend
-  "v" #'cj/transcriptions-buffer
-  "k" #'cj/transcription-kill)
-
-;; Only set keybinding if cj/custom-keymap is bound (not in batch mode)
-(when (boundp 'cj/custom-keymap)
-  (keymap-set cj/custom-keymap "T" cj/transcribe-map))
-
-(with-eval-after-load 'which-key
-  (which-key-add-key-based-replacements
-    "C-; T" "transcription menu"
-    "C-; T a" "transcribe audio"
-    "C-; T b" "switch backend"
-    "C-; T v" "view transcriptions"
-    "C-; T k" "kill transcription"))
+;; Reach the transcription commands via M-x.  The previous `C-; T'
+;; menu was retired so the top-level slot could go to telega (which
+;; finally has a clean mnemonic at `C-; T' once nothing else is
+;; fighting over the same key).
 
 (provide 'transcription-config)
 ;;; transcription-config.el ends here
-- 
cgit v1.2.3