Update fileops

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*))

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)))