[bug#58582] [PATCH] gnu: Fix dbus session address in home-dbus-shepherd-services and home-dbus-environment-variables

[Sughosha via Guix-patches via <guix-patches@gnu.org>]

* gnu/home/services/desktop.scm
(home-dbus-shepherd-services): Fix dbus session address.
(home-dbus-environment-variables): Fix dbus session address.

Currently if home-dbus-service-type is enabled, the GDM session crashes. This
fix should possibly prevent it. However, I could not test it since reconfiguring
guix home with pre-inst-env doesn't make any change and I don't know any other
method.
---
 gnu/home/services/desktop.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnu/home/services/desktop.scm b/gnu/home/services/desktop.scm
index e94e666d93..91e39af36c 100644
--- a/gnu/home/services/desktop.scm
+++ b/gnu/home/services/desktop.scm
@@ -196,7 +196,7 @@ (define (home-dbus-shepherd-services config)
                    (list #$(file-append (home-dbus-dbus config)
                                         "/bin/dbus-daemon")
                          "--nofork" "--session"
-                         (format #f "--address=unix:path=~a/bus"
+                         (format #f "--address=unix:path=~a/dbus.lock"
                                  (or (getenv "XDG_RUNTIME_DIR")
                                      (format #f "/run/user/~a"
                                              (getuid)))))
@@ -211,7 +211,7 @@ (define (home-dbus-shepherd-services config)
 
 (define (home-dbus-environment-variables config)
   '(("DBUS_SESSION_BUS_ADDRESS"
-     . "unix:path=${XDG_RUNTIME_DIR:-/run/user/$UID}/bus")))
+     . "unix:path=${XDG_RUNTIME_DIR:-/run/user/$UID}/dbus.lock")))
 
 (define home-dbus-service-type
   (service-type
-- 
2.38.0