sketching out prototype for web-world

dyoo · Aug 22, 2011 · 225ea42 · 225ea42
1 parent 30ea1aa
commit 225ea42
Show file tree

Hide file tree

Showing 4 changed files with 16 additions and 0 deletions.
diff --git a/web-world.rkt b/web-world.rkt
@@ -0,0 +1,3 @@
+#lang s-exp "lang/base.rkt"
+(require "web-world/main.rkt")
+(provide (all-from-out "web-world/main.rkt"))
diff --git a/web-world/examples/hello/hello.rkt b/web-world/examples/hello/hello.rkt
@@ -0,0 +1,8 @@
+#lang planet dyoo/whalesong
+(require (planet dyoo/whalesong/web-world)
+         (planet dyoo/whalesong/resource))
+
+(define-resource index.html "index.html")
+
+(big-bang "don't care"
+          (initial-view index.html))
diff --git a/web-world/examples/hello/index.html b/web-world/examples/hello/index.html
@@ -0,0 +1,4 @@
+<html>
+<head><title>Hello world</title></head>
+<body><h1>Hello world</h1></body>
+</html>
diff --git a/web-world/main.rkt b/web-world/main.rkt
@@ -0,0 +1 @@
+#lang s-exp "../lang/base.rkt"