15 lines
283 B
Scheme
15 lines
283 B
Scheme
(define root document.body)
|
|
|
|
(define click-count 0)
|
|
|
|
(m.mount
|
|
root
|
|
`&(:view
|
|
,(lambda ()
|
|
(m "main"
|
|
(vector
|
|
(m "h1" "LIPS! PWA!")
|
|
(m "button"
|
|
`&(:onclick
|
|
,(lambda () (set! click-count (+ click-count 1))))
|
|
(format "~a clicks" click-count)))))))
|