hans/web-racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

More example stuff.

Browse Source 
Signed-off-by: Hans Dijkema <hans@dijkewijk.nl>
This commit is contained in:
Hans Dijkema
2025-11-12 16:17:13 +01:00
parent 51c8ef5aa1
commit d7f9e3b7ed
3 changed files with 76 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
private/css.rkt
View File

@@ -31,7 +31,7 @@
(
[style #:auto #:mutable]
)
#:auto-value (make-hash)
#:auto-value #f
#:transparent)
(define-struct css-stylesheet
@@ -42,6 +42,7 @@
#:transparent)
(define st-style style-style)
(define st-style! set-style-style!)
(define make-st make-style)
(define st? style?)
(define stylesheet? css-stylesheet?)
@@ -53,14 +54,15 @@
(if (symbol? style_or_styles)
(let ((css (if (null? args) "" (car args)))
(st (make-st)))
(st-style! st (make-hash))
(hash-set! (st-style st) style_or_styles css)
st)
(let* ((st (make-st))
(h (st-style st)))
(h (begin (st-style! st (make-hash)) (st-style st))))
(for-each (lambda (st)
(let ((entry (car st))
(css (cadr st)))
(hash-set! h entry css)))
(hash-set! h entry (format "~a" css))))
style_or_styles)
st)))