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

perf: use document height for Research Shelf

Browse Source
This commit is contained in:
Kinneyzhang 2026-08-25 22:45:40 +08:00
parent 30d3be63db
commit 7eaee90798
2 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/research-shelf.el
View File

@ -670,7 +670,7 @@ user's prior local additions cannot collide with the generated dataset."
(lambda ()
(etaf-view
(column :class "research-shelf-shell" :width '(viewport)
:height '(viewport-height)
:height 'auto :min-height '(viewport-height)
:color (etaf-theme-token :ink)
:bgcolor (etaf-theme-token :paper)
(flex :class "research-shelf-header" :width 'stretch :min-width 0

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

@ -402,6 +402,18 @@ database and mounts a test buffer before running BODY."
research-shelf-theme-toggle))
(should (etaf-runtime-handler-for runtime ref))))))
(ert-deftest etaf-playground-research-shelf-uses-window-document-height ()
"Research Shelf fills the viewport without creating a root scroll owner."
(etaf-playground-test--with-app (buffer database)
(etaf-playground-mount-example
buffer "research-shelf" nil
'(:viewport-width 900 :viewport-height 40))
(let* ((state (ebox--buffer-render-state (get-buffer buffer)))
(root (plist-get state :root-node)))
(should (eq (plist-get root :height) 'auto))
(should (equal (plist-get root :min-height) '(viewport-height)))
(should-not (plist-get state :scroll-region-ids)))))
(ert-deftest etaf-playground-fixture-supports-realistic-page-counts ()
"The Playground can mount a larger deterministic fixture for pressure runs."
(etaf-playground-test--ensure-app-loaded)