feat(music): move single to 1, save to s, drop the stop key

In the playlist buffer, single-track mode moves off s onto 1 and save moves off v onto s. The stop key (S) is gone, since SPC/pause already covers stopping. The Mode/Keys header legend follows, and v is now unbound. Stop is still reachable from the global music prefix (C-; m s).

2 files changed, 21 insertions, 3 deletions

diff --git a/tests/test-music-config--header-text.el b/tests/test-music-config--header-text.el
index 8de97350..c860c6d4 100644
--- a/tests/test-music-config--header-text.el
+++ b/tests/test-music-config--header-text.el
@@ -139,6 +139,23 @@
           (should (string-match-p "consume" plain))))
     (test-header--teardown)))
 
+(ert-deftest test-music-config--header-text-boundary-key-hints-single-save-stop ()
+  "Header key hints: single is on 1, save is on s, and stop (S) is gone.
+SPC/pause covers stop, so the S:stop hint and the [s] single / v:save hints
+are retired."
+  (unwind-protect
+      (progn
+        (test-header--setup-playlist-buffer '("/music/a.mp3"))
+        (let* ((header (with-current-buffer cj/music-playlist-buffer-name
+                         (cj/music--header-text)))
+               (plain (test-header--strip-properties header)))
+          (should (string-match-p "\\[1\\] single" plain))
+          (should (string-match-p "s:save" plain))
+          (should-not (string-match-p "\\[s\\] single" plain))
+          (should-not (string-match-p "v:save" plain))
+          (should-not (string-match-p "S:stop" plain))))
+    (test-header--teardown)))
+
 ;;; Error Cases
 
 (ert-deftest test-music-config--header-text-error-empty-playlist-shows-zero-count ()
diff --git a/tests/test-music-config-create-radio-station.el b/tests/test-music-config-create-radio-station.el
index 7d9adbed..4f49f49b 100644
--- a/tests/test-music-config-create-radio-station.el
+++ b/tests/test-music-config-create-radio-station.el
@@ -106,15 +106,16 @@
 
 (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."
+playlist buffer saves on s (single on 1, old save key v unbound)."
   (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)))
+  (should (eq (lookup-key emms-playlist-mode-map "s") 'cj/music-playlist-save))
+  (should (eq (lookup-key emms-playlist-mode-map "1") 'emms-toggle-repeat-track))
+  (should-not (lookup-key emms-playlist-mode-map "v")))
 
 ;;; Error Cases