diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-17 10:17:33 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-17 10:17:33 +0200 |
commit | f7e489178120813a4aff0eff0140661bf402cbae (patch) | |
tree | c55d3ec6ee869a29dd892c8573734df6e18236f6 /module/directories.scm | |
parent | Setup directories for dist. (diff) | |
download | calp-f7e489178120813a4aff0eff0140661bf402cbae.tar.gz calp-f7e489178120813a4aff0eff0140661bf402cbae.tar.xz |
Work on paths?
Diffstat (limited to '')
-rw-r--r-- | module/directories.scm | 28 |
1 files changed, 26 insertions, 2 deletions
diff --git a/module/directories.scm b/module/directories.scm index 32cd382a..7348f6c3 100644 --- a/module/directories.scm +++ b/module/directories.scm @@ -1,5 +1,12 @@ (define-module (directories) - :use-module (util)) + :use-module (util) + :use-module (util config) + ) + +;; TODO possiblyy create a (system) parameter, which flips many +;; settings between being based in $HOME, and in / (or $prefix/). + +(define-config path-prefix "/usr") (define-public runtime-directory (or (getenv "XDG_RUNTIME_DIR") @@ -7,9 +14,26 @@ (define-public system-config-directory "/etc/calp") -(define user-config-directory +(define-public user-config-directory (path-append (or (getenv "XDG_CONFIG_HOME") (and=> (getenv "HOME") (lambda (s) (path-append s "/.config")))) "/calp")) + +(define (libexec%) + (path-append (get-config 'path-prefix) + "/lib/calp")) + +(define-syntax libexec (identifier-syntax (libexec%))) +(export libexec) + +(define (data-directory%) + (path-append + (or (getenv "XDG_DATA_HOME") + (path-append (get-config 'path-prefix) "/share")) + "/calp")) + +(define-syntax data-directory (identifier-syntax (data-directory%))) +(export data-directory) + |