From 2351a057b49dfd3da92d4521f8fa408d58c3b2ed Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Sun, 16 Jun 2024 21:46:08 +0200
Subject: [PATCH] Update fileops

---
 src/app.lisp     | 4 ++--
 src/fileops.lisp | 6 ++++++
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/src/app.lisp b/src/app.lisp
index e101c78..d4d09b8 100644
--- a/src/app.lisp
+++ b/src/app.lisp
@@ -27,9 +27,9 @@
 (defvar *app* (create-server 'app
                              8080
                              :document-root
-                             "public/"
+                             (public-dir)
                              :access-log-destination
-                             (uiop:merge-pathnames* #P"access.log" (app-dir))))
+                             (access-log-file)))
 
 (defun start ()
   (start-server *app*))
diff --git a/src/fileops.lisp b/src/fileops.lisp
index 988f64d..ea3b5b8 100644
--- a/src/fileops.lisp
+++ b/src/fileops.lisp
@@ -66,3 +66,9 @@ within the data directory."
                           :direction :output
                           :if-exists :supersede)
     (prin1 responses stream)))
+
+(defun access-log-file ()
+  (uiop:merge-pathnames* #P"access.log" (app-dir)))
+
+(defun public-dir ()
+  (uiop:merge-pathnames* #P"public/" (app-dir)))