ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

home-services: Add home-provenance-service-type.

Browse source 
* gnu/home-services.scm (home-provenance-service-type, sexp->home-provenance,
home-provenance): New variables.

Signed-off-by: Oleg Pykhalov <go.wigust@gmail.com>
This commit is contained in:
Andrew Tropin 2021-08-05 08:46:58 +03:00 committed by Oleg Pykhalov
parent e65848d153
commit 305edf9c3a
No known key found for this signature in database
GPG key ID: 167F8EA5001AFA9C
1 changed files with 26 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
gnu/home-services.scm
View file

@ -38,7 +38,10 @@ (define-module (gnu home-services)
home-files-service-type
home-run-on-first-login-service-type
home-activation-service-type
home-run-on-change-service-type)
home-run-on-change-service-type
home-provenance-service-type
fold-home-service-types)
#:re-export (service
service-type
@ -467,3 +470,25 @@ (define home-run-on-change-service-type
last generation. The extension should be a list of lists where the
first element is the pattern for file or directory that expected to be
changed, and the second element is the G-expression to be evaluated.")))
;;;
;;; Provenance tracking.
;;;
(define home-provenance-service-type
(service-type
(name 'home-provenance)
(extensions
(list (service-extension
home-service-type
(service-extension-compute
(first (service-type-extensions provenance-service-type))))))
(default-value #f) ;the HE config file
(description "\
Store provenance information about the home environment in the home
environment itself: the channels used when building the home
environment, and its configuration file, when available.")))
(define sexp->home-provenance sexp->system-provenance)
(define home-provenance system-provenance)