aboutsummaryrefslogtreecommitdiff
path: root/tests/test-music-config--renumber-rows.el
diff options
context:
space:
mode:
authorCraig Jennings <c@cjennings.net>2026-07-18 15:38:49 -0500
committerCraig Jennings <c@cjennings.net>2026-07-18 15:38:49 -0500
commit52c031775dca66d308cc341271900258f36b5895 (patch)
tree82d3a0bcd07c02666fb0509f091f85a9ddeda831 /tests/test-music-config--renumber-rows.el
parentbf3857602f3bbc9a485f27ba8b4f461107601367 (diff)
downloaddotemacs-52c031775dca66d308cc341271900258f36b5895.tar.gz
dotemacs-52c031775dca66d308cc341271900258f36b5895.zip
fix(music): show the cursor on the row number and open the dock taller
With point pinned at the row start, redisplay drew the cursor after the number's before-string, on the album-art thumbnail, where a block cursor is invisible. A cursor property on the number string makes redisplay draw it on the number. The dock also kept reopening too short: its height memory remembered whatever size the window had at toggle-off, including squeezes from window churn. The squeezed fraction then overrode the default on every later open. The default rises to a third of the frame, and the toggle discards captured heights below it (a deliberate enlargement still sticks for the session).
Diffstat (limited to 'tests/test-music-config--renumber-rows.el')
-rw-r--r--tests/test-music-config--renumber-rows.el10
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/test-music-config--renumber-rows.el b/tests/test-music-config--renumber-rows.el
index 8abe1704..449f6d2e 100644
--- a/tests/test-music-config--renumber-rows.el
+++ b/tests/test-music-config--renumber-rows.el
@@ -47,6 +47,16 @@
(cj/music--renumber-rows (current-buffer))
(should (= 2 (length (test-music-renumber--numbers (current-buffer)))))))
+(ert-deftest test-music-renumber-rows-number-carries-cursor-property ()
+ "Normal: the number string carries a cursor property. Point is pinned at
+the row start, and without the property redisplay draws the cursor after
+the before-string -- on the album-art thumbnail, where it's invisible."
+ (with-temp-buffer
+ (insert "track one\n")
+ (cj/music--renumber-rows (current-buffer))
+ (let ((s (car (test-music-renumber--numbers (current-buffer)))))
+ (should (get-text-property 0 'cursor s)))))
+
;;; Boundary Cases
(ert-deftest test-music-renumber-rows-skips-blank-lines ()