diff --git a/src/web-app.lisp b/src/web-app.lisp index fdbe94a..70e9891 100644 --- a/src/web-app.lisp +++ b/src/web-app.lisp @@ -14,14 +14,22 @@ (defparameter *template-root* " Lisp web app - hello app + ") -(defroute root ("/" :method :get) () +(defun render-products () (djula:render-template* (djula:compile-string *template-root*) - nil)) + nil + :products (products))) + +(defroute root ("/" :method :get) () + (render-products)) (defun start-server (&key (port *port*)) (format t "~&Starting the web server on port ~a~&" port)