13 lines
262 B
Scheme
13 lines
262 B
Scheme
(load "lib/mithril.scm")
|
|
|
|
(define click-count 0)
|
|
|
|
(mount-root
|
|
(component
|
|
(sxml
|
|
(main
|
|
(h1 "LIPS! PWA!")
|
|
(button (@ (onclick (lambda ()
|
|
(set! click-count (+ 1 click-count))
|
|
(print click-count))))
|
|
~(format "~a clicks" click-count))))))
|