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

Reformat code

Browse source
This commit is contained in:
Marcus Kammer 2025-02-21 08:18:04 +01:00
parent 83a236d0da
commit 5ddc87022c
Signed by: marcuskammer
GPG key ID: C374817BE285268F
2 changed files with 10 additions and 7 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"
:description "Create questionnaires and analyze the results."
:version "0.5.32"
:version "0.5.33"
:author "Marcus Kammer <marcus.kammer@mailbox.org>"
:source-control (:git "https://code.metalisp.dev/marcuskammer/dev.metalisp.survey.git")
:licence "MIT"

15
src/models/questionnaire.lisp
View file

@ -30,12 +30,15 @@
(defmethod initialize-instance :after ((q questionnaire) &key)
(with-slots (timestamp-created uid data-file survey-uid) q
(or timestamp-created (setf timestamp-created (ml-survey/app:today+now)))
(or uid (setf uid (ml-survey/app:generate-uuid)))
(or data-file (setf data-file (pathname (format nil "~a~a/~a.lisp"
(ml-survey/fileops:ensure-surveys-dir)
survey-uid
uid))))))
(or timestamp-created
(setf timestamp-created (ml-survey/app:today+now)))
(or uid
(setf uid (ml-survey/app:generate-uuid)))
(or data-file
(setf data-file (pathname (format nil "~a~a/~a.lisp"
(ml-survey/fileops:ensure-surveys-dir)
survey-uid
uid))))))
(defmethod make-questionnaire (&rest initargs &key &allow-other-keys)
"Create a new questionnaire instance.