diff options
| author | Craig Jennings <c@cjennings.net> | 2026-07-08 11:46:21 -0500 |
|---|---|---|
| committer | Craig Jennings <c@cjennings.net> | 2026-07-08 11:46:21 -0500 |
| commit | 0bb5e68cf3edfbb9389318246a3af99645ceabce (patch) | |
| tree | 9815e8cdd2a1eaaef14a0470e2ab06a37a7d2ffc /tests | |
| parent | ad8d86bdb2470901e09b4208b0d8d9f2709f02da (diff) | |
| download | dotemacs-0bb5e68cf3edfbb9389318246a3af99645ceabce.tar.gz dotemacs-0bb5e68cf3edfbb9389318246a3af99645ceabce.zip | |
The two radio search commands were reachable only as n/t inside the playlist buffer, and R jumped straight into the manual name+URL entry. r is now a radio prefix with the same letters the playlist's Radio row uses: n searches by name, t by tag, m is the manual entry.
The rest of the menu's uppercase keys moved to lowercase homes: v shows the playlist (was M), u shuffles (was Z), and repeat-playlist moved from r to l to free the radio prefix. In the playlist buffer, save moved from w to v.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/test-music-config-create-radio-station.el | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/tests/test-music-config-create-radio-station.el b/tests/test-music-config-create-radio-station.el index 21241965..7d9adbed 100644 --- a/tests/test-music-config-create-radio-station.el +++ b/tests/test-music-config-create-radio-station.el @@ -94,6 +94,28 @@ 'info-title) "Café Del Mar ☕")))) +;;; Keymap + +(ert-deftest test-music-config-radio-map-prefix-mirrors-playlist-keys () + "Normal: C-; m r is a radio prefix whose n/t/m mirror the playlist buffer." + (let ((map (lookup-key cj/music-map "r"))) + (should (keymapp map)) + (should (eq (lookup-key map "n") 'cj/music-radio-search-by-name)) + (should (eq (lookup-key map "t") 'cj/music-radio-search-by-tag)) + (should (eq (lookup-key map "m") 'cj/music-create-radio-station)))) + +(ert-deftest test-music-config-menu-map-lowercase-keys () + "Normal: the menu's former uppercase keys live on lowercase homes, and the +playlist buffer saves on v." + (should (eq (lookup-key cj/music-map "v") 'cj/music-playlist-show)) + (should (eq (lookup-key cj/music-map "u") 'emms-shuffle)) + (should (eq (lookup-key cj/music-map "l") 'emms-toggle-repeat-playlist)) + (should-not (lookup-key cj/music-map "R")) + (should-not (lookup-key cj/music-map "M")) + (should-not (lookup-key cj/music-map "Z")) + (should (eq (lookup-key emms-playlist-mode-map "v") 'cj/music-playlist-save)) + (should-not (eq (lookup-key emms-playlist-mode-map "w") 'cj/music-playlist-save))) + ;;; Error Cases (ert-deftest test-music-config-create-radio-station-error-empty-name-signals-user-error () |