init checkin

ycombinator · ycombinator · commit e9e8d5d1276d · 2009-02-02T02:50:57.000-08:00
diff --git a/app.scm b/app.scm
@@ -0,0 +1,8 @@
+#lang scheme/base
+
+(require (planet "leftparen.scm" ("vegashacker" "leftparen.plt" 4 (= 1))))
+
+(define-app my-app
+  (index-page (url "/"))
+  (about-me-page (url "/about-me"))
+  (resume-page (url "/resume")))
diff --git a/htdocs/page-not-found.html b/htdocs/page-not-found.html
@@ -0,0 +1 @@
+<html><body>Page not found.</body></html>
diff --git a/script/server b/script/server
@@ -0,0 +1 @@
+"mzscheme" -r serve.scm $1
diff --git a/serve.scm b/serve.scm
@@ -0,0 +1,5 @@
+(require (planet "leftparen.scm" ("vegashacker" "leftparen.plt" 4 (= 1))) "app.scm" "main.scm")
+
+(load-server-settings)
+
+(serve my-app)
diff --git a/settings-localhost.scm b/settings-localhost.scm
@@ -0,0 +1,6 @@
+(require (planet "settings.scm" ("vegashacker" "leftparen.plt" 4 (= 1))))
+
+(setting-set! *PORT* 80)
+;; use #f if you want to listen to all incoming IPs:
+(setting-set! *LISTEN_IP* #f)
+(setting-set! *WEB_APP_URL* "http://ycombinator.homedns.org")

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1 @@`
	`1`	`+<html><body>Page not found.</body></html>`