diff options
Diffstat (limited to 'example/lazybones-example.lisp')
| -rw-r--r-- | example/lazybones-example.lisp | 21 |
1 files changed, 9 insertions, 12 deletions
diff --git a/example/lazybones-example.lisp b/example/lazybones-example.lisp index 1efc882..88a58a1 100644 --- a/example/lazybones-example.lisp +++ b/example/lazybones-example.lisp @@ -5,7 +5,6 @@ (:local-nicknames (#:lzb #:lazybones)) (:import-from #:lazybones #:defendpoint* - #:http-ok #:http-err)) (in-package :lazybones-example) @@ -60,21 +59,21 @@ to 'coolsessionbro'." (print (lzb:request-body)) ; dummy implementation, prints post body to stdout (setf (lzb:response-cookie "testappsession") "coolsessionbro") - (http-ok "true")) + "true") ;; The next route defines a route variable WHO (defendpoint* :get "/hello/:who:" () () "Echos back Hello WHO" - (http-ok (format nil "Hello ~a~%" who))) ; use the route variable here + (format nil "Hello ~a~%" who)) ; use the route variable here (defendpoint* :post "/hello/:who:" () (:auth t) ; use the app's default authorizor "Echo's back 'Hello WHO, I got your message BODY' where BODY is the post body." (print (lzb:request-header :content-type)) (let ((body (lzb:request-body))) - (http-ok (format nil "Hello ~a, I got your message ~a~%" - who body)))) + (format nil "Hello ~a, I got your message ~a~%" + who body))) ;; Some helpers, these are used to parse url variables and query ;; parameters. Their docstrings are used in the API documentation @@ -92,7 +91,7 @@ ;; a 500 error will be returned. The syntax is (VAR PARSER) (defendpoint* :get "/search" ((name str) (age int)) () "Echo the search parameters in a nice list." - (http-ok (format nil "Name: ~a~%age: ~a~%" name age))) + (format nil "Name: ~a~%age: ~a~%" name age)) (defun crapshoot-authorizer () "Randomly decides that the request is authorized" @@ -101,16 +100,15 @@ (defendpoint* :post "/crapshoot" () (:auth 'crapshoot-authorizer) ; use a custom authorizer "Echos back 'You made it' if the request was authorized" - (http-ok "You made it")) + "You made it") ;; Route variables can accept parsers / preformatters ;; these will parse a value and supply it to the argument of the handler. (defendpoint* :get "/random/:lo int:/:hi int:" () () "Echo back a random number between lo and hi" (if (< lo hi) - (http-ok - (format nil "The number is: ~a~%" - (+ lo (random (- hi lo))))) + (format nil "The number is: ~a~%" + (+ lo (random (- hi lo)))) (http-err 404))) ; Can't find a number X such that LO >= HI and LO < X < HI (defun person-by-id (id) @@ -124,6 +122,5 @@ (defendpoint* :get "/person/:person person-by-id:" () (:content-type "application/json") ; override the app's default content type for HTTP responses "Returns a json representation of the person." - (http-ok - (jonathan:to-json person))) + (jonathan:to-json person)) |