home: xdg: Add with-imported-modules to xdg activation script.
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:
		
							parent
							
								
									1b29fccff2
								
							
						
					
					
						commit
						dd4eee5581
					
				
					 1 changed files with 19 additions and 16 deletions
				
			
		| 
						 | 
				
			
			@ -120,8 +120,11 @@ services more consistent."))
 | 
			
		|||
   home-xdg-base-directories-configuration-fields))
 | 
			
		||||
 | 
			
		||||
(define (ensure-xdg-base-dirs-on-activation config)
 | 
			
		||||
  #~(map (lambda (xdg-base-dir-variable)
 | 
			
		||||
           ((@ (guix build utils) mkdir-p)
 | 
			
		||||
  (with-imported-modules '((guix build utils))
 | 
			
		||||
    #~(begin
 | 
			
		||||
        (use-modules (guix build utils))
 | 
			
		||||
        (map (lambda (xdg-base-dir-variable)
 | 
			
		||||
               (mkdir-p
 | 
			
		||||
                (getenv
 | 
			
		||||
                 xdg-base-dir-variable)))
 | 
			
		||||
             '#$(filter-map
 | 
			
		||||
| 
						 | 
				
			
			@ -135,7 +138,7 @@ services more consistent."))
 | 
			
		|||
                     ;; and will be provided by elogind or other service.
 | 
			
		||||
                     (and (not (string=? "XDG_RUNTIME_DIR" variable))
 | 
			
		||||
                          variable)))
 | 
			
		||||
             home-xdg-base-directories-configuration-fields)))
 | 
			
		||||
                 home-xdg-base-directories-configuration-fields)))))
 | 
			
		||||
 | 
			
		||||
(define (last-extension-or-cfg config extensions)
 | 
			
		||||
  "Picks configuration value from last provided extension.  If there
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Reference in a new issue