[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
04/05: search-paths: Add 'set-search-paths'.
From: |
Ludovic Courtès |
Subject: |
04/05: search-paths: Add 'set-search-paths'. |
Date: |
Thu, 10 May 2018 08:54:21 -0400 (EDT) |
civodul pushed a commit to branch master
in repository guix.
commit 54fd5ad0a5da92a35056a72021174234913fe10f
Author: Ludovic Courtès <address@hidden>
Date: Wed May 2 19:50:45 2018 +0200
search-paths: Add 'set-search-paths'.
* guix/search-paths.scm (set-search-paths): New procedure.
---
guix/search-paths.scm | 15 +++++++++++++--
1 file changed, 13 insertions(+), 2 deletions(-)
diff --git a/guix/search-paths.scm b/guix/search-paths.scm
index 4bf0e44..002e634 100644
--- a/guix/search-paths.scm
+++ b/guix/search-paths.scm
@@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2013, 2014, 2015, 2017 Ludovic Courtès <address@hidden>
+;;; Copyright © 2013, 2014, 2015, 2017, 2018 Ludovic Courtès <address@hidden>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -38,7 +38,8 @@
string-tokenize*
evaluate-search-paths
environment-variable-definition
- search-path-definition))
+ search-path-definition
+ set-search-paths))
;;; Commentary:
;;;
@@ -196,4 +197,14 @@ prefix/suffix."
#:kind kind
#:separator separator))))
+(define* (set-search-paths search-paths directories
+ #:key (setenv setenv))
+ "Set the search path environment variables specified by SEARCH-PATHS for the
+given directories."
+ (for-each (match-lambda
+ ((spec . value)
+ (setenv (search-path-specification-variable spec)
+ value)))
+ (evaluate-search-paths search-paths directories)))
+
;;; search-paths.scm ends here