summary refs log tree commit diff
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
parent341fba217f5a9490c0e3a077e017adf7bc68acf5 (diff)
downloadguix-f3933ae40d4192fa3aeff95ac768bab86ade766f.tar.gz
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.
-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?