diff options
-rwxr-xr-x | gitto.scm | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -7,8 +7,11 @@ (ice-9 rdelim)) (define data-dir - (string-append (or (getenv "XDG_DATA_HOME") "~/.local/share") - "/gitracker")) + (let ((xdg (getenv "XGD_DATA_HOME")) + (name "gitto")) + (if xdg + (string-append xdg "/" name) + (string-append (getenv "HOME") "/." name)))) (define repositories-file (string-append data-dir "/repos.scm")) |