diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-24 00:13:58 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-24 00:13:58 +0200 |
commit | 549cf99065e36ab7f2310d30119346ff123665dc (patch) | |
tree | 8c3d23e8df5c325e66da347feff6512a8cf4310f /module/directories.scm | |
parent | Move html modules under calp. (diff) | |
download | calp-549cf99065e36ab7f2310d30119346ff123665dc.tar.gz calp-549cf99065e36ab7f2310d30119346ff123665dc.tar.xz |
Replace (directories) with general (xdg basedir).
Diffstat (limited to 'module/directories.scm')
-rw-r--r-- | module/directories.scm | 40 |
1 files changed, 0 insertions, 40 deletions
diff --git a/module/directories.scm b/module/directories.scm deleted file mode 100644 index 8e46d8b6..00000000 --- a/module/directories.scm +++ /dev/null @@ -1,40 +0,0 @@ -(define-module (directories) - :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") - "/tmp")) - -(define-public system-config-directory "/etc/calp") - -(define-public user-config-directory - (path-append - (or (getenv "XDG_CONFIG_HOME") - (and=> (getenv "HOME") - (lambda (s) (path-append s "/.config")))) - "/calp")) - -(define (libexec%) - (or (getenv "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) - |