blob: 82e5fffb5b579b6d2571837f19c5b6f8d8535b00 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
;;;; lazybones.lisp
(in-package #:lazybones)
(defclass app ()
((name
:reader app-name
:initarg :name
:initform (error "Appname is required")
:type symbol)
(version
:reader app-version
:initarg :vsn :initarg :version
:initform "0.0.1"
:type string)
(root
:reader app-root
:initarg :root
:initform "/"
:type string)
(default-request-authorizer
:initarg :default-authorizier :initarg :auth-with
:initform nil)
(default-http-responders
:initarg :default-responders
:initform nil
:documentation "A PLIST with keys being integers that represent
HTTP response codes and with values that are symbols naming
responder functions.")
(routes
:accessor app-routes
:initform nil)))
(defun parse-route-string-template (template)
)
(defun add-route (method routestring handler-function)
)
|