geekinney/etaf-playground
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Make operations console row selection repeatable

Browse Source
This commit is contained in:
Kinneyzhang 2026-08-22 06:38:13 +08:00
parent f128eba656
commit f93bdf56d6
2 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/operations-console.el
View File

@ -237,7 +237,7 @@
(intern (format "operations-console-row-%s"
(plist-get row :id)))))
(row-press (lambda (row)
(etaf-data-select controller (plist-get row :id))))
(etaf-data-select-one controller (plist-get row :id))))
(clear-selection
(lambda () (etaf-data-clear-selection controller))))
(lambda ()

20
tests/etaf-playground-tests.el
View File

@ -113,6 +113,26 @@
(etaf-playground-close buffer))))
(etaf-playground-test--close buffer))))
(ert-deftest etaf-playground-data-grid-row-selection-is-repeatable ()
"Repeated row presses replace the single selected row without a bar."
(let ((buffer " *etaf-operations-console-row-selection-test*"))
(unwind-protect
(progn
(etaf-playground-open buffer)
(let ((runtime (etaf-runtime-for-buffer buffer)))
(etaf-dispatch-event runtime 'operations-console-nav-data 'press)
(dolist (entry '((operations-console-row-1 . "Selected Ada")
(operations-console-row-2 . "Selected Grace")
(operations-console-row-3 . "Selected Lin")
(operations-console-row-1 . "Selected Ada")
(operations-console-row-2 . "Selected Grace")))
(etaf-focus runtime (car entry))
(etaf-dispatch-event runtime (car entry) 'press)
(let ((text (etaf-playground-test--text buffer)))
(should (string-match-p (regexp-quote (cdr entry)) text))
(should-not (string-match-p "#DCEBDD" text))))))
(etaf-playground-test--close buffer))))
(ert-deftest etaf-playground-behavior-toggle-uses-one-retained-publication ()
"Behavior content and paint changes stay in two fixed owners per turn."
(let ((buffer " *etaf-operations-console-behavior-retained-test*"))