From 23f7095d60b18b52de0d1aa314c4012cdf55a046 Mon Sep 17 00:00:00 2001 From: Andrew Tropin Date: Fri, 11 Feb 2022 11:03:02 +0300 Subject: [PATCH 2/5] home: Add home-xdg-configuration-files service. * gnu/home/services.scm (home-xdg-configuration-files): New variable. --- gnu/home/services.scm | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) diff --git a/gnu/home/services.scm b/gnu/home/services.scm index e4e3717b80..bf044a0421 100644 --- a/gnu/home/services.scm +++ b/gnu/home/services.scm @@ -38,12 +38,14 @@ (define-module (gnu home services) home-profile-service-type home-environment-variables-service-type home-files-service-type + home-xdg-configuration-files-service-type home-run-on-first-login-service-type home-activation-service-type home-run-on-change-service-type home-provenance-service-type home-files-directory + xdg-configuration-files-subdir fold-home-service-types home-provenance @@ -284,6 +286,27 @@ (define home-files-service-type @file{~~/.guix-home/~a}, and further processed during activation." home-files-directory)))) +(define xdg-configuration-files-subdir "config") + +(define (xdg-configuration-files files) + (map (lambda (lst) + (cons (string-append xdg-configuration-files-subdir + "/" (car lst)) (cdr lst))) + files)) + +(define home-xdg-configuration-files-service-type + (service-type (name 'home-files) + (extensions + (list (service-extension home-files-service-type + xdg-configuration-files))) + (compose concatenate) + (extend append) + (default-value '()) + (description (format #f "Files that will be put in +@file{~~/.guix-home/~a/~a}, and further processed during activation." + home-files-directory + xdg-configuration-files)))) + (define %initialize-gettext #~(begin (bindtextdomain %gettext-domain -- 2.34.0