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

Show app directory at loading

Browse source
This commit is contained in:
Marcus Kammer 2024-06-17 18:04:09 +02:00
parent 2351a057b4
commit e82c757f2b
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/fileops.lisp
View file

@ -21,9 +21,7 @@ application."
(defun ensure-data-dir () (defun ensure-data-dir ()
"Ensure the data directory exists, create it if necessary, and return its "Ensure the data directory exists, create it if necessary, and return its
path." path."
(let ((data-dir (data-dir))) (ensure-directories-exist (data-dir)))
(ensure-directories-exist (data-dir))
data-dir))
(defun ensure-file-exist (pathname) (defun ensure-file-exist (pathname)
"Ensure that a file specified by PATHNAME exists, create it if it doesn't." "Ensure that a file specified by PATHNAME exists, create it if it doesn't."
@ -72,3 +70,7 @@ within the data directory."
(defun public-dir () (defun public-dir ()
(uiop:merge-pathnames* #P"public/" (app-dir))) (uiop:merge-pathnames* #P"public/" (app-dir)))
(ensure-directories-exist (public-dir))
(format t "App Data Directory: ~a~%" (app-dir))