26 lines
529 B
Racket
26 lines
529 B
Racket
#lang planet dyoo/whalesong
|
|
|
|
(require (planet dyoo/whalesong/js))
|
|
|
|
|
|
;; insert-break: -> void
|
|
(define (insert-break)
|
|
(call ($ "<br/>") "appendTo" body)
|
|
(void))
|
|
|
|
|
|
(void (call ($ "<h1>Hello world</h1>") "appendTo" body))
|
|
|
|
|
|
(void (call body "append" "hello, this is a test"))
|
|
(insert-break)
|
|
(void (call body "append" "hello, this is a test"))
|
|
(insert-break)
|
|
(void (call body "css" "background-color" "green"))
|
|
|
|
|
|
|
|
(void (call ($ "<span>This is another thing that has been added.</span>")
|
|
"appendTo"
|
|
body))
|