diff options
| author | Andrew Tropin <andrew@trop.in> | 2022-07-21 15:24:32 +0300 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-08-05 15:28:02 +0200 |
| commit | a80edc0d82c104d22607da5c44225d9105c3e1cf (patch) | |
| tree | 8d433e7e2ab71e9c0d031bcd1a3c843efe84d568 /gnu/home | |
| parent | 6d4a0ccecb58c62a95f7f36fa2f4fa53dd52312e (diff) | |
home: xdg: Use a single @ instead of @@.
* gnu/home/services/xdg.scm (ensure-xdg-base-dirs-on-activation,
home-xdg-user-directories-files-service): Use single @ intsead of @@.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'gnu/home')
| -rw-r--r-- | gnu/home/services/xdg.scm | 7 |
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) |