suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

getting hello world to do something

Browse Source
This commit is contained in:
Danny Yoo 2011-08-22 17:27:36 -04:00
parent 3724a2a621
commit e9a951f04d
2 changed files with 7 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
web-world/examples/hello/hello.rkt
View File

@ -2,18 +2,8 @@
(require (planet dyoo/whalesong/web-world)
(planet dyoo/whalesong/resource))
(define-resource index.html)
(define-resource style.css)
;; (printf "I see the path is: ~s\n"
;; (resource-path index.html))
;; (printf "I see the key is: ~s\n"
;; (resource-key index.html))
;; (printf "I see the content is: ~s\n"
;; (resource-content index.html))
(big-bang "don't care"
(initial-view index.html))

8
web-world/examples/hello/index.html
View File

@ -2,5 +2,11 @@
<head><title>Hello world</title>
<link rel="stylesheet" href="res/style.css"/>
</head>
<body><h1>Hello world</h1></body>
<body><h1>Hello world</h1>
This is a test of the emergency broadcast system.
<ol>
<li>Item one</li>
<li>Item two</li>
</ol>
</body>
</html>