18 lines
588 B
Scheme
18 lines
588 B
Scheme
|
;;; 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))
|