me/guix
Archived
1
0
Fork 0
Code Activity

home: xdg: Add with-imported-modules to xdg activation script.

Browse source 
Without it activation doesn't work when called in clean environment.

* gnu/home/services/xdg.scm (ensure-xdg-base-dirs-on-activation): Add
with-imported-modules to xdg activation script.
This commit is contained in:
Andrew Tropin 2022-12-22 10:22:00 +04:00
parent 1b29fccff2
commit dd4eee5581
No known key found for this signature in database
GPG key ID: 2208D20958C1DEB0
1 changed files with 19 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -120,8 +120,11 @@ services more consistent."))
home-xdg-base-directories-configuration-fields)) home-xdg-base-directories-configuration-fields))
(define (ensure-xdg-base-dirs-on-activation config) (define (ensure-xdg-base-dirs-on-activation config)
#~(map (lambda (xdg-base-dir-variable) (with-imported-modules '((guix build utils))
((@ (guix build utils) mkdir-p) #~(begin
(use-modules (guix build utils))
(map (lambda (xdg-base-dir-variable)
(mkdir-p
(getenv (getenv
xdg-base-dir-variable))) xdg-base-dir-variable)))
'#$(filter-map '#$(filter-map
@ -135,7 +138,7 @@ services more consistent."))
;; and will be provided by elogind or other service. ;; and will be provided by elogind or other service.
(and (not (string=? "XDG_RUNTIME_DIR" variable)) (and (not (string=? "XDG_RUNTIME_DIR" variable))
variable))) variable)))
home-xdg-base-directories-configuration-fields))) 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