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

Reduce code complexity for fileops

Browse source
This commit is contained in:
Marcus Kammer 2024-06-14 17:47:26 +02:00
parent b13b797315
commit 242da4e070
1 changed files with 10 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
src/fileops.lisp
View file

@ -2,30 +2,23 @@
(defun base-dir () (defun base-dir ()
(let ((os (uiop:detect-os))) (let ((os (uiop:detect-os)))
(cond ((eq os :os-windows) (uiop:parse-native-namestring
(format nil "~a/" (uiop:getenv "LOCALAPPDATA"))) (cond ((eq os :os-windows)
(format nil "~a/" (uiop:getenv "LOCALAPPDATA")))
((eq os :os-unix) ((eq os :os-unix)
(format nil "~a" (uiop:merge-pathnames* (format nil "~a/.local/share/" (user-homedir-pathname)))
".local/share/"
(format nil
"~a/"
(uiop:getenv "HOME")))))
((eq os :os-macos) ((eq os :os-macos)
(format nil "~a" (uiop:merge-pathnames* (format nil "~a/Library/Application Support/" (user-homedir-pathname)))
"Library/Application Support/"
(format nil
"~a/"
(uiop:getenv "HOME")))))
(t (error "Unsupported OS"))))) (t (error "Unsupported OS"))))))
(defun app-dir () (defun app-dir ()
(uiop:merge-pathnames* "ml-survey/" (base-dir))) (uiop:merge-pathnames* #P"ml-survey/" (base-dir)))
(defun data-dir () (defun data-dir ()
(uiop:merge-pathnames* "data/surveys/" (app-dir))) (uiop:merge-pathnames* #P"data/surveys/" (app-dir)))
(defun ensure-data-dir () (defun ensure-data-dir ()
(let ((data-dir (data-dir))) (let ((data-dir (data-dir)))