diff options
| author | Craig Jennings <c@cjennings.net> | 2026-05-14 10:47:08 -0500 |
|---|---|---|
| committer | Craig Jennings <c@cjennings.net> | 2026-05-14 10:47:08 -0500 |
| commit | c0ddf4cf68cb2cdbe1d1758a9da1080d081058b9 (patch) | |
| tree | a5fff8cb6eaa33f87b35b8fdb2e03699fd03646c /modules | |
| parent | fcdea7f0fcc20b1980ee0ee3fc0ba6159c0cf86e (diff) | |
| download | dotemacs-c0ddf4cf68cb2cdbe1d1758a9da1080d081058b9.tar.gz dotemacs-c0ddf4cf68cb2cdbe1d1758a9da1080d081058b9.zip | |
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.
Diffstat (limited to 'modules')
| -rw-r--r-- | modules/telega-config.el | 16 | ||||
| -rw-r--r-- | modules/transcription-config.el | 27 |
2 files changed, 13 insertions, 30 deletions
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 |
