From 549cf99065e36ab7f2310d30119346ff123665dc Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 24 Aug 2020 00:13:58 +0200 Subject: Replace (directories) with general (xdg basedir). --- module/directories.scm | 40 ---------------------------------------- 1 file changed, 40 deletions(-) delete mode 100644 module/directories.scm (limited to 'module/directories.scm') 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) - -- cgit v1.2.3