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

Space and theme Pagination arrow controls

Browse Source
This commit is contained in:
Kinneyzhang 2026-08-22 11:08:00 +08:00
parent 263723b186
commit 5333d607ed
1 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
etaf-ui.el
View File

@ -532,23 +532,29 @@ readable in both GUI and text review."
(first-item (if (zerop total) 0 (1+ (* (1- page) page-size)))) (first-item (if (zerop total) 0 (1+ (* (1- page) page-size))))
(last-item (min total (* page page-size))) (last-item (min total (* page page-size)))
(previous-disabled (or (eq status 'loading) (<= page 1))) (previous-disabled (or (eq status 'loading) (<= page 1)))
(next-disabled (or (eq status 'loading) (>= page pages)))) (next-disabled (or (eq status 'loading) (>= page pages)))
(parent-color (etaf-current-prop :color))
(parent-bgcolor (etaf-current-prop :bgcolor))
(arrow-border '((0) solid "transparent")))
(setq current-controller controller-value) (setq current-controller controller-value)
(etaf-view (etaf-view
(row :class (etaf-ui--class-value "etaf-pagination" nil (row :class (etaf-ui--class-value "etaf-pagination" nil
(etaf-current-prop :class)) (etaf-current-prop :class))
:role 'navigation :role 'navigation
:aria-label (or (etaf-current-prop :aria-label) "Pagination") :aria-label (or (etaf-current-prop :aria-label) "Pagination")
:color (etaf-current-prop :color) :color parent-color
:bgcolor (etaf-current-prop :bgcolor) :bgcolor parent-bgcolor
:border (etaf-current-prop :border) :border (etaf-current-prop :border)
:padding (etaf-current-prop :padding) :padding (or (etaf-current-prop :padding) '(0 1))
:gap '(0 (2))
(button :label "‹" :ref (etaf-current-prop :previous-ref) (button :label "‹" :ref (etaf-current-prop :previous-ref)
:aria-label "Previous page" :aria-label "Previous page"
:disabled previous-disabled :disabled previous-disabled
:padding '(0 0) :padding '(0 0)
:border '((0) solid "transparent") :border arrow-border
:variant 'secondary :color (if previous-disabled "#9CA3AF" parent-color)
:bgcolor parent-bgcolor
:face 'bold
:on-press (unless previous-disabled previous)) :on-press (unless previous-disabled previous))
(column :flex-grow 1 :flex-shrink 1 :flex-basis '(0) :min-width 0 (column :flex-grow 1 :flex-shrink 1 :flex-basis '(0) :min-width 0
(text :class "etaf-pagination-label" :text-align 'center (text :class "etaf-pagination-label" :text-align 'center
@ -560,8 +566,10 @@ readable in both GUI and text review."
:aria-label "Next page" :aria-label "Next page"
:disabled next-disabled :disabled next-disabled
:padding '(0 0) :padding '(0 0)
:border '((0) solid "transparent") :border arrow-border
:variant 'secondary :color (if next-disabled "#9CA3AF" parent-color)
:bgcolor parent-bgcolor
:face 'bold
:on-press (unless next-disabled next)))))))) :on-press (unless next-disabled next))))))))
(provide 'etaf-ui) (provide 'etaf-ui)