From e0518f4dbdbc5bbb60aae0fa62817817e48c6348 Mon Sep 17 00:00:00 2001 From: emre Date: Wed, 5 Aug 2026 01:14:48 +0300 Subject: [PATCH] render-products --- src/web-app.lisp | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) 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)