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