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

Fix docstring indentation

Browse source
This commit is contained in:
Marcus Kammer 2024-06-16 21:16:42 +02:00
parent 32c77a5df7
commit 2bca763654
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/fileops.lisp
View file

@ -1,7 +1,8 @@
(in-package :ml-survey) (in-package :ml-survey)
(defun base-dir () (defun base-dir ()
"Determine and return the base directory for application data based on the operating system." "Determine and return the base directory for application data based on the
operating system."
(let ((os (uiop:detect-os))) (let ((os (uiop:detect-os)))
(cond ((eq os :os-windows) (truename "~/AppData/Local/")) (cond ((eq os :os-windows) (truename "~/AppData/Local/"))
((eq os :os-unix) (truename "~/.local/share/")) ((eq os :os-unix) (truename "~/.local/share/"))
@ -13,11 +14,13 @@
(uiop:merge-pathnames* #P"ml-survey/" (base-dir))) (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 application." "Construct and return the directory path for storing data within the
application."
(uiop:merge-pathnames* #P"data/surveys/" (app-dir))) (uiop:merge-pathnames* #P"data/surveys/" (app-dir)))
(defun ensure-data-dir () (defun ensure-data-dir ()
"Ensure the data directory exists, create it if necessary, and return its path." "Ensure the data directory exists, create it if necessary, and return its
path."
(let ((data-dir (data-dir))) (let ((data-dir (data-dir)))
(ensure-directories-exist (data-dir)) (ensure-directories-exist (data-dir))
data-dir)) data-dir))
@ -33,7 +36,8 @@
(truename pathname)) (truename pathname))
(defun ensure-data-file-exist (survey-id questionnaire-id) (defun ensure-data-file-exist (survey-id questionnaire-id)
"Ensure that a specific file for given survey and questionnaire IDs exists within the data directory." "Ensure that a specific file for given survey and questionnaire IDs exists
within the data directory."
(let ((path (format nil "~a~a/~a.lisp" (let ((path (format nil "~a~a/~a.lisp"
(ensure-data-dir) (ensure-data-dir)
survey-id survey-id