coop/rose-ash
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

HS: set *prop of target — handle style in 'of' put-target
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 19s
Details

Browse Source 
Add style case to the of-target compiler branch so
'set *color of #el to x' emits dom-set-style correctly.

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
This commit is contained in:
giles
2026-04-27 02:52:57 +00:00
parent eef2bfdd89
commit eeb4e48230
2 changed files with 20 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lib/hyperscript/compiler.sx
View File

@@ -150,7 +150,16 @@
(hs-to-sx obj-ast) (hs-to-sx obj-ast)
(nth prop-ast 1) (nth prop-ast 1)
value) value)
(list (quote set!) (hs-to-sx target) value)))))) (if
(and
(list? prop-ast)
(= (first prop-ast) (quote style)))
(list
(quote dom-set-style)
(hs-to-sx obj-ast)
(nth prop-ast 1)
value)
(list (quote set!) (hs-to-sx target) value)))))))
(true (list (quote set!) (hs-to-sx target) value))))))) (true (list (quote set!) (hs-to-sx target) value)))))))
(define (define
emit-on emit-on

11
shared/static/wasm/sx/hs-compiler.sx
View File

@@ -150,7 +150,16 @@
(hs-to-sx obj-ast) (hs-to-sx obj-ast)
(nth prop-ast 1) (nth prop-ast 1)
value) value)
(list (quote set!) (hs-to-sx target) value)))))) (if
(and
(list? prop-ast)
(= (first prop-ast) (quote style)))
(list
(quote dom-set-style)
(hs-to-sx obj-ast)
(nth prop-ast 1)
value)
(list (quote set!) (hs-to-sx target) value)))))))
(true (list (quote set!) (hs-to-sx target) value))))))) (true (list (quote set!) (hs-to-sx target) value)))))))
(define (define
emit-on emit-on