summaryrefslogtreecommitdiff
path: root/guix/scripts/home
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2021-10-30 21:43:19 +0200
committerLudovic Courtès <ludo@gnu.org>2021-10-31 00:51:06 +0200
commitf3933ae40d4192fa3aeff95ac768bab86ade766f (patch)
tree29b35cc5b1fba4fd387fb5d5a1180f4888897674 /guix/scripts/home
parent341fba217f5a9490c0e3a077e017adf7bc68acf5 (diff)
home: import: Clarify "destination directory".
Suggested by Liliana Marie Prikler <liliana.prikler@gmail.com>. * guix/scripts/home/import.scm (configurations+modules): Rename 'destination-directory' to 'configuration-directory'. Improve docstring.
Diffstat (limited to 'guix/scripts/home')
-rw-r--r--guix/scripts/home/import.scm10
1 files changed, 6 insertions, 4 deletions
diff --git a/guix/scripts/home/import.scm b/guix/scripts/home/import.scm
index d00739da22..a51f7f504b 100644
--- a/guix/scripts/home/import.scm
+++ b/guix/scripts/home/import.scm
@@ -82,9 +82,11 @@ FILE-NAME with \"-\", and return the basename of it."
(".bash_profile" . ,generate-bash-configuration+modules)
(".bash_logout" . ,generate-bash-configuration+modules)))
-(define (configurations+modules destination-directory)
+(define (configurations+modules configuration-directory)
"Return a list of procedures which when called, generate code for a home
-service declaration."
+service declaration. Copy configuration files to CONFIGURATION-DIRECTORY; the
+generated service declarations will refer to those files that have been saved
+in CONFIGURATION-DIRECTORY."
(define configurations
(delete-duplicates
(filter-map (match-lambda
@@ -95,12 +97,12 @@ service declaration."
(begin
(copy-file absolute-path
(string-append
- destination-directory "/" file))
+ configuration-directory "/" file))
proc)))))
%files+configurations-alist)
eq?))
- (map (lambda (proc) (proc destination-directory)) configurations))
+ (map (lambda (proc) (proc configuration-directory)) configurations))
;; Based on `manifest->code' from (guix profiles)
;; MAYBE: Upstream it?