diff --git a/src/web-app.lisp b/src/web-app.lisp
index 70e9891..644896c 100644
--- a/src/web-app.lisp
+++ b/src/web-app.lisp
@@ -1,36 +1,55 @@
(in-package :web-apps)
+(defun get-product (n)
+ ;; Query the DB.
+ (list n (format nil "Product nb ~a" n) 9.99))
+
(defun products (&optional (n 5))
(loop for i from 0 below n
- collect (list i
- (format nil "Product nb ~a" i)
- 9.99)))
+ collect (get-product i)))
(defvar *server* nil
"Server instance (Hunchentoot acceptor).")
(defparameter *port* 8899 "The application port.")
+(defun render (template &rest args)
+ (apply
+ #'djula:render-template*
+ (djula:compile-string template)
+ nil
+ args))
+
(defparameter *template-root* "
Lisp web app
-
+
")
-(defun render-products ()
- (djula:render-template*
- (djula:compile-string *template-root*)
- nil
- :products (products)))
+(defparameter *template-product* "
+
+ {{ product }}
+
+")
+
+(easy-routes:defroute root ("/") ()
+ (render *template-root* :products (products)))
+
+(easy-routes:defroute product-route ("/product/:n") (&path (n 'integer))
+ (render *template-product* :product (get-product n)))
(defroute root ("/" :method :get) ()
(render-products))
+
+
(defun start-server (&key (port *port*))
(format t "~&Starting the web server on port ~a~&" port)
(force-output)