me
/
guix
Archived
1
0
Fork 0
Code

home: 'home-environment-with-provenance' uses the HE location info. 

* gnu/home.scm (home-environment-with-provenance): Make `config-file`
optional, with the default taken from the HE location info.

Signed-off-by: Andrew Tropin <andrew@trop.in>
master
Sergey Trofimov 2023-03-19 16:45:37 +01:00 committed by Andrew Tropin
parent d429ff12e5
commit 1f36534c7e
No known key found for this signature in database
GPG Key ID: 2208D20958C1DEB0
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
gnu/home.scm
View File

@ -103,7 +103,21 @@
#:target-type home-service-type)))
(service-value home)))
(define* (home-environment-with-provenance he config-file)
(define (home-environment-configuration-file he)
"Return the configuration file of HE, based on its 'location' field, or #f
if it could not be determined."
(let ((file (and=> (home-environment-location he)
location-file)))
(and file
(or (and (string-prefix? "/" file) file)
(search-path %load-path file)))))
(define* (home-environment-with-provenance he
#:optional
(config-file
(home-environment-configuration-file
he)))
"Return a variant of HE that stores its own provenance information,
including CONFIG-FILE, if available. This is achieved by adding an instance
of HOME-PROVENANCE-SERVICE-TYPE to its services."