vv/guile-scene
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Formatting

Browse source
This commit is contained in:
Vivianne 2024-10-11 21:35:51 -04:00
parent 626c486bc5
commit 6fe3824bda
1 changed files with 12 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
scene.scm
View file

@ -112,16 +112,17 @@
(define square (~ (* (! counter) (! counter))))
(define root-ref
(sxml->dom-ref `(div (@ (class "foo"))
(p "this is a test")
(button (@ (id "button")
(type "button")
(click ,(lambda (e)
(! counter (1+ (! counter)))
;; Hacky hack to ensure root-ref isn't GC'd too early...
(display root-ref))))
"Counter: "
,counter)
(p "The square is: " ,square))))
(sxml->dom-ref
`(div (@ (class "foo"))
(p "this is a test")
(button (@ (id "button")
(type "button")
(click ,(lambda (e)
(! counter (1+ (! counter)))
;; Hacky hack to ensure root-ref isn't GC'd too early...
(display root-ref))))
"Counter: "
,counter)
(p "The square is: " ,square))))
(append-child! (document-body) (element-ref-element root-ref))