2 files changed, 88 insertions, 1 deletions
diff --git a/examples/dice-roller.lisp b/examples/dice-roller.lisp
index 3cd6ac3..d87faf4 100644
--- a/examples/dice-roller.lisp
+++ b/examples/dice-roller.lisp
@@ -27,7 +27,7 @@
   (:extractors (:rolls parse-integer) (:sides parse-integer))
   (:content-type . "text/plain"))
 
-(defmethod handle ((req roller))
+(defmethod wknd::handle ((req roller))
   (with-slots (rolls sides) req
     (format nil "~ad~a ... rolled a ~a"
             rolls sides
diff --git a/examples/kitchensink.lisp b/examples/kitchensink.lisp
new file mode 100644
index 0000000..788334d
--- /dev/null
+++ b/examples/kitchensink.lisp
@@ -0,0 +1,87 @@
+(defpackage #:kitchensink
+  (:use #:cl)
+  (:local-nicknames
+   (#:wknd #:weekend)))
+
+(in-package #:kitchensink)
+
+(defparameter +fname+ "([^/]+)"
+  "Match any ole character except /")
+
+(defclass file ()
+  ((name
+    :reader name
+    :initarg :name
+    :initform (wknd::slot-required 'file 'name)))
+  (:documentation "Servies files in the weekend/examples dir.")
+  (:metaclass wknd::endpoint)
+  (:method . :get)
+  (:route-parts "file" +fname+)
+  (:extractors :name))
+
+(defun file-in-examples-dir (name)
+  (merge-pathnames
+   name
+   (asdf:system-relative-pathname 'weekend "examples/")))
+
+(defmethod wknd::handle ((req file))
+  (let ((file (file-in-examples-dir (name req))))
+    (unless (uiop:file-exists-p file)
+      (wknd::not-found req))
+    (wknd:handle-static-file
+     file
+     (or (wknd:mime-type file) "text/plain"))))
+
+(defvar *identified-persons* nil)
+
+(defclass identify-form ()
+  ()
+  (:documentation "Page to serve an identify form")
+  (:metaclass wknd::endpoint)
+  (:method . :get)
+  (:route-parts "identify")
+  (:content-type . "text/html"))
+
+(defmethod wknd::handle ((req identify-form))
+  "<html>
+<head></head>
+<body>
+<form method='POST' action='/identify'>
+<input name='name' placeholder='name'/>
+</form>
+</body>
+</html>")
+
+(defclass hello ()
+  ()
+  (:documentation "A Page that just says hello.")
+  (:metaclass wknd:endpoint)
+  (:method . :get)
+  (:route-parts "hello")
+  (:content-type . "text/html"))
+
+(defmethod wknd:authenticate ((req hello))
+  (or (plusp (length (wknd:get-cookie "name")))
+      (wknd:endpoint-redirect 'identify-form)))
+
+(defmethod wknd::handle ((req hello))
+  (with-output-to-string (*standard-output*)
+    (princ "<html><head></head><body>")
+    (format t "<p>hello ~a</p>" (wknd:get-cookie "name"))
+    (princ "</body></html>")))
+
+(defclass identify ()
+  ((name :reader name :initarg :name :type string))
+  (:metaclass wknd::endpoint)
+  (:method . :post)
+  (:route-parts "identify"))
+
+(defmethod wknd::handle ((req identify))
+  (wknd:set-cookie "name" :value (name req))
+  (wknd:endpoint-redirect 'hello))
+
+(defvar *server* (make-instance 'hunchentoot:easy-acceptor
+                   :port 8888))
+
+(hunchentoot:start *server*)
+