marcuskammer/dev.metalisp.survey
1
0
Fork 0
Code Issues 9 Pull requests Projects Releases Packages Wiki Activity Actions

Use public to serve static files

Browse source
This commit is contained in:
Marcus Kammer 2024-06-10 21:35:06 +02:00
parent 165d959af2
commit b5b64092fc
Signed by: marcuskammer
GPG key ID: C374817BE285268F
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/app.lisp
View file

@ -26,7 +26,7 @@
(defvar *app* (create-server 'app (defvar *app* (create-server 'app
8080 8080
:document-root :document-root
(merge-pathnames (uiop:getcwd) "public"))) "public/"))
(defun start () (defun start ()
(start-server *app*)) (start-server *app*))

4
src/views/_navbar.lisp
View file

@ -44,12 +44,12 @@
(defmacro navbar-de () (defmacro navbar-de ()
(let ((id "foo-bar")) (let ((id "foo-bar"))
`(navbar (navbar-brand "/src/assets/company_logo.png" 30) `(navbar (navbar-brand "company_logo.png" 30)
(navbar-toggle ,id) (navbar-toggle ,id)
(navbar-nav ,id "/" "Home" "/imprint" "Impressum")))) (navbar-nav ,id "/" "Home" "/imprint" "Impressum"))))
(defmacro navbar-en () (defmacro navbar-en ()
(let ((id "foo-bar")) (let ((id "foo-bar"))
`(navbar (navbar-brand "/src/assets/company_logo.png" 30) `(navbar (navbar-brand "company_logo.png" 30)
(navbar-toggle ,id) (navbar-toggle ,id)
(navbar-nav ,id "/" "Home" "/imprint" "Imprint")))) (navbar-nav ,id "/" "Home" "/imprint" "Imprint"))))