diff --git a/README.org b/README.org index 2645b0c..3b8c6fe 100644 --- a/README.org +++ b/README.org @@ -1 +1,10 @@ Following the tutorial [[https://web-apps-in-lisp.github.io/][here]] by vindarel. + +* djula fix + +Loading error due to sbcl incompat with named-readtables. + +- [[https://bugs.launchpad.net/sbcl/+bug/2134500]] +- [[https://github.com/melisgl/named-readtables/commit/6eea56674442b884a4fee6ede4c8aad63541aa5b]] + +Applying this fixed it. diff --git a/src/package.lisp b/src/package.lisp index e662a61..5e1c90a 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -1,2 +1,4 @@ (defpackage :web-apps - (:use :cl)) + (:use :cl) + (:import-from :easy-routes + :defroute)) diff --git a/src/web-app.lisp b/src/web-app.lisp index a4df1c8..fdbe94a 100644 --- a/src/web-app.lisp +++ b/src/web-app.lisp @@ -5,3 +5,30 @@ collect (list i (format nil "Product nb ~a" i) 9.99))) + +(defvar *server* nil + "Server instance (Hunchentoot acceptor).") + +(defparameter *port* 8899 "The application port.") + +(defparameter *template-root* " + Lisp web app + + hello app + +") + +(defroute root ("/" :method :get) () + (djula:render-template* + (djula:compile-string *template-root*) + nil)) + +(defun start-server (&key (port *port*)) + (format t "~&Starting the web server on port ~a~&" port) + (force-output) + (setf *server* (make-instance 'easy-routes:easy-routes-acceptor + :port port)) + (hunchentoot:start *server*)) + +(defun stop-server (&optional (server *server*)) + (hunchentoot:stop server)) diff --git a/web-apps.asd b/web-apps.asd index e4e2513..9b94e94 100644 --- a/web-apps.asd +++ b/web-apps.asd @@ -2,7 +2,7 @@ (defsystem "web-apps" :license "WTFPL" - :depends-on ("hunchentoot" "easy-routes") + :depends-on ("hunchentoot" "easy-routes" "djula") :components ((:module "src" :components ((:file "package")