diff options
Diffstat (limited to 'paths.scm')
| -rw-r--r-- | paths.scm | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/paths.scm b/paths.scm deleted file mode 100644 index 50bd622..0000000 --- a/paths.scm +++ /dev/null @@ -1,17 +0,0 @@ -;;; paths.scm -- Functions which work with/on paths -(declare (unit paths)) - -(define (stored-file xdg-env file) - (let ((xdg (get-environment-variable xdg-env)) - (stored-file (string-append (get-environment-variable "HOME") "/.linkwave/" file))) - (unless (or (file-exists? stored-file) (not xdg)) - (set! stored-file (string-append xdg "/linkwave/" file))) - stored-file)) - -(: config-file (string -> string)) -(define (config-file file) - (stored-file "XDG_CONFIG_HOME" file)) - -(: data-file (string -> string)) -(define (data-file file) - (stored-file "XDG_DATA_HOME" file)) |