diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2021-10-30 21:43:19 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2021-10-31 00:51:06 +0200 |
| commit | f3933ae40d4192fa3aeff95ac768bab86ade766f (patch) | |
| tree | 29b35cc5b1fba4fd387fb5d5a1180f4888897674 /guix | |
| parent | 341fba217f5a9490c0e3a077e017adf7bc68acf5 (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')
| -rw-r--r-- | guix/scripts/home/import.scm | 10 |
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? |