summaryrefslogtreecommitdiff
path: root/gnu/home
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/home')
-rw-r--r--gnu/home/services/xdg.scm7
1 files changed, 4 insertions, 3 deletions
diff --git a/gnu/home/services/xdg.scm b/gnu/home/services/xdg.scm
index 71c028c788..04cf9d0aed 100644
--- a/gnu/home/services/xdg.scm
+++ b/gnu/home/services/xdg.scm
@@ -23,6 +23,7 @@
#:use-module (gnu packages freedesktop)
#:use-module (gnu home services utils)
#:use-module (guix gexp)
+ #:use-module (guix modules)
#:use-module (guix records)
#:use-module (guix i18n)
#:use-module (guix diagnostics)
@@ -106,7 +107,7 @@ services more consistent."))
(define (ensure-xdg-base-dirs-on-activation config)
#~(map (lambda (xdg-base-dir-variable)
- ((@@ (guix build utils) mkdir-p)
+ ((@ (guix build utils) mkdir-p)
(getenv
xdg-base-dir-variable)))
'#$(map (lambda (field)
@@ -207,8 +208,8 @@ pre-populated content.")
home-xdg-user-directories-configuration-fields)))
#~(let ((ensure-dir
(lambda (path)
- (mkdir-p
- ((@@ (ice-9 string-fun) string-replace-substring)
+ ((@ (guix build utils) mkdir-p)
+ ((@ (ice-9 string-fun) string-replace-substring)
path "$HOME" (getenv "HOME"))))))
(display "Creating XDG user directories...")
(map ensure-dir '#$dirs)