ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-12 06:06:53 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

home: xdg: Skip mkdir XDG_RUNTIME_DIR in activation script.

Browse source 
* gnu/home/services/xdg.scm (ensure-xdg-base-dirs-on-activation): Skip mkdir
XDG_RUNTIME_DIR in activation script.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Andrew Tropin 2022-08-02 08:00:21 +03:00 committed by Ludovic Courtès
parent a80edc0d82
commit b57c656f72
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 12 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -110,12 +110,18 @@ (define (ensure-xdg-base-dirs-on-activation config)
((@ (guix build utils) mkdir-p) ((@ (guix build utils) mkdir-p)
(getenv (getenv
xdg-base-dir-variable))) xdg-base-dir-variable)))
'#$(map (lambda (field) '#$(filter-map
(format (lambda (field)
#f "XDG_~a" (let ((variable
(object->snake-case-string (string-append
(configuration-field-name field) 'upper))) "XDG_"
home-xdg-base-directories-configuration-fields))) (object->snake-case-string
(configuration-field-name field) 'upper))))
;; XDG_RUNTIME_DIR shouldn't be created during activation
;; and will be provided by elogind or other service.
(and (not (string=? "XDG_RUNTIME_DIR" variable))
variable)))
home-xdg-base-directories-configuration-fields)))
(define (last-extension-or-cfg config extensions) (define (last-extension-or-cfg config extensions)
"Picks configuration value from last provided extension. If there "Picks configuration value from last provided extension. If there