aboutsummaryrefslogtreecommitdiff
path: root/tests/git.scm
diff options
context:
space:
mode:
authorMaxim Cournoyer <maxim.cournoyer@gmail.com>2022-09-09 15:52:10 -0400
committerMaxim Cournoyer <maxim.cournoyer@gmail.com>2022-09-13 02:04:49 -0400
commit255935a2fff1a4e26fdd089d74dd80f91a284a6d (patch)
treea4bc667dea204c8f87ea2793292149db42087b05 /tests/git.scm
parentf05326d5c0c6f4b2d6f0b92ced8db8ad4e2f0216 (diff)
downloadguix-255935a2fff1a4e26fdd089d74dd80f91a284a6d.tar.gz
guix-255935a2fff1a4e26fdd089d74dd80f91a284a6d.zip
gnu: network-manager: Update to 1.41.2.
* gnu/packages/gnome.scm (network-manager): Update to 1.41.2. [native-inputs]: Sort. Replace intltool with gettext-minimal. Add perl. [inputs]: Sort. Add libpsl. Remove libsoup.
Diffstat (limited to 'tests/git.scm')
0 files changed, 0 insertions, 0 deletions
(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." (home-environment (inherit he) (services (cons (service home-provenance-service-type config-file) (home-environment-user-services he))))) (define-gexp-compiler (home-environment-compiler (he <home-environment>) system target) ((store-lift (lambda (store) (run-with-store store (home-environment-derivation he) #:system system #:target target))))) (define %profile-generation-rx ;; Regexp that matches profile generation. (make-regexp "(.*)-([0-9]+)-link$")) (define (home-generation-base file) "If FILE is a Home generation GC root such as \"guix-home-42-link\", return its corresponding base---e.g., \"guix-home\". Otherwise return #f. This is similar to the 'generation-profile' procedure but applied to Home generations." (match (regexp-exec %profile-generation-rx file) (#f #f) (m (let ((profile (match:substring m 1))) ;; Distinguish from a "real" profile and from a system generation. (and (file-exists? (string-append profile "/on-first-login")) (file-exists? (string-append profile "/profile/manifest")) profile)))))