10/15: home: import: Clarify "destination directory".

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit f3933ae40d4192fa3aeff95ac768bab86ade766f
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sat Oct 30 21:43:19 2021 +0200

    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.
---
 guix/scripts/home/import.scm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/guix/scripts/home/import.scm b/guix/scripts/home/import.scm
index d00739d..a51f7f5 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?