diff options
| author | Arun Isaac | 2022-04-09 00:42:58 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-04-09 10:55:08 +0530 |
| commit | 65a2b4c7c7818d1ddfc47feacaca452844be3c0b (patch) | |
| tree | e7e826ee0a6e449484b4971bac043b5ca77818d9 /guix | |
| parent | a64841eb92a1cece95001ec5ed87e3a0b59d9375 (diff) | |
| download | guix-forge-65a2b4c7c7818d1ddfc47feacaca452844be3c0b.tar.gz guix-forge-65a2b4c7c7818d1ddfc47feacaca452844be3c0b.tar.lz guix-forge-65a2b4c7c7818d1ddfc47feacaca452844be3c0b.zip | |
utils: Add with-manifest.
* guix/forge/utils.scm: Import (guix modules).
(with-manifest): New function.
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/forge/utils.scm | 35 |
1 files changed, 34 insertions, 1 deletions
diff --git a/guix/forge/utils.scm b/guix/forge/utils.scm index dd980ef..f23f763 100644 --- a/guix/forge/utils.scm +++ b/guix/forge/utils.scm @@ -21,11 +21,44 @@ #:use-module (ice-9 match) #:use-module (guix derivations) #:use-module (guix gexp) + #:use-module (guix modules) #:use-module (guix monads) #:use-module (guix profiles) #:use-module (guix search-paths) #:use-module (guix store) - #:export (with-packages)) + #:export (with-manifest + with-packages)) + +(define (with-manifest manifest exp) + "Return a gexp executing EXP, another gexp, in a profile defined by +MANIFEST." + (with-imported-modules (source-module-closure '((guix search-paths))) + #~(begin + ;; Set the environment. + ;; We pull out match-lambda using module-ref instead of using + ;; use-modules because this gexp will be substituted into other + ;; gexps and use-modules only works at the top-level. + (let-syntax ((match-lambda (macro-transformer + (module-ref (resolve-module '(ice-9 match)) + 'match-lambda)))) + (let ((evaluate-search-paths (@@ (guix search-paths) evaluate-search-paths)) + (search-path-specification-variable (@@ (guix search-paths) + search-path-specification-variable)) + (sexp->search-path-specification (@@ (guix search-paths) + sexp->search-path-specification))) + (for-each (match-lambda + ((specification . value) + (setenv (search-path-specification-variable specification) + value))) + (evaluate-search-paths + (map sexp->search-path-specification + '#$(map search-path-specification->sexp + (manifest-search-paths manifest))) + (list #$(profile + (content manifest) + (allow-collisions? #t))))))) + ;; Run the provided expression. + #$exp))) (define (profile-with-packages packages) "Return profile with PACKAGES." |