diff options
| author |  Tom Willemsen | 2012-12-28 20:24:20 +0100 |
|---|---|---|
| committer | Tom Willemsen | 2012-12-28 20:24:20 +0100 |
| commit | 5535308fffdd58ac17937d676c096fe889acb77e (patch) | |
| tree | 9cbebf6655a102cf3fa02acbf92fdbc30d8da74d /paths.scm | |
| parent | 57f06ec8c977d9011b2692f20c7d5967c7d2a0cc (diff) | |
| download | markam-5535308fffdd58ac17937d676c096fe889acb77e.tar.gz markam-5535308fffdd58ac17937d676c096fe889acb77e.zip | |
Restructure
Put all source files in `src/' and add the `conkeror/' directory from
the old project.
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)) |