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

Choose data dir based on os

Browse source
This commit is contained in:
Marcus Kammer 2024-06-10 19:40:53 +02:00
parent 2337187206
commit 3502c7265b
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 19 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
src/handlers/main.lisp
View file

@ -1,9 +1,25 @@
(in-package :ml-survey/handlers)
(defun base-dir ()
(if (uiop:os-unix-p)
(format nil "~a/" (uiop:getenv "XDG_DATA_HOME"))
(format nil "~a/" (uiop:getenv "LOCALAPPDATA"))))
(let ((os (uiop:detect-os)))
(cond ((eq os :os-windows)
(format nil "~a/" (uiop:getenv "LOCALAPPDATA")))
((eq os :os-unix)
(format nil "~a" (uiop:merge-pathnames*
".local/share/"
(format nil
"~a/"
(uiop:getenv "HOME")))))
((eq os :os-macos)
(format nil "~a" (uiop:merge-pathnames*
"Library/Application Support/"
(format nil
"~a/"
(uiop:getenv "HOME")))))
(t (error "Unsupported OS")))))
(defun app-dir ()
(uiop:merge-pathnames* "ml-survey/" (base-dir)))