Add image and text file example (Thanks @pnathan).

Html goodness with cl-who.
Add package.lisp and refactor example.asd.

Author: jsmpereira

example.asd

@@ -1,14 +1,10 @@
-(in-package :asdf)
-
-(defsystem :example
-    :name "example"
-    :description "Example cl-heroku application"
-    :depends-on (:hunchentoot)
-    :components
-    ((:static-file "example.asd")
-     (:module :src
-	      :serial t      
-	      :components
-	      ((:file "hello-world"))
-	      )))
+(asdf:defsystem #:example
+  :serial t
+  :description "Example cl-heroku application"
+  :depends-on (#:hunchentoot
+	       #:cl-who)
+  :components ((:file "package")
+	       (:module :src
+			:serial t      
+			:components ((:file "hello-world")))))
 

package.lisp

@@ -0,0 +1,4 @@
+;;;; package.lisp
+
+(defpackage #:example
+  (:use #:cl))

public/hello.txt

@@ -0,0 +1 @@
+Hi. I'm a text file being served by Hunchentoot.

src/hello-world.lisp

@@ -1,5 +1,21 @@
-(in-package :hunchentoot)
+(in-package :example)
 
-(hunchentoot:define-easy-handler (hello-sbcl :uri "/") (name)
-  (setf (hunchentoot:content-type*) "text/plain")
-  (format nil "Hey~@[ ~A~]! ~A ~A, Hunchentoot ~A" name (lisp-implementation-type) (lisp-implementation-version) hunchentoot::*hunchentoot-version*))		   
+(push (hunchentoot:create-folder-dispatcher-and-handler "/static/" "/app/public/")
+	 hunchentoot:*dispatch-table*)
+
+(hunchentoot:define-easy-handler (hello-sbcl :uri "/") ()
+  (cl-who:with-html-output-to-string (s)
+    (:html
+     (:head
+      (:title "Heroku CL Example App"))
+     (:body
+      (:h1 "Heroku CL Example App")
+      (:h3 "Using")
+      (:ul
+       (:li (format s "~A ~A" (lisp-implementation-type) (lisp-implementation-version)))
+       (:li (format s "Hunchentoot ~A" hunchentoot::*hunchentoot-version*))
+       (:li (format s "CL-WHO")))
+      (:div
+       (:a :href "static/lisp-glossy.jpg" (:img :src "static/lisp-glossy.jpg" :width 100)))
+      (:div
+       (:a :href "static/hello.txt" "hello"))))))