amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

home: import: Clarify "destination directory".

Browse source 
Suggested by Liliana Marie Prikler <liliana.prikler@gmail.com>.

* guix/scripts/home/import.scm (configurations+modules): Rename
'destination-directory' to 'configuration-directory'.  Improve
docstring.
This commit is contained in:
Ludovic Courtès 2021-10-30 21:43:19 +02:00
parent 341fba217f
commit f3933ae40d
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
guix/scripts/home/import.scm
View file

@ -82,9 +82,11 @@ FILE-NAME with \"-\", and return the basename of it."
(".bash_profile" . ,generate-bash-configuration+modules) (".bash_profile" . ,generate-bash-configuration+modules)
(".bash_logout" . ,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 "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 (define configurations
(delete-duplicates (delete-duplicates
(filter-map (match-lambda (filter-map (match-lambda
@ -95,12 +97,12 @@ service declaration."
(begin (begin
(copy-file absolute-path (copy-file absolute-path
(string-append (string-append
destination-directory "/" file)) configuration-directory "/" file))
proc))))) proc)))))
%files+configurations-alist) %files+configurations-alist)
eq?)) eq?))
(map (lambda (proc) (proc destination-directory)) configurations)) (map (lambda (proc) (proc configuration-directory)) configurations))
;; Based on `manifest->code' from (guix profiles) ;; Based on `manifest->code' from (guix profiles)
;; MAYBE: Upstream it? ;; MAYBE: Upstream it?