me/guix
Archived
1
0
Fork 0
Code Activity

home: xdg: Use a single @ instead of @@.

Browse source 
* 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>
This commit is contained in:
Andrew Tropin 2022-07-21 15:24:32 +03:00 • committed by Ludovic Courtès
parent 6d4a0ccecb
commit a80edc0d82
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gnu/home/services/xdg.scm
View file

@ -23,6 +23,7 @@
#:use-module (gnu packages freedesktop) #:use-module (gnu packages freedesktop)
#:use-module (gnu home services utils) #:use-module (gnu home services utils)
#:use-module (guix gexp) #:use-module (guix gexp)
#:use-module (guix modules)
#:use-module (guix records) #:use-module (guix records)
#:use-module (guix i18n) #:use-module (guix i18n)
#:use-module (guix diagnostics) #:use-module (guix diagnostics)
@ -106,7 +107,7 @@ services more consistent."))
(define (ensure-xdg-base-dirs-on-activation config) (define (ensure-xdg-base-dirs-on-activation config)
#~(map (lambda (xdg-base-dir-variable) #~(map (lambda (xdg-base-dir-variable)
((@@ (guix build utils) mkdir-p) ((@ (guix build utils) mkdir-p)
(getenv (getenv
xdg-base-dir-variable))) xdg-base-dir-variable)))
'#$(map (lambda (field) '#$(map (lambda (field)
@ -207,8 +208,8 @@ pre-populated content.")
home-xdg-user-directories-configuration-fields))) home-xdg-user-directories-configuration-fields)))
#~(let ((ensure-dir #~(let ((ensure-dir
(lambda (path) (lambda (path)
(mkdir-p ((@ (guix build utils) mkdir-p)
((@@ (ice-9 string-fun) string-replace-substring) ((@ (ice-9 string-fun) string-replace-substring)
path "$HOME" (getenv "HOME")))))) path "$HOME" (getenv "HOME"))))))
(display "Creating XDG user directories...") (display "Creating XDG user directories...")
(map ensure-dir '#$dirs) (map ensure-dir '#$dirs)