GNU bug report logs -
#67819
[PATCH] services: xorg: dbus-daemon-wrapper handle guix home directory.
Previous Next
Reported by: Feng Shu <tumashu <at> 163.com>
Date: Thu, 14 Dec 2023 03:11:01 UTC
Severity: normal
Tags: patch
Done: Ludovic Courtès <ludo <at> gnu.org>
Bug is archived. No further changes may be made.
Full log
View this message in rfc822 format
[Message part 1 (text/plain, inline)]
Your bug report
#67819: [PATCH] services: xorg: dbus-daemon-wrapper handle guix home directory.
which was filed against the guix-patches package, has been closed.
The explanation is attached below, along with your original report.
If you require more details, please reply to 67819 <at> debbugs.gnu.org.
--
67819: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=67819
GNU Bug Tracking System
Contact help-debbugs <at> gnu.org with problems
[Message part 2 (message/rfc822, inline)]
Hi,
Feng Shu <tumashu <at> 163.com> skribis:
>>From e4a5ee8fd8a71782fdc15a8177cd1474e3135d99 Mon Sep 17 00:00:00 2001
> From: Feng Shu <tumashu <at> 163.com>
> Date: Thu, 14 Dec 2023 11:02:51 +0800
> Subject: [PATCH v2] services: xorg: dbus-daemon-wrapper handle guix home
> directory.
>
> * gnu/services/xorg.scm (dbus-daemon-wrapper): Handle guix home directory.
Good idea.
> (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)))
I tweaked for clarity:
(define profiles
(append (if home-profile
(list home-profile)
'())
(if user-profile
(list user-profile)
'())
(list system-profile)))
Applied, thanks!
Ludo’.
[Message part 3 (message/rfc822, inline)]
From 1b8047ebb18d52923950f988adf612b251b39107 Mon Sep 17 00:00:00 2001
* gnu/services/xorg.scm (dbus-daemon-wrapper): Handle guix home directory.
---
gnu/services/xorg.scm | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/gnu/services/xorg.scm b/gnu/services/xorg.scm
index 9235295dd6..56d3c737d9 100644
--- a/gnu/services/xorg.scm
+++ b/gnu/services/xorg.scm
@@ -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"
--
2.39.2
--
This bug report was last modified 1 year and 221 days ago.
Previous Next
GNU bug tracking system
Copyright (C) 1999 Darren O. Benham,
1997,2003 nCipher Corporation Ltd,
1994-97 Ian Jackson.