@@ -987,6 +987,11 @@ (define user-profile
(lambda (pw)
(string-append (passwd:dir pw) "/.guix-profile"))))
+ (define guix-home-profile
+ (and=> (getpw (getuid))
+ (lambda (pw)
+ (string-append (passwd:dir pw) "/.guix-home/profile"))))
+
;; If we are able to find the user's profile, we can add it to
;; the search paths set below. We need to do this so that D-Bus
;; can start services installed by the user. This allows
@@ -995,7 +1000,9 @@ (define user-profile
;; in the user's profile. See <https://bugs.gnu.org/35267>.
(define profiles
(if user-profile
- (list user-profile system-profile)
+ (if guix-home-profile
+ (list user-profile guix-home-profile system-profile)
+ (list user-profile system-profile))
(list system-profile)))
(setenv "XDG_CONFIG_DIRS"