Commit8f3b3ddbRecorded31 Mar 2026Repositorysigil-web-styles

Add extra styles parameter to theme-stylesheet

Message

Accept an extra: keyword argument with a list of additional CSS fragments (sigil-css forms or plain strings) to append after the base theme styles.

Changed
 src/sigil/web/styles.sgl | 44 +++++++++++++++++++++++++-------------------
 1 file changed, 25 insertions(+), 19 deletions(-)
Diff
src/sigil/web/styles.sglmodified
@@ -65,24 +65,30 @@
65
66
(begin
67
−68
(define (theme-stylesheet (keys: (palette default-palette)))
−69
(css->string
−70
(palette->css-vars palette)
−71
(reset-styles)
−72
(typography-styles)
−73
(nav-styles)
−74
(layout-styles)
−75
(footer-styles)
−76
(grid-styles)
−77
(card-styles)
−78
(table-styles)
−79
(badge-styles)
−80
(status-styles)
−81
(button-styles)
−82
(form-styles)
−83
(code-styles)
−84
(log-viewer-styles)
−85
(empty-state-styles)
−86
(ansi-color-styles)))
+68
(define (theme-stylesheet (keys: (palette default-palette)
+69
(extra '())))
+70
(apply css->string
+71
(append
+72
(list
+73
(palette->css-vars palette)
+74
(reset-styles)
+75
(typography-styles)
+76
(nav-styles)
+77
(layout-styles)
+78
(footer-styles)
+79
(grid-styles)
+80
(card-styles)
+81
(table-styles)
+82
(badge-styles)
+83
(status-styles)
+84
(button-styles)
+85
(form-styles)
+86
(code-styles)
+87
(log-viewer-styles)
+88
(empty-state-styles)
+89
(ansi-color-styles))
+90
(map (lambda (s)
+91
(if (string? s) (css-raw s) s))
+92
extra))))
93
94
))