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

Use uiopp:xdg-data-home as base dir

Browse source
This commit is contained in:
Marcus Kammer 2024-07-08 21:59:01 +02:00
parent 738c21d93a
commit 475111e69c
Signed by: marcuskammer
GPG key ID: C374817BE285268F
2 changed files with 7 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
dev.metalisp.survey.asd
View file

@ -2,7 +2,7 @@
(defsystem "dev.metalisp.survey" (defsystem "dev.metalisp.survey"
:description "A simple survey" :description "A simple survey"
:version "0.1.11" :version "0.1.12"
:author "Marcus Kammer <marcus.kammer@metalisp.dev" :author "Marcus Kammer <marcus.kammer@metalisp.dev"
:source-control "git@git.sr.ht:~marcuskammer/dev.metalisp.survey" :source-control "git@git.sr.ht:~marcuskammer/dev.metalisp.survey"
:licence "MIT" :licence "MIT"

25
src/fileops.lisp
View file

@ -2,33 +2,20 @@
(in-package :ml-survey) (in-package :ml-survey)
(defun base-dir ()
"Determine and return the base directory for application data based on the
operating system."
(let ((os (uiop:detect-os)))
(cond ((eq os :os-windows) (truename "~/AppData/Local/"))
((eq os :os-unix) (truename "~/.local/share/"))
((eq os :os-macos) (truename "~/Library/Application Support/"))
(t (error "Unsupported OS")))))
(defun app-dir ()
"Construct and return the application-specific directory path."
(uiop:merge-pathnames* #P"ml-survey/" (base-dir)))
(defun data-dir () (defun data-dir ()
"Construct and return the directory path for storing data within the "Construct and return the directory path for storing data within the
application." application."
(uiop:merge-pathnames* #P"data/" (app-dir))) (uiop:merge-pathnames* #P"ml-survey/" (uiop:xdg-data-home)))
(defun surveys-dir () (defun surveys-dir ()
"Construct and return the directory path for storing surveys within the "Construct and return the directory path for storing surveys within the
application." application."
(uiop:merge-pathnames* #P"data/surveys/" (app-dir))) (uiop:merge-pathnames* #P"surveys/" (data-dir)))
(defun questionnaires-dir () (defun questionnaires-dir ()
"Construct and return the directory path for storing forms within the "Construct and return the directory path for storing forms within the
application." application."
(uiop:merge-pathnames* #P"data/questionnaires/" (app-dir))) (uiop:merge-pathnames* #P"questionnaires/" (data-dir)))
(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
@ -91,11 +78,11 @@ within the data directory."
(prin1 responses stream))) (prin1 responses stream)))
(defun access-log-file () (defun access-log-file ()
(uiop:merge-pathnames* #P"access.log" (app-dir))) (uiop:merge-pathnames* #P"access.log" (data-dir)))
(defun public-dir () (defun public-dir ()
(uiop:merge-pathnames* #P"public/" (app-dir))) (uiop:merge-pathnames* #P"public/" (data-dir)))
(ensure-directories-exist (public-dir)) (ensure-directories-exist (public-dir))
(format t "~%App Data Directory: ~a~%" (app-dir)) (format t "~%App Data Directory: ~a~%" (data-dir))