diff options
| author | Craig Jennings <c@cjennings.net> | 2026-07-18 15:38:49 -0500 |
|---|---|---|
| committer | Craig Jennings <c@cjennings.net> | 2026-07-18 15:38:49 -0500 |
| commit | 52c031775dca66d308cc341271900258f36b5895 (patch) | |
| tree | 82d3a0bcd07c02666fb0509f091f85a9ddeda831 /tests/test-music-config--renumber-rows.el | |
| parent | bf3857602f3bbc9a485f27ba8b4f461107601367 (diff) | |
| download | dotemacs-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.el | 10 |
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 () |
