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

Fix folder naming

Browse source
This commit is contained in:
Marcus Kammer 2024-07-07 13:47:23 +02:00
parent d102e35cdb
commit 58dbd229b9
Signed by: marcuskammer
GPG key ID: C374817BE285268F
2 changed files with 2 additions and 2 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.9" :version "0.1.10"
: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"

2
src/questionnaire.lisp
View file

@ -7,7 +7,7 @@
(when index (when index
(nth (1+ index) dir-list)))) (nth (1+ index) dir-list))))
(defun extract-lang-and-filename (path &optional (target-dir "forms")) (defun extract-lang-and-filename (path &optional (target-dir "questionnaires"))
(let* ((directory (pathname-directory path)) (let* ((directory (pathname-directory path))
(name (pathname-name path)) (name (pathname-name path))
(lang (find-next-directory directory target-dir))) (lang (find-next-directory directory target-dir)))