aboutsummaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
Diffstat (limited to 'examples')
-rw-r--r--examples/defendpoint-examples.lisp73
-rw-r--r--examples/dice-roller.lisp4
-rw-r--r--examples/kitchensink.lisp4
3 files changed, 77 insertions, 4 deletions
diff --git a/examples/defendpoint-examples.lisp b/examples/defendpoint-examples.lisp
new file mode 100644
index 0000000..a59d09d
--- /dev/null
+++ b/examples/defendpoint-examples.lisp
@@ -0,0 +1,73 @@
+(defpackage #:weekend.examples.defendpoint
+ (:use #:cl #:weekend)
+ (:import-from #:flatbind #:do>))
+
+(in-package :weekend.examples.defendpoint)
+
+;;; The DICE ROLLER example, but this time with DEFENDPOINT:
+(defparameter +digits+ "([0-9]+)")
+
+(defendpoint roller
+ :get :route "roll" (:rolls +digits+ parse-integer) "d" (:sides +digits+ parse-integer)
+ :returns "text/plain"
+ :parameters
+ (sides integer "The number of sides the die being rolled has.")
+ (rolls integer "The number of times to roll the die.")
+ :documentation "Roll a SIDES-sided die ROLLS times, and announce the total."
+ :handle (format nil "~ad~a = ~a"
+ rolls sides
+ (loop :repeat rolls :sum (1+ (random sides)))))
+
+
+;;; EXAMPLE WITH MULTIPLE INTERACTING ENDPOINTS, AND A MIX-IN FOR
+;;; AUTHENTICATION
+
+;; Serves a form used to identify a user
+(defendpoint who-are-you
+ :get :route "who-are-you"
+ :returns "text/html;charset=utf-8"
+ :documentation "A form to identify yourself"
+ :handle (with-output-to-string (*standard-output*)
+ (princ "<html><head></head><body>")
+ (princ "<form method='POST' action='/my-name-is'>")
+ (princ "<input name='name' placeholder='Your Name'/>")
+ (princ "<button type=submit>Go!</button>")
+ (princ "</form></body></html>")))
+
+;;; A mixin meant to grab the name from a cookie, used to authenticate
+;;; all requests that need to have identified a user.
+;;; If authentication fails, redirects to who-are-you.
+(defclass identified ()
+ ((name :accessor name :type string)))
+
+(defmethod authenticate ((req identified))
+ (or
+ (do>
+ name :when= (get-cookie "weekend-eg-name")
+ :when (and (stringp name) (plusp (length name)))
+ (setf (name req) name))
+ (endpoint-redirect 'who-are-you)))
+
+
+;;; Endpoint that extends IDENTIFIED and just greets the identified.
+(defendpoint you-seem-to-be
+ :using identified
+ :get :route "you-seem-to-be"
+ :returns "text/html;charset=utf-8"
+ :documentation "Just says hello to an identified uesr"
+ :handle (with-output-to-string (*standard-output*)
+ (princ "<html><head></head><body>")
+ (princ "<p>You seem to be ")
+ (princ name) ; INHERITED FROM IDENTIFIED
+ (princ ".</p></body></html>")))
+
+
+;;; POST endpoint that handles setting the name cookie
+(defendpoint my-name-is
+ :post :to "my-name-is"
+ :parameters
+ (name string "The name supplied by the user")
+ :documentation "Set cookie for client's identity."
+ :handle (progn
+ (set-cookie "weekend-eg-name" :value name)
+ (endpoint-redirect 'you-seem-to-be)))
diff --git a/examples/dice-roller.lisp b/examples/dice-roller.lisp
index 465d252..45e2979 100644
--- a/examples/dice-roller.lisp
+++ b/examples/dice-roller.lisp
@@ -1,9 +1,9 @@
-(defpackage #:dice-roller
+(defpackage #:weekend.examples.dice-roller
(:use #:cl)
(:local-nicknames
(#:wknd #:weekend)))
-(in-package #:dice-roller)
+(in-package #:weekend.examples.dice-roller)
(defconstant +digits+ "([0-9]+)")
diff --git a/examples/kitchensink.lisp b/examples/kitchensink.lisp
index 7fcf45b..f102de5 100644
--- a/examples/kitchensink.lisp
+++ b/examples/kitchensink.lisp
@@ -1,9 +1,9 @@
-(defpackage #:kitchensink
+(defpackage #:weekend.examples.kitchensink
(:use #:cl)
(:local-nicknames
(#:wknd #:weekend)))
-(in-package #:kitchensink)
+(in-package #:weekend.examples.kitchensink)
(defparameter +fname+ "([^/]+)"
"Match any ole character except /")