01/02: home: xdg: Make it possible to extend user-directories service.

[guix-commits]

abcdw pushed a commit to branch master
in repository guix.

commit 77ef82ce93e088e3d810b394b7cacd33f0d2de85
Author: Andrew Tropin <andrew@trop.in>
AuthorDate: Mon Dec 19 15:02:20 2022 +0400

    home: xdg: Make it possible to extend user-directories service.
    
    * gnu/home/services/xdg.scm (home-xdg-user-directories-service-type): Make 
it
    possible to override user-directories configuration by extending.
---
 gnu/home/services/xdg.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/gnu/home/services/xdg.scm b/gnu/home/services/xdg.scm
index 865f8b81d7..fb2dbb393e 100644
--- a/gnu/home/services/xdg.scm
+++ b/gnu/home/services/xdg.scm
@@ -245,6 +245,8 @@ pre-populated content.")
                         home-activation-service-type
                         home-xdg-user-directories-activation-service)))
                 (default-value (home-xdg-user-directories-configuration))
+                (compose identity)
+                (extend last-extension-or-cfg)
                 (description "Configure XDG user directories.  To
 disable a directory, point it to the $HOME.")))