From e4b582654903d2cc227f8824df7873bf75f8b100 Mon Sep 17 00:00:00 2001 From: Andrew Tropin Date: Thu, 21 Jul 2022 15:24:32 +0300 Subject: [PATCH v2 1/4] home: xdg: Use single @ intsead of @@. * gnu/home/services/xdg.scm (ensure-xdg-base-dirs-on-activation, home-xdg-user-directories-files-service): Use single @ intsead of @@. --- gnu/home/services/xdg.scm | 7 ++++--- 1 file 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 @@ (define-module (gnu home services xdg) #: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 @@ (define (home-xdg-base-directories-environment-variables-service config) (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 @@ (define (home-xdg-user-directories-activation-service config) 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) -- 2.37.0