19 lines
403 B
Racket
19 lines
403 B
Racket
#lang racket/base
|
|
|
|
(require "../main.rkt")
|
|
|
|
(provide generated-js)
|
|
|
|
(define generated-js
|
|
(js
|
|
(define title (send document getElementById "title"))
|
|
(set! (js-dot title innerHTML) "Hello from js-maker")
|
|
(send title addEventListener "click"
|
|
(lambda (evt)
|
|
(begin
|
|
(send console log "clicked")
|
|
(return #t))))))
|
|
|
|
(module+ main
|
|
(display generated-js))
|