From 2bca763654dcd7eea3ce2d00be19db00f2657a6c Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Sun, 16 Jun 2024 21:16:42 +0200 Subject: [PATCH] Fix docstring indentation --- src/fileops.lisp | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/src/fileops.lisp b/src/fileops.lisp index ceb9387..988f64d 100644 --- a/src/fileops.lisp +++ b/src/fileops.lisp @@ -1,7 +1,8 @@ (in-package :ml-survey) (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))) (cond ((eq os :os-windows) (truename "~/AppData/Local/")) ((eq os :os-unix) (truename "~/.local/share/")) @@ -13,11 +14,13 @@ (uiop:merge-pathnames* #P"ml-survey/" (base-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))) (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))) (ensure-directories-exist (data-dir)) data-dir)) @@ -33,7 +36,8 @@ (truename pathname)) (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" (ensure-data-dir) survey-id